VBA: Boucle multi critere

Bonjour,

je souhaite créer une boucle qui s’arrêterait lorsque plusieurs conditions ne seront plus respectées. J'ai donc écrit cela mais ma boucle s’arrête des que seulement une des conditions n'est plus respectées :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Dim cpt, cpt2 As Integer Dim cpt3 As Long Dim cat As String Dim statut As String dim ccde as Workbook   Set ccde = Workbooks.Open(Filename:="C:\Users\kguesmia\Documents\Casse du Havre\Carnet de cde.xls")   cpt3 = 8   With ccde.Sheets("Feuil1")   Do While .Range("C" & cpt3).Value <> cat And .Range("F" & cpt).Value <> cnuf And .Range("D" & cpt).Value <> base And .Range("A" & cpt).Value <> statut   cpt3 = cpt3 + 1   Loop   End With

---

Pourriez-vous m'aider svp.

Bonjour,
avant d'aller plus loin, n'as-tu pas déjà une erreur dans la ligne

Code:

---

......Range("C" & cpt3).Value <> cat And .Range("F" & cpt)....

---

cpt3 => cpt

non, c'est juste une mauvaise retranscription, désolé. C'est bien cpt3 partout.

Code:

---

1 2 3 4

cpt3 = 8 Do .Range("C" & cpt3).Value <> cat And .Range("F" & cpt3).Value <> cnuf And .Range("D" & cpt3).Value <> base And .Range("A" & cpt3).Value <> statut cpt3 = cpt3 + 1 Loop

---

Ceci étant, j'ai beau enregistrer ma macro avec la variable cpt3 dans toutes mes conditions mais les cpt réapparaissent dans certaines d'unes après exécution du code.....

casefayere, vous n'avez pas une petite idée ou une façon de coder cela différemment ?

Bonjour.

Essaie en remplacant AND par OR

Code:

---

1 2 3 4

cpt3 = 8 Do .Range("C" & cpt3).Value <> cat And .Range("F" & cpt3).Value <> cnuf And .Range("D" & cpt3).Value <> base And .Range("A" & cpt3).Value <> statut   Loop

---

ou, si tu es sur du "And", une boucle for

Code:

---

1 2 3 4 5 6 7

Dim x As Long cpt3 = 8 For x = 1 To .Range("C" & .Rows.Count).End(xlUp).Row 'à toi de mettre la bonne référence If .Range("C" & cpt3).Value <> cat And .Range("F" & cpt).Value <> cnuf And .Range("D" & cpt).Value <> Base And .Range("A" & cpt).Value <> statut Then cpt3 = cpt3 + 1 End If Next

---

si remplace par "OR" ma boucle va s’arrêter des que l'une des conditions ne sera plus respectée mais moi je veux qu'elle s’arrête quand toutes les conditions ne sont plus respectées sur une même ligne.

as-tu vu ma dernière réponse ?

Citation:

---

Envoyé par kimou75

si remplace par "OR" ma boucle va s’arrêter des que l'une des conditions ne sera plus respectée mais moi je veux qu'elle s’arrête quand toutes les conditions ne sont plus respectées sur une même ligne.

---

Ca ne fonctionne pas avec "AND"
Alors essaie avec "OR" .

"AND" est exclusif
"OR" est inclusif

Le "OR" fonctionne :D

merci !!!