300 Exemples

Supprimer les cellules vides

Delete Blank Cells

Ci-dessous, nous examinerons un programme en Excel VBA cette supprime les cellules vides .





Situation:

Supprimer les cellules vides dans Excel VBA





comment calculer la différence de pourcentage dans Excel

1. Tout d'abord, nous déclarons deux variables de type Integer. Un compteur nommé et un nommé i. On initialise le compteur de variable avec la valeur 0.

RiencontrerComme Entier, jeComme Entier
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 enregistre le 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 :



Pourje = 1Àdix
SiCells(i, 1).Valeur ''Puis
Cellules(compteur + 1, 2).Valeur = Cellules(i, 1).Valeur
compteur = compteur + 1
Finir Si
Prochainje

Résultat à ce jour :

Écrire des cellules non vides dans la colonne suivante

3. Enfin, nous vidons Range('A1:A10'), copions les valeurs de la colonne B dans la colonne A et vidons Range('B1:B10').

Plage ('A1:A10').Valeur = ''
Plage('A1:A10').Valeur = Plage('B1:B10').Valeur
Plage('B1:B10') = ''

Résultat:

Supprimer le résultat des cellules vides

9/9 terminé ! En savoir plus sur les instructions if then >
Aller au chapitre suivant : Boucle



^