bonjour à tous j'ai essayer bidouiller une macro pour faire apparaitre les valeurs manquante dans ma feuille liste.
le soucis c'est qu'il me fait tout le contraire il me colorie ceux qui sont présent et non la manquante
comment dois je faire svp merci
le soucis c'est qu'il me fait tout le contraire il me colorie ceux qui sont présent et non la manquante
Code:
Sub Compare()
Dim Lig1 As Long, Derlig1 As Long, Derlig2 As Long, Cp As Variant
Dim Lig2 As Long
Derlig1 = Sheets("Dispo").Range("B65535").End(xlUp).Row
Derlig2 = Sheets("Liste").Range("A65535").End(xlUp).Row
With Sheets("Liste")
For Lig1 = 3 To Derlig1
Cp = Sheets("Dispo").Cells(Lig1, "B")
For Lig2 = 4 To Derlig2
' If Cp = .Cells(Lig2, "A") Then .Cells(Lig2, "A").Interior.ColorIndex = 6
If .Cells(Lig2, "A") = Cp Then .Cells(Lig2, "A").Interior.ColorIndex = 6
Next Lig2
Next Lig1
End With
End Sub
comment dois je faire svp merci