J'ai un userform que j'appelle depuis deux macros différentes. Je voudrais
que l'image de fond (picture) soit différente en fonction de ces macros
(affecter deux fichiers jpg différents).
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
Daniel.C
Bonsoir. Dans un module :
Public Image As String Sub test1() Image = "test1" ' UserForm1.Show End Sub Sub test2() Image = "test2" ' UserForm1.Show End Sub
dans le code du userform :
Private Sub UserForm_Initialize() If Image = "test1" Then Me.Picture = _ LoadPicture("C:Documents and SettingsColardelleMes documentsMes imagesAmélie.bmp") ElseIf Image = "test2" Then Me.Picture = _ LoadPicture("C:Documents and SettingsColardelleMes documentsMes imagesdepartements.gif") End If End Sub
Cordialement. Daniel "Catapauye" a écrit dans le message de news: wevkj.103$
Bonjour,
J'ai un userform que j'appelle depuis deux macros différentes. Je voudrais que l'image de fond (picture) soit différente en fonction de ces macros (affecter deux fichiers jpg différents).
Cela est-il possible ?
Merci d'avance pour vos réponses. Catapauye
Bonsoir.
Dans un module :
Public Image As String
Sub test1()
Image = "test1" '
UserForm1.Show
End Sub
Sub test2()
Image = "test2" '
UserForm1.Show
End Sub
dans le code du userform :
Private Sub UserForm_Initialize()
If Image = "test1" Then
Me.Picture = _
LoadPicture("C:Documents and SettingsColardelleMes documentsMes
imagesAmélie.bmp")
ElseIf Image = "test2" Then
Me.Picture = _
LoadPicture("C:Documents and SettingsColardelleMes documentsMes
imagesdepartements.gif")
End If
End Sub
Cordialement.
Daniel
"Catapauye" <francelga@t_es_laide.fr> a écrit dans le message de news:
wevkj.103$hs1.125@nntpserver.swip.net...
Bonjour,
J'ai un userform que j'appelle depuis deux macros différentes. Je voudrais
que l'image de fond (picture) soit différente en fonction de ces macros
(affecter deux fichiers jpg différents).
Public Image As String Sub test1() Image = "test1" ' UserForm1.Show End Sub Sub test2() Image = "test2" ' UserForm1.Show End Sub
dans le code du userform :
Private Sub UserForm_Initialize() If Image = "test1" Then Me.Picture = _ LoadPicture("C:Documents and SettingsColardelleMes documentsMes imagesAmélie.bmp") ElseIf Image = "test2" Then Me.Picture = _ LoadPicture("C:Documents and SettingsColardelleMes documentsMes imagesdepartements.gif") End If End Sub
Cordialement. Daniel "Catapauye" a écrit dans le message de news: wevkj.103$
Bonjour,
J'ai un userform que j'appelle depuis deux macros différentes. Je voudrais que l'image de fond (picture) soit différente en fonction de ces macros (affecter deux fichiers jpg différents).