Discussion :

[abouhossam]

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

Code :

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

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 :

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

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

[Godzestla]

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 :

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

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

[abouhossam]

merci bcp Godzestla
ça marche.