déceler doublon à la saisie

[mikeo]

Bonjour à tous,

Je connais excel mais débute en VBA. Aussi merci de ne pas rire.

Je voudrais que lorsque on remplit une cellule A2 sur la feuille 1, le numéro saisi ne fasse pas doublon avec une liste sur feuille 2 colonne A

Mon essai de code bien sûr ne marche pas :

Private Sub validation(ByVal Target As Range)
Range("A2").validation
If Not Intersect([a2], Target) Is Nothing Then
Set doublon = Sheets("Feuil2").Range("A:A").Find(What:=Range("A2").Value, LookIn:=xlValues, lookat:=xlWhole)
******MsgBox "Existe déjà"
***** Exit Sub
End If
End Sub

Merci à vous et gros bisous.

Mikeo

 

[Robert]

Re : déceler doublon à la saisie

Bonsoir Mikeo, bonsoir le forum,

En pièce jointe ton fichier modifié avec la macro événementielle Change ci-dessous :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range 'déclare la variable r (Recherche)
 
If Target.Address <> "$A$2" Then Exit Sub 'si le chamgement à lieu ailleurs qu'en A2, sort de la procédure
If Target.Value = "" Then Exit Sub 'si A2 est effacée, sort de la procédure
 
Set r = Sheets("Feuil2").Columns(1).Find(Target.Value, , xlValues, xlWhole) 'définit la recherche
If Not r Is Nothing Then 'condition : si il existe au moins une occurrence dans la colonne A de l'onglet "Feuil2"
    MsgBox "Existe déjà !" 'message
    Target.Value = "" 'efface la valeur éditée
    Target.Select 'place le curseur dans la cellule A2
End If 'fin de la condition
End Sub

 

[mikeo]

Re : déceler doublon à la saisie

Bonsoir Robert,

Merci pour ta réponse qui colle exactement à ma question, avec des améliorations. VBA est comme une langue étrangère qu'on a apprise à l'école. On est incapable de formuler une phrase mais si quelqu'un le dit, ça a l'air simple.

Tu fais partie des personnes qui m'ont beaucoup appris sur ce forum.

Mikeo