problème boucle until

problème boucle until - VB/VBA/VBS - Programmation

Marsh Posté le 02-08-2007 à 14:15:04    

bonjour,
 
j'ai un petit problème.je voudrais créer une boucle qui me dit:
pour i variant de 4 a 10
jusqua ce que la cellule (i,4) ne soit pas vide, si elle est vide alors on supprime la ligne entiere.seulement voila on va jusqua 10 mé en suprimant les lignes, il n'en reste parfois plus que 8 ou 7 et donc la condition "jusqua ce que la cellule (i,4) ne soit pas vide", se repete eternelement....je ne sait pas si vous comprenez.
la derniere cellule de mon tableau se nomme (vide)
 
For i = 4 To a
Do Until Cells(i, 4) <> ""
If Cells(i, 4).Value = "" Then
Cells(i, 4).Select
Selection.EntireRow.Select
Selection.Delete
ElseIf Cells(i, 4).Value = "(vide)" Then    ????????????????????
 
j'aimerais dire que si on arrive a la cellule (vide) on arrete la boucle.
cela est il possible.
merci pour votre aide même si la question est assez "bizarre" je vous l'accorde.
 

Reply

Marsh Posté le 02-08-2007 à 14:15:04   

Reply

Marsh Posté le 02-08-2007 à 14:36:10    

bonjour,
 
peut etre avec un petit "exit for" ou "goto"

Reply

Marsh Posté le 02-08-2007 à 14:50:56    

comment fonction le goto?le exit for ne fonctionne pas mais quand je mets goto on me demande le numéro d'une ligne.quelle est la synthaxe pour entrer ce numéro?
merci

Reply

Marsh Posté le 02-08-2007 à 15:50:08    

Bonjour,
pourquoi une double boucle??
le Do Until me semble superflu
 
 
Si tu supprimes une ligne, la ligne 11 vient en position 10 etc..etc..
Il faut donc écrire: for i = 10 to 4 step -1
Cordialement
 

Reply

Marsh Posté le 02-08-2007 à 16:02:50    

merci beaucoup ca fonctionne!je ne savait pas que l'on pouvais aller dans l'autre sens...

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed