bjr à tous
j'ai développé une macro et j'ai rencontré un problème.
ma macro est la suivante :
la ligne
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
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é )
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
merci pour votre aides
merci bien
Partager