Doublons
Bonjour le Forum,
Je viens à vous pour un petit problème concernant le marquage de doublons dans deux colonnes.
J'ai utilisé une macro qui recherche les doublons en comparant les deux colonnes, mais ne recherche pas les doublons dans chacune des colonnes, dans mon exemple F et G.
Serait-il possible de m'aider à résoudre ce soucis.
Merci d'avance pour votre aide et excellent week-end.
Sub Macro1()
IdentifieDoublons Range("F2:G20")
End Sub
Sub IdentifieDoublons(Plage As Range)
Dim Cell As Range
Dim Un As Collection
Set Un = New Collection
On Error Resume Next
'Boucle sur la plage de cellule
For Each Cell In Plage
'Pour ne pas prendre en compte les cellules vides
If Cell <> "" Then
'Ajoute le contenu de la cellule dans la collection
Un.Add Cell, CStr(Cell)
'Si la procédure renvoie une erreur, cela signifie que l'élément
'existe déjà dans la collection et donc qu'il s'agit d'un doublon.
'Dans ce cas la macro colorie la cellule en vert.
If Err <> 0 Then Cell.Interior.ColorIndex = 4
'Efface toutes les valeurs de l'objet Err.
Err.Clear
End If
Next Cell
Set Un = Nothing
End Sub
Bonjour gmb,
C'est super, mais sans vouloir être lourd est-il possible que la couleur ne se trouve pas dans les cellules vides.
Je joins ton fichier et un exemple de données que je placerai dans 31 feuilles.
En tout les cas merci pour ton intervention et bonne fin de week-end.
Au plaisir de te lire.
Comme ça : ?
Re-bonjour gmb
C'est super et cela va m'aider énormément dans mes recherches.
Je te remercie pour tout et te souhaite une excellente semaine.
Au plaisir.