bonjour le forum
je voudrais éviter la saisi de doublons dans un classeur
explication
j'ai un classeur avec 12 feuilles
et je voudrais éviter la saisie de doublons dans ces feuilles.
j'ai trouvé cet exemple sur le forum et je voudrais l'élargir sur les autres feuilles
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column = 1 Then
' pour vérifier si la saisie n'existe pas déjà dans les lignes précédentes
' If Application.WorksheetFunction. _
' CountIf(Range(Cells(2, 1), _
' Cells(Target.Row, 1)), Target.Value) > 1 Then
' pour vérifier si la saisie n'existe pas déjà dans la colonne
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
merci de m'apporte votre aide
à bientot
je voudrais éviter la saisi de doublons dans un classeur
explication
j'ai un classeur avec 12 feuilles
et je voudrais éviter la saisie de doublons dans ces feuilles.
j'ai trouvé cet exemple sur le forum et je voudrais l'élargir sur les autres feuilles
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column = 1 Then
' pour vérifier si la saisie n'existe pas déjà dans les lignes précédentes
' If Application.WorksheetFunction. _
' CountIf(Range(Cells(2, 1), _
' Cells(Target.Row, 1)), Target.Value) > 1 Then
' pour vérifier si la saisie n'existe pas déjà dans la colonne
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
merci de m'apporte votre aide
à bientot