Discussion :

[pythagore3_14]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[ouskel'n'or]

Utilise IsEmpty

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[pythagore3_14]

Merci beaucoup !