cellule vide = cellule dont la valeur est zéro

Bonjour tout le monde !

J'ai crée une procédure pour déterminer s'il y a des valeurs consécutives identiques dans une colonne d'un tableau de valeurs numériques. J'ai utilisé deux répétitives pour la parcourir. cel1 est une cellule de cette colonne, i un entier qui augmente tant que les valeurs consécutives sont identiques.
Code:

1 2 3 4 5 6 7 8 Do While cel1 <> "" i = 0 Do While cel1.Offset(1, 0) = cel1 Set cel1 = cel1.Offset(1, 0) i = i + 1 Loop 'instructions ... Loop
Mon code marche bien excepté quand les dernières valeurs de la colonne sont 0. Le problème est que la condition de la 2e boucle renvoit vrai quand cel1=0 et cel1.Offset(1, 0) est égal à rien (la cellule est vide, on est sorti du tableau). Du coup cette boucle ne s'arrête plus (toutes les cellules sous le tableau sont vides donc égales) et génère l'erreur "dépassement de capacité".

Je voudrais simplement que l'ordinateur distingue bien les cellules vides des cellules où on a rentré la valeur zéro. Comment faire ?

Utilise IsEmpty

Code:

1
2
3
4
5
If not isempty(cells(....) then
    'ton code
    else
       exit do
endif

Merci beaucoup !