Code VBA remplissage UserForm

Bonjour,

Actuellement j'ai une UserForm qui remplie un tableau (Nom prenom et age )

Quand je tape un nom et je clic sur rechercher, si le nom existe une fenêtre s’ouvre pour me dire qu'il existe

Maintenant je souhaiterais que lorsque ce nom existe, les case de la UserForm se remplisses avec les infos du tableau

Je vous joint le style de fichier et UserForm que je souhaite

Merci d'avance

Bonjour,

Sur Exit() du TextBox Nom :

Private Sub Nom_Exit(ByVal Cancel As MSForms.ReturnBoolean)

    Dim Trouve As Range, PlageDeRecherche As Range

   Valeur_Cherchee = Nom.Text

    Set PlageDeRecherche = ActiveSheet.Columns(1)
    Set Trouve = PlageDeRecherche.Cells.Find(Nom.Text, , xlValues, xlWhole)

    If Not Trouve Is Nothing Then

        Prenom.Text = Trouve.Offset(, 1).Value
        Date_naissance.Text = Trouve.Offset(, 2).Value

    End If

End Sub

Bonjour,

pas ma spécialité mais ça devrait commencer par ceci je pense :

ton code ici
ton code ici
ton code ici

If Trouve Is Nothing Then
    'la valeur n'est pas trouvée
    AdresseTrouvee = " NON ENREGISTRE "
Else
    'la valeur est trouvée
'    AdresseTrouvee = " ENREGISTRE "
    Me.Prenom = Trouve.Offset(, 1)
    Me.Date_naissance = Trouve.Offset(, 2)
End If
'MsgBox AdresseTrouvee
'
'vidage des variables
ton code ici
ton code ici
ton code ici

Ok je teste ça demain et je vous tiens au courant

Bonjour

recherche avec une listbox a voir

A+

Maurice

Les 2 solutions fonctionnes

super merci beaucoup