alias_2003
XLDnaute Occasionnel
Bonjour à tous
J'aimerais adapter le code suivant pour empêcher la saisie de doublons (défini par exemple comme valeur définie en A3 et B3 et C3 identique à celle entrée en A9 et B9 et C9). Je joins mon fichier pour que ce soit plus clair...
Merci de votre aide,
Bonne journée
J'aimerais adapter le code suivant pour empêcher la saisie de doublons (défini par exemple comme valeur définie en A3 et B3 et C3 identique à celle entrée en A9 et B9 et C9). Je joins mon fichier pour que ce soit plus clair...
Code:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim Colonne As Integer
Dim Adresse As String
'Définit la colonne à vérifier (1=Colonne A, 2=colonne B ...etc...)
Colonne = 1
'Vérifie si c'est la colonne cible a été modifiée
If Target.Column = Colonne Then
'Recherche si la nouvelle donnée existe déjà dans la colonne.
Adresse = Columns(Colonne).Find(What:=Target.Value, After:=Target.Offset(1, 0), LookAt:=xlWhole, _
SearchDirection:=xlNext).Address
'Si l'adresse de cellule trouvée ne correspond pas à la cellule modifiée, cela
'signifie qu'il y a un doublon dans la colonne.
If Adresse <> Target.Address Then
MsgBox "Attention ! '" & Target & "' existe déjà dans la cellule " & Adresse
'Suppression de la donnée
Target.Value = ""
Target.Select
End If
End If
End Sub
Merci de votre aide,
Bonne journée
Dernière édition: