Code pour supprimer des doublons : ne fonctionne pas

Bonsoir,

En premier, je voudrais m'excuser pour ce désagrément que j'ai provoqué. Le fichier que j'avais téléchargé sur le forum après contrôle fonctionne sur mon ordinateur alors en toute bonne foi, j'ai cru que cela, allez fonctionner sur le forum et je réitère toutes mes excuses.

Je vous envoie un code, si vous auriez le temps de le contrôler et me le corriger si cela vous est possible. Je, vous en serez très reconnaissant.

Ce code sert pour une base de donnée où il est inscrit numéro, nom, date de naissance, date de décès, nom du père et de la mère.

Je voudrais prendre comme doublons le nom, mais ce qui déclencherait le doublon serait la date de naissance.

Merci pour votre aide

Edit modo : il faut donner le code en texte non en image

'Procédure permettant d'interdire de saisir un doublon dans une base

Private Sub txt_naissance_Exit(ByVal Cancel As MSForms.ReturnBoolean)

    'On se psitionne sur la feuille active et en cellule D2
    ActiveSheet.Range("D2").Select
    'On parcours toutes les cellules de la colonne D jusqu'à
    'soit la valeur trouvée ou la première cellule vide
    Do Until ActiveCell = UCase(txt_naissance) Or ActiveCell = ""
        ActiveCell.Offset(1, 0).Select 'On descend une ligne vers le bas
    Loop
    'On teste si la valeur a été trouvée.
    If ActiveCell = UCase(txt_naissance.Value) Then
        lblMessage = "Le nom existe " & ActiceCell & " existe déjà dans la base de donnée."
        txt_naissance = ""
        txt_naissance.SetFocus
    Else
        Exit Sub
        lblMessage = ""
    End If

End Sub

Voici le fichier

Bonjour Lucky

Mais, je ne cherche pas plus loin pour l'instant :

lblMessage = "Le nom existe " & ActiceCell & " existe déjà dans la base de donnée."

ActiceCell ?? Faute de frappe

Re

Quand tu lances ta recherche Généalogie , tu es sur Feuil3

'On se psitionne sur la feuille active et en cellule D2
    ActiveSheet.Range("D2").Select

Et là tu travailles sur feuille active, donc feuil3 : il n'y a pas de données, donc tu ne peux rien contrôler