Bouton de commande recherche pour fichier de généalogie

Bonjour,

J'ai un fichier de généalogie d'environ 30000 lignes et j'ai mis un bouton de commande à côté des lignes des enfants qui auraient la fonction d'aller rechercher le père qui lui pourrait aller chercher dans la base des noms sont père comme mis sur le fichier joint

Merci pour votre aide

Bonne journée

Lucky

Bonjour,

Beaucoup de bla bla pour ne rien comprendre

Slts

Bonjour Lucky et le forum
Tout d'abord, pourquoi ne pas utiliser le tableau structuré (Tableau14) pour toutes les manip?
Je ne sais pas si j'ai bien compris votre demande. Je choisis un nom d'enfant dans le Cb_Enfant_1 (ex: Charlie) je clique sur le CommandButton1, le nom du père, s'il existe, apparait dans le Cb_list_nom_père.

Private Sub CommandButton1_Click()
Dim Position As Long
If Me.cb_enfant_1 = vbNullString Then Exit Sub
    With [Tableau14]
        Position = .Find(Me.cb_enfant_1, LookIn:=xlValues, LookAt:=xlWhole).Row - .Row + 1
        Me.cb_list_nom_père = .Item(Position, 11)
    End With
End Sub

Mais comme il y a des doublons, je doute!!!

Cdt
Papy Henri