Récupérer la valeur cellule vers Contrôle activeX Textbox

Bonjour

Voilà j'ai sur une feuille Excel une liste de nom de film en colonne "B" lorsque je clique dessus un nom j'ai la jaquette du film qui s'affiche dans un contrôle ActiveX image à l'aide de ce code.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
ActiveSheet.Image1.Picture = LoadPicture("") 'Effacer une image
If Not Application.Intersect(Target, ActiveCell) Is Nothing Then
On Error Resume Next
 Chemin = "J:\covers small\" & ActiveCell.Name.Name & ".jpg"
 Image1.Picture = LoadPicture(Chemin)
End If
End Sub

Jusque la tous vas bien

J'aimerai que les contrôle ActiveX textbox qui se trouve sur la feuille soit rempli avec la même ligne qui correspond à la cellule cliquer. Je joint mon fichier qui seras plus explicite.

Cordialement

Max

Re,

Personne a une idée?

@+

Bonjour,

pour l'activeX TextBox1 tu peu écrire :

Me.TextBox1 = "Ton TEXTE"

dans la fonction événementielle de ta feuille :

Worksheet_BeforeDoubleClick

Bonjour Pierre

Je te remercie mais le texte de la cellule change a chaque fois pourquoi mettre

Me.TextBox1 = "Ton TEXTE"

Moi j'avais mis

 Sheets("Feuil1").Range("C20").Value = TextBox1.Text

et sa ne fonctionne pas?

@+

Re

Je comprend pourquoi cela est si compliquer

bonjour,

j'ai regarder un peu et en faisant des test

j'ai trouvé

Me.TextBox1.Text = ActiveCell.Value

rempli ta textbox1 avec le contenu de ta cellule

et donc si tu veux toute les remplir je pense que ça sa fonctionne

Me.TextBox1.Text = ActiveCell.Value
Me.TextBox2.Text = ActiveCell.offset(0,1).Value
Me.TextBox3.Text = ActiveCell.offset(0,2).Value

voila j’espère que ça peut t'aider

Bonjour icemake

Je te remercie sa fonctionne nickel

Bonne après midi

Max