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 : Sélectionner tout - Visualiser dans une fenêtre à part
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.