Bonjour,
je débute en VBA et je recherche à détecter des doublons dans une colonne:
Sub Doublon()
Dim Plage As Range
Dim Cel As Range
With Worksheets("Nombre_caractère_FID")
'en colonne "B" à partir de B2
Set Plage = Range("B2", Range("B2").End(xlDown))
End With
'Parcours la sélection est colorie en rouge les doublons"
For Each Cel In Plage
If Application.CountIf(Plage, Cel.Value) > 1 Then
Cel.Interior.ColorIndex = 3
End If
Next Cel
End Sub
Ce code fonctionne en revanche, j'aimerai rendre dynamique la valeur B2: en ligne 1, j'ai des titres et j'aimerai en fonction d'un titre regarder dans cette colonne.
Si une personne a une idée, merci de votre aide.