Bonjour,
J'ai trouvé sur le forum ce code pour signaler les doublons dans une colonne.
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column = 1 Then
If Application.WorksheetFunction. _
CountIf(Range("A:A"), Target.Value) > 1 Then
MsgBox "Vous avez déjà saisi ce numéro -- recommencer"
Target.Value = ""
Target.Select
End If
End If
End Sub
Ce code permet donc de repérer les doublons dans la colonne A.
Comment l'adapter afin de repérer les doublons existants dans la colonne B, puis la colonne C puis la D.
Merci de votre aide.
J'ai trouvé sur le forum ce code pour signaler les doublons dans une colonne.
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column = 1 Then
If Application.WorksheetFunction. _
CountIf(Range("A:A"), Target.Value) > 1 Then
MsgBox "Vous avez déjà saisi ce numéro -- recommencer"
Target.Value = ""
Target.Select
End If
End If
End Sub
Ce code permet donc de repérer les doublons dans la colonne A.
Comment l'adapter afin de repérer les doublons existants dans la colonne B, puis la colonne C puis la D.
Merci de votre aide.
Dernière édition: