TextBox

Bonjour tout le monde,

Je fais appel à vous car j'ai une question

Je souhaiterais comme dans le fichier mis en pièce jointe.

Remplir le Prénom et le Nom dans la Feuil 2 avec les données de la Feuil 1

Pour cela j'ai crée un TextBox où l'on écrit le numéro de la ligne dont on souhaite obtenir le nom et prénom.

Le problème avec le code que j'ai fait c'est que ça marche seulement si le TextBox est dans la Feuil 2.

Savez-vous comment faire pour que le code marche alors que le TextBox est dans la Feuill1

Option Explicit

Sub exemple()

    Dim A As Worksheet
    Set A = Worksheets("Feuil1")
    Dim B As Worksheet
    Set B = Worksheets("Feuil2")

Dim lig As Integer
lig = TextBox1.Value

B.Cells(2, 1).Value = B.Cells(lig, 1).Value & " " & B.Cells(lig, 2).Value   'Nom et Prénom

End Sub

Merci beaucoup

Tu peux mettre ça dans la feuille 1

Private Sub TextBox1_Change()
    lig = TextBox1.Value
    ActiveWorkbook.Sheets("Feuil2").Cells(2, 1).Value = Cells(lig, 1).Value & " " & Cells(lig, 2).Value
End Sub

Je n'avais pas vu mais tu étais sur la feuille 2

J'ai essayé mais ça me met erreur de compilation : membre de données ou de méthode introuvable en me surlignant :

lig = A.TextBox1.Value

Bonjour le fil, bonjour le forum,

Essaie comme ça :

Sub exemple()
Dim A As Worksheet
Dim B As Worksheet
Dim lig As Integer

Set A = Worksheets("Feuil1")
Set B = Worksheets("Feuil2")
lig = Worksheets("Feuil1").TextBox1.Value 'A.TextBox1 ne marche pas, ne me demande pas pourquoi...
B.Cells(2, 1).Value = A.Cells(lig, 1).Value & " " & A.Cells(lig, 2).Value   'Nom et Prénom
End Sub

Merci beaucoup ThauTheme, ça fonctionne parfaitement

Re,

Pourquoi si compliqué ?!... La même chose sans TextBox ni bouton, en double-cliquant sur un nom...

C'est vrai que c'est plutôt pas mal avec le double clic.

Merci pour l'idée