Type TableauType
Contenu As String
Coordonnee As Integer
End Type
Sub Inventaire_G()
'G : Macros de colorisation des doublons (en jaune)
'Macro N° 1 (1 minute de travail environ)
Dim Tableau() As TableauType
Dim Cellule, Haut, Bas, Compteur, C2
On Error Resume Next
If Selection Is Nothing Then
MsgBox "Quittez l'userform et Selectionnez une cellule dans la colonne à dédoublonner."
Exit Sub
End If
Colonne = ActiveCell.Column
Haut = Selection.End(xlUp).Row
Bas = Selection.End(xlDown).Row
ReDim Tableau(Bas)
For Compteur = Haut To Bas
Tableau(Compteur).Contenu = Cells(Compteur, Colonne)
Tableau(Compteur).Coordonnee = Cells(Compteur, Colonne).Row
Next
For Compteur = Haut To Bas
For C2 = (Compteur + 1) To Bas
If Tableau(Compteur).Contenu = Tableau(C2).Contenu Then
Cells(Tableau(Compteur).Coordonnee, Colonne).Interior.ColorIndex = 6
Cells(Tableau(C2).Coordonnee, Colonne).Interior.ColorIndex = 6
End If
Next
Next
End Sub