Comme pour les lignes vides, les colonnes vides peuvent également constituer des erreurs imprévisibles. Si vous recherchez et supprimez manuellement des colonnes vides, vous pouvez utiliser la macro présentée ci-dessous pour automatiser cette tâche.
Comment ca marche?
La macro utilise la propriété UsedRange de l’objet ActiveSheet et l’utilise pour déterminer la plage de travail. La propriété UsedRange indique la plage de cellules dans laquelle les données ont été entrées. Ensuite, pour vérifier que toute la colonne est vide, le compteur démarrant l’action à partir de la dernière colonne de la plage sera démarré. Si la colonne est réellement vide, elle sera supprimée. La suppression de colonnes sera effectuée à chaque itération et la valeur du compteur sera modifiée à chaque fois.
Sub SupprimerColonnesVides () 'Étape 1: Déclaration des variables Dim MyRange As Range Dim iCounter As Long 'Étape 2: Définir la plage de cellules Set MyRange = ActiveSheet.UsedRange 'Étape 3: Commencez la boucle avec le compte à rebours For iCounter = MyRange.Columns.Count To 1 Step -1 'Étape 4: Si la colonne entière est vide, supprimez-la If Application.CountA(Columns(iCounter).EntireColumn) = 0 Then Columns(iCounter).Delete End If 'Étape 5: Réduisez la valeur du compteur Next iCounter End Sub
2. Dans la deuxième étape, la macro récupère la propriété usedRange de l’objet ActiveSheet dans la variable MyRange. La propriété UsedRange indique la plage de cellules dans laquelle les données ont été entrées.
3. Dans cette étape, la macro définit les paramètres du compte à rebours, de sorte qu’il commence par la valeur la plus grande de la plage MyRange.Columns. compter
et se termine sur une valeur de 1 (la première ligne de la plage indiquée). Dans ce cas, le mot clé Step -1 a été utilisé. Parce qu’il y a un mot clé dans le code Step -1, Excel sait que, à chaque itération, la valeur du compteur doit être réduite d’une unité. Dans la troisième étape, Excel reçoit les informations selon lesquelles il doit commencer à partir de la dernière colonne de la plage indiquée, puis passe aux colonnes précédentes jusqu’à atteindre la première colonne.
4. Avec des plages, vous pouvez appeler avec précision une colonne spécifique en transmettant son numéro dans l’index à la collection Columns. Et ainsi, la Range(“A1: D17”).Columns(2) indiquent la deuxième colonne de la plage (colonne B).
À la quatrième étape, la variable sterling iCounter est utilisée comme valeur d’index pour la variable MyRange dans la collection Columns. Cela aide à déterminer exactement quelle colonne est traitée dans la boucle d’itération donnée. La macro vérifie si les cellules d’une colonne donnée sont vides. S’ils sont vides, toute la colonne est supprimée.
5. À l’étape cinq, la macro commence l’itération suivante, réduisez la valeur du compteur d’une position.