Cellule vers textbox sur feuille excel

[maval]

Bonjour,

J'ai sur une feuille excel une liste de films avec "Réalisateur, Acteurs, Titre Original ect...". Je recherche un code VBA pour lorsque je clique sur une cellule toutes les information de la ligne se retrouve dans les "Zone texte "Contrôle ActiveX" approprié ainsi que l'image correspondant au film qui se trouve répertoire = "E:\Film\Covers\".

Je vous joint mon fichier et je vous remercie d'avance

 

[Cousinhub]

Re : Cellule vers textbox sur feuille excel

Bonsoir,

J'ai un peu modifié ton fichier, afin de faire correspondre les numéros de TextBox avec les numéros de colonnes...

J'ai supprimé le Combobox "Genre", auquel je ne voyais aucune utilité...

Et je ne sais pas ce que tu veux mettre dans le TextBox "Nombre de films recensés" (et non "recencé"...)

Par contre, pour l'image, comme je ne sais pas comment sont nommées tes images, ça va pas être simple...

Si tu pouvais mettre une image en pièce jointe, ce serait plus facile...

Bonne soirée

 

[maval]

Re : Cellule vers textbox sur feuille excel

Bonsoir bhbh,

Je te remercie beaucoup, pour les image elles sont nommer par le nom du film
ex; l'image du film Alamo l'image se nomme "Alamo" et elle sont en format Jpeg

merci et bonne soirée

 

[Cousinhub]

Re : Cellule vers textbox sur feuille excel

Re-,

Modifie ainsi :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim I As Byte
Dim LeRep As String
If Target.Count > 1 Then Exit Sub
If Target.Row > 2 And Target <> "" Then
    For I = 1 To 12
        Me.OLEObjects("TextBox" & I).Object.Value = Me.Cells(Target.Row, I).Value
    Next I
    LeRep = ActiveWorkbook.Path & "\" ' ou "E:\Film\Covers\"
    Me.Image1.Picture = LoadPicture(LeRep & Cells(Target.Row, 2) & ".jpg")
End If
End Sub

Bonne soirée