Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel code liste deroulante / image VB

code liste deroulante / image VB

2 réponses
Avatar
GARAULT
Bonjour

voici un code pour realiser les choses suivantes:

dans une fen^tre vb j'ai une liste déroulante avec des valeurs.
quand je clic sur une des valeur dans la liste déroulante une fenêtre s'ouvre.
le code suivant se trouve dans la fenêtre qui s'ouvre.
je voudrais que ce code me permette d'affiche une image (dans la fenêtre qui
s'ouvre). qui corresponde avec la valeur selectionné dans la premiere fenêtre

combobox2 c la liste déroulante de la feuil vb etapedevis. voici le code
mais sa fonctionne pas. Quelqu'un peu m'aider

Private Sub Image_Initialize()

If ComboBox2.Value = "Entrée d'air ext blanc 1KEA119" Then
Image2.Picture = LoadPicture("C:\Documents and Settings\Métreur1\Mes
documents\Mes images\ext_fenetres_thumb.jpg")
Image2.PictureSizeMode = fmPictureSizeModeZoom
Else

End If

End Sub
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
MichDenis
Si ton combobox2 appartient à la première fenêtre de ton premier userform,
tu dois dans ton code ne pas oublier d'y faire référence pour permettre à ton
application de "comprendre" où et à quel userform appartient le combobox2

If Userform1.Combobox2.Value = .....

'___________
Private Sub Image_Initialize()

If ComboBox2.Value = "Entrée d'air ext blanc 1KEA119" Then
Image2.Picture = LoadPicture("C:Documents and SettingsMétreur1Mes
documentsMes imagesext_fenetres_thumb.jpg")
Image2.PictureSizeMode = fmPictureSizeModeZoom
Else

End If

End Sub
'___________



"GARAULT" a écrit dans le message de news:

Bonjour

voici un code pour realiser les choses suivantes:

dans une fen^tre vb j'ai une liste déroulante avec des valeurs.
quand je clic sur une des valeur dans la liste déroulante une fenêtre s'ouvre.
le code suivant se trouve dans la fenêtre qui s'ouvre.
je voudrais que ce code me permette d'affiche une image (dans la fenêtre qui
s'ouvre). qui corresponde avec la valeur selectionné dans la premiere fenêtre

combobox2 c la liste déroulante de la feuil vb etapedevis. voici le code
mais sa fonctionne pas. Quelqu'un peu m'aider

Private Sub Image_Initialize()

If ComboBox2.Value = "Entrée d'air ext blanc 1KEA119" Then
Image2.Picture = LoadPicture("C:Documents and SettingsMétreur1Mes
documentsMes imagesext_fenetres_thumb.jpg")
Image2.PictureSizeMode = fmPictureSizeModeZoom
Else

End If

End Sub
Avatar
GARAULT
je comprend pas, même avec ce code, sa ouvre pas mon image :-/

Private Sub Image_Initialize()

If etapedevis2.ComboBox2.Value = "Entrée d'air ext blanc 1KEA119" Then
Image2.Picture = LoadPicture("C:Documents and SettingsMétreur1Mes
documentsMes imagesext_fenetres_thumb.jpg")
Image2.PictureSizeMode = fmPictureSizeModeZoom
Else

End If

End Sub

Private Sub image2_Click()
If RepAffichage = vbimage2 Then

Unload Me ' Ligne à rajouter
Else
End If

End Sub

Private Sub UserForm_Click()

End Sub




Si ton combobox2 appartient à la première fenêtre de ton premier userform,
tu dois dans ton code ne pas oublier d'y faire référence pour permettre à ton
application de "comprendre" où et à quel userform appartient le combobox2

If Userform1.Combobox2.Value = .....

'___________
Private Sub Image_Initialize()

If ComboBox2.Value = "Entrée d'air ext blanc 1KEA119" Then
Image2.Picture = LoadPicture("C:Documents and SettingsMétreur1Mes
documentsMes imagesext_fenetres_thumb.jpg")
Image2.PictureSizeMode = fmPictureSizeModeZoom
Else

End If

End Sub
'___________



"GARAULT" a écrit dans le message de news:

Bonjour

voici un code pour realiser les choses suivantes:

dans une fen^tre vb j'ai une liste déroulante avec des valeurs.
quand je clic sur une des valeur dans la liste déroulante une fenêtre s'ouvre.
le code suivant se trouve dans la fenêtre qui s'ouvre.
je voudrais que ce code me permette d'affiche une image (dans la fenêtre qui
s'ouvre). qui corresponde avec la valeur selectionné dans la premiere fenêtre

combobox2 c la liste déroulante de la feuil vb etapedevis. voici le code
mais sa fonctionne pas. Quelqu'un peu m'aider

Private Sub Image_Initialize()

If ComboBox2.Value = "Entrée d'air ext blanc 1KEA119" Then
Image2.Picture = LoadPicture("C:Documents and SettingsMétreur1Mes
documentsMes imagesext_fenetres_thumb.jpg")
Image2.PictureSizeMode = fmPictureSizeModeZoom
Else

End If

End Sub