XL 2016 Ajouter données à une form

[Jujube]

Bonjour, bonsoir je suis encore en panne et je sollicite votre aide s.v.p..
De ma feuille TEST du fichier ci-joint, j'aimerais, quand cliquant ou double cliquant sur le nom, d'aller récupérer les cinq champs qui se trouve sur la feuille DATA et des ajouter dans les champs correspondants de ma form (frmTest).

La seule information que je veux voir dans la feuille TEST est le nom et prénom.

Merci

 

[fanfan38]

Bonjour
J'espère avoir répondu à ton problème
c'est plus prudent d'avoir une colonne nom et une autre prénom..
A+ François

 

[Jujube]

Bonjour Fanfan38, ta réponse est pas mauvaise, mais je que je désire faire est que pas seulement le nom de la personne soit dans le formulaire, mais j'aimerais avoir l'adresse, le téléphone et le code postal également?
Merci ton ton aide.

 

[sylvanu]

Bonjour Jujube, Fanfan,
Un essai en PJ avec :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  Dim tablo, Nom As String, Prénom As String, Indice As Integer, L As Integer, DerLig As Integer
  tablo = Split(Target, " ")
  Prénom = tablo(0)
  Nom = tablo(1)
  DerLig = Sheets("Data").Range("A65500").End(xlUp).Row
  Indice = 0
  For L = 2 To DerLig
    If Sheets("Data").Cells(L, "A") = Nom And Sheets("Data").Cells(L, "B") = Prénom Then
        Indice = L
        Exit For
    End If
  Next L
  If Indice = 0 Then Exit Sub ' Non trouvé
 
  frmTest.txtNom.Value = Sheets("Data").Cells(Indice, "A")
  frmTest.txtPrenom = Sheets("Data").Cells(Indice, "B")
  frmTest.txtAdresse = Sheets("Data").Cells(Indice, "C")
  frmTest.txtTelephone = Sheets("Data").Cells(Indice, "D")
  frmTest.txtCodePostal = Sheets("Data").Cells(Indice, "E")
  frmTest.Show
End Sub

 

[Jujube]

Merci beaucoup Sylvanu, ta réponse me satisfait grandement. Je sais que j'ai beaucoup à apprendre en vba excel et ta réponse m'éclaire énormément.
Bonne fin de journée