Utilisation du Or

Bonjour,

J'ai un souci de débutant, avec l'utilisation du "Or".

Voilà le code de base :

Dim i As Integer

For i = 18 To 30

If Worksheets("page1").Range("D" & i).Value < Worksheets("Paramètres").Range("A24").Value And Worksheets("Page1").Range("E" & i).Value <> "OK" Then
    Worksheets("Page1").Range("E" & i).Value = "HORS DELAI !"

End If

Next i

Mon souci est que je voudrais rajouter "NC". En gros, "OK" Or "NC". J'ai bien essayé avec des parenthèses un peu partout, mais ça a plutôt tendance a ignoré le tout. Donc si "OK" ou "NC" en cellule, ignorer, sinon "HORS DELAI !".

Quelle est l'astuce ?

Merci par avance.

Bonsoir,

il n'y a pas d'astuce... il suffit de lire :

si la cellule D&i est inférieur à A24 ET

non(si la cellule E&i = "OK" ou si la cellule E&i = "NC") alors "Hors délais !"

Dim i As Integer
For i = 18 To 30
    If Worksheets("page1").Range("D" & i).Value < Worksheets("Paramètres").Range("A24").Value And _
         Not (Worksheets("Page1").Range("E" & i).Value = "OK" Or Worksheets("Page1").Range("E" & i).Value = "NC") Then
            Worksheets("Page1").Range("E" & i).Value = "HORS DELAI !"
    End If
Next i

Enfin pas essayé

@ bientôt

LouReeD

Si, il y a une astuce, celle que tu donnes, c'est de s'y prendre avec le "Not". Et effectivement, ça marche.

Merci !

Bonjour,

une astuce ?!

Oh ! J'avais pas vu !

Merci de vos remerciements.

@ bientôt

LouReeD