[réglé]Macro doublon

[Jefekoi]

Bonjour,

J’essaie depuis un moment sans trouver la solution (si non je ne serais pas là )

1) Je dois enregistrer des données sur une rangée
Exemple :

Nom : age : téléphone etc .

2) avant de remplir les infos il faut bien sur, vérifier si le nom existe déjà

Et c'est là ou je bloque , pas moyen de vérifier en colonne A:A si le Nom que je vais mettre existe ou pas


Pourriez vous m'aider en Macro bien sur ?


Eric

 

[cp4]

Bonsoir,

Fait une recherche sur la fonction FIND.
une piste à exploiter.

Bonne soirée.

 

[BOISGONTIER]

Bonsoir,

Exemple en PJ

Private Sub nom_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
  Set f = Sheets("BD")
  temp = Application.Match(Me.nom, f.[A2:A10000], 0)
  If Not IsError(temp) Then
     MsgBox "Doublon"
     Cancel = True
     Exit Sub
  End If
End Sub

Boisgontier

 

[Jefekoi]

Merci beaucoup pour vos réponse mais BoisGontier je comprend mal ta source , je ne veux pas créer un userform mais simplement chercher sur une colonne si il y a un doublon

CP4 , je vais voir du coté de find, merci

 

[Jefekoi]

Haaaaaa première recherche avec FIND et ça marche Yessssss

Encore merci à vous deux

 

[BOISGONTIER]

>je ne veux pas créer un userform

2 scénarios de saisie directe avec restitution de l'ancienne valeur si doublon:

http://boisgontierjacques.free.fr/fichiers/Cellules/SaisieAntiDoublons.xls
http://boisgontierjacques.free.fr/fichiers/Evenementiel/DoublonsSaisie4.xls

Boisgontier

 

[Jefekoi]

Excellent programme BoisGontier Merci beaucoup je les gardes dans mon dossier des favoris en programmes Excel