conition pour arret une boucle while

Question

bjr a tous !
-g un pti soucis je fai une macro suis sur une feuille2 
-la macro crée une feuille 3 qui affiche en A2 les données
-les donnée sont situés sur la feuille1
-il ya un while qui liste tte la colone en B2 de la feuille1
qui est composé de date et se fini par un entier
-g fait donc fait while is not numeric ....
-mais g limpression que la macro voit les date comme des numeric elle entre jamais dans la boucle.

comment faire??
merci

eric

crenaud76 · Answer

T'as qu'a essayer un "While IsDate(...)"

Christophe R.

eryk17 · Answer

ben non puisque le test se fait sur la colonne nom
a la fin de la colonne nom il ya le nombre de nom et c'est la condition pour sortir.
exemple :
toto 
lola
2
While Not IsNumeric(Cells(k, 2))
.
.
.
wend
eric

crenaud76 · Answer

Ouis mais si tu mets "WHILE ISDATE(Cells(k,2)) ..."
Il tournera dans le While...Wend tant que la cellule sera une date et sortira de la boucle dès que la cellule ne sera plus une date !
Cela devrait le faire! Tu retourne juste le test dans l'autre sens, donc tu enlèves le NOT

Christophe R.

eryk17 · Answer

ouai mais ça marche  pas car pour quil voi que c'est une date il faut faire le format date dans la cellule or quand je fai format date dans tte la colonne de date, il ya des cellules ou il ya du texte genre "IMM" pour immediat. et comme dans le If Now - Cells(k, 3).Value > 0 Then
...
end if
il me met erreur de type puisque que la date daujourdhui - IMM = erreur

eric

Conition pour arret une boucle while

4 réponses

Discussions similaires