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