Ci-dessous, nous examinerons un programme dans Excel VBA qui supprime les cellules vides.

1. Tout d’abord, nous déclarons deux variables de type Integer. Un compteur nommé et un nommé i. Nous initialisons le compteur de variables avec la valeur 0.

Dim compteur As Integer, i As Integer

compteur = 0

2. Ensuite, nous vérifions pour chaque cellule si elle est vide ou non (<> signifie différent de). Nous utilisons une boucle pour cela. S’il n’est pas vide, nous écrivons la valeur dans la colonne B. Le compteur conserve la trace du nombre de cellules qui ont été copiées dans la colonne B. Chaque fois que nous copions une valeur dans la colonne B, nous incrémentons le compteur de 1. Cette partie du programme ressemble à ceci:

For i = 1 To 10

    If Cells(i, 1).Value <> "" Then

        Cells(compteur + 1, 2).Value = Cells(i, 1).Value

        compteur = compteur + 1

    End If

Next i

Résultat à ce jour:

3. Enfin, nous vidons Range (“A1: A10”), copions les valeurs de la colonne B dans la colonne A et vides

Range ("B1: B10").

Range ("A1: A10"). Value = ""

Range ("A1: A10"). Value = Range ("B1: B10").Value

Range de valeurs ("B1: B10") = ""

Résultat: