Discussion :

[kimou75]

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.

[casefayere]

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

Code :

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

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

cpt3 => cpt

[kimou75]

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

Code :

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

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 ?

[Docmarti]

Bonjour.

Essaie en remplacant AND par OR

Code :

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

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

[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.

[Docmarti]

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

[casefayere]

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

Code :

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

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

[casefayere]

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