Visionner image au click sur cellule

[maval]

Bonjour

J'ai sur une feuille nommer "Données" avec une liste de nom, et lorsque je click sur une cellule il s'affiche un userform avec l'image correspondant au nom de la cellule. Jusqu'ici pas de problème.
J'aimerai si possible que lorsque je click sur une cellule "B2:B100" et qu'il n'y pas d'image correspondant au nom de la cellule alors il affiche une image comme ex: celle qui se trouve sur la feuille.

Je vous remercie d'avance

 

[job75]

Re : Visionner image au click sur cellule

Bonjour maval,

Mettez le fichier WarnerBros.jpg ci-joint dans le même répertoire que les autres images.

Et donc dans le code de l'USF utilisez :

Private Sub Combobox1_Change()
Dim répertoire$, fich$
If ComboBox1.ListIndex < 0 Then Exit Sub
répertoire = "J:\covers\"
fich = répertoire & ComboBox1 & ".jpg"
Image1.Picture = LoadPicture(IIf(Dir(fich) = "", répertoire & "WarnerBros.jpg", fich))
End Sub

Je vous laisse voir pour les valeurs à donner à la propriété PictureSizeMode.

A+

 

[maval]

Re : Visionner image au click sur cellule

Bonsoir Job

Je vous remercie et vous souhaite une bonne soirée

 

[job75]

Re : Visionner image au click sur cellule

Re,

Pour la SelectionChange de la feuille "Données" :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Column = 2 And Target(1) <> "" Then _
    UserForm6.ComboBox1 = Target(1): UserForm6.Show 0
 End Sub

Le fait de renseigner ComboBox1 déclenche la macro ComboBox1_Change.

Bonne nuit.

 

[job75]

Re : Visionner image au click sur cellule

Re,

Avant d'aller dormir, il me paraît judicieux de mettre les propriétés d'Image1 :

- BackStyle sur 0 (transparent)

- BorderStyle sur 0 (pas de bordure)

- PictureSizeMode sur 3 (Zoom pour avoir le remplissage maximum).

Rebonne nuit.

 

[maval]

Re : Visionner image au click sur cellule

Re,

Je vous remercie

Bonne nuit.