[réglé]Macro doublon

Jefekoi · 8 Décembre 2018

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 · 8 Décembre 2018

Bonsoir,

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

Bonne soirée.

BOISGONTIER · 8 Décembre 2018

Bonsoir,

Exemple en PJ

Code:

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 · 8 Décembre 2018

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 · 8 Décembre 2018

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

Encore merci à vous deux

BOISGONTIER · 8 Décembre 2018

>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 · 8 Décembre 2018

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

[réglé]Macro doublon

Jefekoi

XLDnaute Junior

cp4

XLDnaute Barbatruc

BOISGONTIER

XLDnaute Barbatruc

Pièces jointes

Jefekoi

XLDnaute Junior

Jefekoi

XLDnaute Junior

BOISGONTIER

XLDnaute Barbatruc

Jefekoi

XLDnaute Junior

Discussions similaires