Discussion :

[ced0802]

Bonjour à tous,

Je n'arrive pas à comprendre pourquoi ma 2ème condition avec OR n'est pas prise en compte.
C'est à dire qu'il colorie bien ma celulle "FR" mais pas "NL".

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
Sub Generic6()
 
Dim db As Workbook
Set db = Workbooks("wk49production")  'Worksheets("Packing Production Schedule")
 
 
For x = 1 To 1000
 
Celltxt = db.Worksheets("Packing Production Schedule").Cells(x, 12).Text
If InStr(1, Celltxt, "FR") Or InStr(1, Celltxt, "NL") And Cells(x, 10) = 6 Then
db.Worksheets("Packing Production Schedule").Cells(x, 12).Interior.Color = RGB(0, 255, 0)
db.Worksheets("Packing Production Schedule").Cells(x, 12).Font.Bold = True
 
 
    End If
 
Next
 
End Sub

En vous remerciant par avance pour votre aide.

[clementmarcotte]

Bonjour,

Sans avoir testé, j'ai l'impression que tu surestimes le OR logique. Le OR n'est pas un ou humain. Le ou humain est capable de différencier le "Ou strict" et le "ou égale et". Mais le OR logique n'est pas capable de le faire de lui-même. Dès que la première condition est remplie, le OR retourne true et se fiche allègrement de la deuxième condition. L'inverse est également vrai. Si la première condition est fausse et que la seconde est vraie, ton OR retourne true et se fiche allègrement de la première condition. Donc, le mieux c'est de tester les deux conditions séparément dans une boucle qui va s'assurer que tu testes bien les deux pays.

(Ou bien, tu passes à un VB.net récent et tu utilises ORALSO. Parce que ORALSO est capable de traiter les deux conditions ensemble. Et puis, il a également ANDALSO.)