Bonsoir tous le monde
je me trouve face à un cas qui me demande votre aide
je m'explique je veux comparer deux plages de cellules , pour cela j'ai essayé de creer une macro permettant d'afficher sur un fond rouge les données communes entre les deux plages,mais cela ne marche pas.
dont voici le code et le fichier ci joint
Dim Plage1 As Range, Plage2 As Range, VValeur As Integer
Dim Compteur As Integer
Dim Nbrecellules1 As Integer, Nbrecellules2 As Integer
Set Plage1 = Range("A5", [A5].End(xlDown))
Set Plage2 = Range("C5", [C5].End(xlDown))
Nbrecellules1 = Plage1.Count
Nbrecellules2 = Plage2.Count
Range("A5").Select
For Compteur = 1 To Nbecellules1
VValeur = Selection.Value
If WorksheetFunction.CountIf(Plage2, VValeur) > 0 Then
With Selection.Interior
.ColorIndex = 3
End With
End If
ActiveCell.Offset(1, 0).Range("A1").Select
Next
Range("C5").Select
For Compteur = 1 To Nbecellules2
VValeur = Selection.Value
If WorksheetFunction.CountIf(Plage1, VValeur) > 0 Then
With Selection.Interior
.ColorIndex = 3
End With
End If
ActiveCell.Offset(1, 0).Range("A1").Select
Next
Merci encore une nouvel fois de votre aide
End Sub
je me trouve face à un cas qui me demande votre aide
je m'explique je veux comparer deux plages de cellules , pour cela j'ai essayé de creer une macro permettant d'afficher sur un fond rouge les données communes entre les deux plages,mais cela ne marche pas.
dont voici le code et le fichier ci joint
Dim Plage1 As Range, Plage2 As Range, VValeur As Integer
Dim Compteur As Integer
Dim Nbrecellules1 As Integer, Nbrecellules2 As Integer
Set Plage1 = Range("A5", [A5].End(xlDown))
Set Plage2 = Range("C5", [C5].End(xlDown))
Nbrecellules1 = Plage1.Count
Nbrecellules2 = Plage2.Count
Range("A5").Select
For Compteur = 1 To Nbecellules1
VValeur = Selection.Value
If WorksheetFunction.CountIf(Plage2, VValeur) > 0 Then
With Selection.Interior
.ColorIndex = 3
End With
End If
ActiveCell.Offset(1, 0).Range("A1").Select
Next
Range("C5").Select
For Compteur = 1 To Nbecellules2
VValeur = Selection.Value
If WorksheetFunction.CountIf(Plage1, VValeur) > 0 Then
With Selection.Interior
.ColorIndex = 3
End With
End If
ActiveCell.Offset(1, 0).Range("A1").Select
Next
Merci encore une nouvel fois de votre aide
End Sub
Pièces jointes
Dernière édition: