Bonjour,
Dans le fichier d’essais ci-joint, je tente d’utiliser les instructions AND et OR dans des boucles IF-THEN. Comme vous pouvez le constater, c’est un exercice tout à fait théorique.
J’ai réussi mes deux premières conditions et je cale sur la troisième, mise en commentaire dans le code ci-dessous (deux tentatives distinctes) :
Sub ssss()
Dim i As Byte
For i = 2 To 15
If Range("C" & i) = "CH" And Range("B" & i) < 21 Or Range("B" & i) > 65 And Range("D" & i) = "H" Or Range("B" & i) > 64 And Range("D" & i) = "F" Then
Range("E" & i) = 18
ElseIf Range("C" & i) = "CH" Then
Range("E" & i) = 28
'ElseIf Range("C" & i) <> "CH" And Range("D" & i) = "H" And Range("B" & i) < 21 Or Range("C" & i) <> "CH" And Range("D" & i) = "H" And Range("B" & i) > 65 Then
'ElseIf Range("B" & i) < 21 Or Range("B" & i) > 65 And Range("C" & i) <> "CH" And Range("D" & i) = "H" Then
'Range("E" & i) = 15
End If
Next i
End Sub
Pouvez-vous m’aider à résoudre ce problème ?
Question subsidiaire : Y a-t-il une logique ou un truc afin de savoir comment poser ces instructions AND et OR dans l’instruction IF-THEN ?
Cordialement.