1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26
| Private Sub Worksheet_Activate()
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Dim DerLig2 As Long
Dim Valeur As Range, Cel As Range
Set ws1 = Worksheets("Applications Matrix")
Set ws2 = Worksheets("MP.AC Extract")
'Recherche de la dernière cellule renseignée dans la colonne C de la feuille "MP.AC Extract"
DerLig2 = ws2.Range("C" & ws2.Rows.Count).End(xlUp).Row
'Pour chaque cellule de la plage (colonne C de la feuille "MP.AC Extract")
For Each Cel In ws2.Range("C2:C" & DerLig2)
'Recherche une valeur équivalente dans la colonne B de la feuille "Applications Matrix"
Set Valeur = ws1.Range("B:B").Find(Cel, LookIn:=xlValues, LookAt:=xlWhole)
'Si la valeur existe, incrire TRUE sinon FALSE dans la cellule adjacente (colonne B, feuille "MP.AC Extract")
If Not Valeur Is Nothing Then
Cel.Offset(0, -1) = True
Else
Cel.Offset(0, -1) = False
End If
Next
Set Valeur = Nothing
Set ws1 = Nothing
Set ws1 = Nothing
End Sub |
Partager