problème dans .Find

bjr à tous
j'ai développé une macro et j'ai rencontré un problème.
ma macro est la suivante :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub test() Dim npv As Range Dim c As Range Set npv = Sheets("courbes GI").Range("o18") Sheets("RECAP").Activate Set c = Sheets("RECAP").Columns(2).Find(What:=npv.Value, LookIn:=xlValues, LookAt:=xlWhole, SearchDirection:=xlNext, _ SearchOrder:=xlByRows, MatchCase:=False) If Not c Is Nothing And npv.Offset(0, 1).Value = c.Offset(0, -1).Value Then Sheets("courbes GI").Activate MsgBox "Le PV " & npv & "," & " " & c.Offset(0, -1).Value & " existe déjà." End If End Sub

---

la ligne

Code:

---

If Not c Is Nothing And npv.Offset(0, 1).Value = c.Offset(0, -1).Value Then

---

se met en jaune quand npv contient une valeur qui n'existe pas dans le tableau, dans le cas contraire c'est bien ( càd le message s'est affiché )
merci pour votre aides
merci bien

Bonjour,

tu ne peux combiner le test sur C= nothing et un test sur des valeurs qui ne sont alimentées que si C <> Nothing, car dans ce cas, TOUTE la condition est TOUJOURS évaluée et donc craaaaaaaack.

c'est un erreur de logique.

Découpe ton test en 2 if imbriqués et tu n'auras plus de problèmes.

Code:

---

1 2	If Not c Is Nothing then if npv.Offset(0, 1).Value = c.Offset(0, -1).Value Then

---

merci bcp Godzestla
ça marche.