Appel une image par une cellule

[maval]

Bonjour,

Je recherche un code pour appeler une image en cliquant dans une cellules de la colonne "B" portant le même non que la cellule et envoyer dans un contrôle image activeX et en sachant que les images se trouvent dans le même dossier "Image"

Je vous remercie de votre aide

 

[max.lander]

Salut à tous, maval,

Un essai à ajouter à un module feuille

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Not Application.Intersect(Target, ActiveCell) Is Nothing Then

On Error Resume Next
chemin = "D:\" & ActiveCell.Name.Name & ".jpg"

Image1.Picture = LoadPicture(chemin)

End If



End Sub

a+

 

[maval]

Salut max.lander

Non je pense que l'on ses pas compris. En faite je clique dans une cellule de la colonne "B" et dans mon contrôle activeX je doit avoir mon image qui porte le même non que ma cellule cliquer sans passer par un userform

Je te remercie et bonne après midi

 

[max.lander]

Salut maval,

Je viens de modifier le code, "Image1" pour un contrôle Activex image.
Quand tu cliques dans une cellule, le code récupéré l'image dans D : portant le même nom que la cellule en question.

Il faut donc nommer les cellules au préalable.

Dis nous si c'est bon

A+

 

[maval]

Re

Dans la feuille j'ai mis ceci mais quand je clic sur un cellule de la colonne "B" il ne se passe rien?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
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

@+

 

[max.lander]

Tu trouveras en Pj un classeur peux-tu nous dire si ça fonctionne chez toi, la cellule b1 s'appelle "Desert"

Tu dois nommer tes cellules et mettre ton code dans un module feuille.

Dis nous si ça fonctionne

 

[maval]

Re

Regarde j'ai fait une démo
@+

 

[max.lander]

Ok dans ta demande tu parles de l'image ayant le même nom que la cellule alors que dans ton exemple il s'agit du contenu de la cellule.

essaye en remplaçant :

ActiveCell.Name.Name

par

ActiveCell.Text

 

[maval]

Re

Oui cela est mieux mais pourquoi est-il si long alors que l'image et légers?

 

[maval]

Re

J'ai mis ceci

PictureSizeMode = 3

pour que l'image soit adapter au contrôle activeX sa ne fonctionne pas?

Non c'est bon je suis passer par propriété du controle
@+

 

[max.lander]

Parfait !

A+

 

[maval]

Re,

Pourrez tu me dire comment je doit faire:
J'ai mis deux textbox sur ma feuille et j'aimerai envoyer les renseignements qui se trouve sur la même ligne que les images elles se trouvent dans les colonnes "C & D". C'est à dire que si je clique sur "B5" ce sont les celulles "C5 & D5" qui doivent aller sr les textbox 1 & 2.
Je te remercie et te souhaite une bonne soirée

 

[max.lander]

Salut,

Essaye d'adapter quelque chose du style :

Private Sub TextBox1_Change()

Sheets("Feuil1").Range("C5" ).value = TextBox1.Text

End Sub

 

[maval]

Salut
Regarde j'ai mis le fichier sa ne fonctionne pas a moins que?

 

[max.lander]

Je n'avais pas compris ta demande :

remplace tout ton code par celui là :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim Col As Integer

Col = ActiveCell.Column

If Col = 2 Then

If Not Application.Intersect(Target, ActiveCell) Is Nothing Then

  On Error Resume Next
     Chemin = "J:\jaquettes\" & ActiveCell.Text & ".jpg"
Image1.Picture = LoadPicture(Chemin)


TextBox1.Text = ActiveCell.Value '(Row, Column + 1).Value

TextBox2.Text = ActiveCell(Row, Column + 3).Value
TextBox3.Text = ActiveCell(Row, Column + 2).Value
TextBox4.Text = ActiveCell(Row, Column + 4).Value

End If

Else: Exit Sub
End If

End Sub