Discussion :

[beta007]

Bonjour,
je travaille avec une boucle et j'aimerai qu'elle tourne tant qu'il n'y a pas trois ligne de vide

Code :

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

Do While Cells(Ligne, 1) <> "" And Cells(Ligne + 1, 1) <> "" And Cells(Ligne + 2, 1) <> ""

mais la boucle s'arrête dès que la ligne "ligne+2" est vide même si la ligne "ligne+1" est remplie!
Suite au lecture sur ce forum, je croyais avoir compris que:
avec un "And" il faut que les toutes les conditions soit vrai et avec "Or" il suffit qu'une des conditions soit vrai pour quel'on sorte de boucle; alors pourquoi dans le cas présent j'ai mon résultat voulu avec Or et pas avec And.

Ma boucle fonctionne avec Or, mais j'aimerai bien comprendre

[joe.levrai]

Bonjour,

traduit en langage courant, ta boucle dis : tant que 3 cellules consécutives sont remplies, on continue

donc, dès que tu tombes sur une cellule vide, la boucle s'arrête

si ligne 2 et 4 sont remplies, mais pas la ligne 3 : ARRET


je te propose une autre approche : utilisation de la formule NBVAL par lot de 3 cellules

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub toto()
Dim Ligne As Long
    Ligne = 1
    With ThisWorkbook.Worksheets("Feuil1")
        Do While Application.WorksheetFunction.CountA(.Cells(Ligne, 1).Resize(3, 1)) <> 0
            Ligne = Ligne + 1
        Loop
    End With
 
    MsgBox Ligne
End Sub

[Menhir]

Code :

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

Do While Cells(Ligne, 1) <> "" And Cells(Ligne + 1, 1) <> "" And Cells(Ligne + 2, 1) <> ""

Cette condition demande à la boucle de tourner tant que les trois cellules contiennent quelque chose.
Donc, il suffit qu'une seule soit vide pour que la boucle s'arrête.

En logique mathématique, le And est l'opposé du Or
Non(A Et B) = (Non A) Ou (Non B)
Le tracé d'une petite table de vérité 2x2 le démontre facilement.

[beta007]

merci a vous pour ces explications, c'est maintenant clair