Discussion :

[Blinis]

Bonsoir,

Donc mon problème est le suivant. J'ai une liste déroulante qui me renvoie à une image.
A côté, je place un bouton, qui une fois actionné (click) m'affiche dans une étiquette un texte qui se trouve dans la cellule à côté du nom s'affichant dans une liste déroulante.

Donc, en gros, dans une feuille "Feuil1" il y a ma liste déroulante, mon image, mon bouton, et mon étiquette.
Dans les propriétés de ma liste déroulante il y a "Listfillrange feuil3!A1:A10". C'est donc là que se trouve les noms qui doivent s'afficher. Et sur cette liste il y a ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub ComboBox1_Change()
On Error Resume Next
Dim img As String
img = ComboBox1.Value
Image1.Picture = LoadPicture(ActiveWorkbook.Path & "\" & img & ".jpg")
End Sub

Cela permet d'afficher l'image qui se trouve dans le même dossier et qui a le même nom que la valeur se trouvant dans ma liste déroulante dans la zone image.

Ensuite, cela se complique. J'ai créé un bouton et une étiquette. Et dans mon bouton je tape ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub CommandButton1_Click()
lg = ComboBox1.ListIndex
Label1 = Cells(lg + 1, 2).Value
End Sub

Si je mes mes noms et ce que je veux afficher dans la "Feuil1" tout va bien. En revanche, comme ils sont dans la "Feuil3", il n'y a rien qui s'affiche dans l'étiquette "Label1".

Comment puis je résoudre cela ??

Si vous ne comprenez pas dites le moi surtout, j'essaierai d'être plus clair !!!

[Godzestla]

Bonsoir,

peux-tu préciser ce qui se trouve exactement dans ta feuill3 ?

As-tu essayé de simplement changer la ligne suivante

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Label1 = Cells(lg + 1, 2).Value

en

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Label1 = Sheets("Feuil3").Cells(lg + 1, 2).Value

[Blinis]

Non, effectivement, je n'avais pas essayé...

En fait pour tout dire je ne savais pas que l'on pouvait faire ça, je ne fais du VBA que depuis 2-3 jours, donc j'ai un peu de mal à saisir toutes les possibilités !!!

En tous cas cela fonctionne parfaitement, et je te remercie !!!

[Godzestla]

Et bien alors bienvenu(e) au VBA et sur ce site.

Bonne continuation.