des And qui fonctionnent comme des Or

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

Code:

---

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 :calim2:

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:

---

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

---

Citation:

---

Envoyé par beta007

Code:

---

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.

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