Introduire une image dans un userform autre que le userform activé
3 réponses
ManBas
Bonjour les amis du web,
Avec une macro je change l'image de mon formulaire uf1.
Mais je voudrais que soit aussi changée l'image dans un autre formulaire uf2
non activé à ce moment-là.
La solution que j'avais trouvé était de mettre le code dans uf2 Userform
initialize.
Mais le déroulement inutile du code à chaque ouverture de celui-ci (msgbox
récurrent) ne me convient pas.
Existe t'il une autre possibilité?
Par exemple ce que je sais faire pour les captions n'a pas pu s'adapter dans
ce cas:
Frame1.Caption =
ActiveWorkbook.VBProject.VBComponents("uf2").Designer.Controls("Cadre1").Caption
Code dans uf1:
Dim montitre As Object
Sheets("images").Visible = True
Sheets("images").Select
ChDir ActiveWorkbook.Path
ni = Dir("montitre.jpg")
If ni = "" Then
MsgBox "pas d'image trouvée"
Exit Sub
Else
ActiveSheet.Shapes("montitre").Select
Selection.Delete
Range("images!a40").Select
Set monimage = ActiveSheet.Pictures.Insert(ni)
monimage.Name = "montitre"
Selection.Name = "montitre"
Me.ImageTitre.Picture = LoadPicture("montitre.jpg")
Ici mettre l'ordre de changement pour l'uf2 ??? Merci +++ pour votre aide
toujours efficace.
Me.monimage.Picture = LoadPicture(Photo) ' formulaire actif UserForm1.Image1.Picture = LoadPicture(Photo) ' autre formulaire nommé Userform1
Cordialement JB
ManBas
Bonjour JB, Merci beaucoup. Tu m'as déjà aidé sur ces macros de photos. Une leçon toujours vraie, c'est de clarifier et simplifier. J'avais essayé cette solution sans résultats, mais avec (sans doute?) une erreur d'écriture et surtout la certitude que ça ne marcherais pas! Mon code n'est pas beau et je n'arrive pas encore à le calquer sur le tien. Je vais m'y remettre. A bientôt. "JB" a écrit dans le message de news:
Bonjour,
http://cjoint.com/?dli5nytzwg
Me.monimage.Picture = LoadPicture(Photo) ' formulaire actif UserForm1.Image1.Picture = LoadPicture(Photo) ' autre formulaire nommé Userform1
Cordialement JB
Bonjour JB,
Merci beaucoup.
Tu m'as déjà aidé sur ces macros de photos.
Une leçon toujours vraie, c'est de clarifier et simplifier.
J'avais essayé cette solution sans résultats, mais avec (sans doute?) une
erreur d'écriture et surtout la certitude que ça ne marcherais pas!
Mon code n'est pas beau et je n'arrive pas encore à le calquer sur le tien.
Je vais m'y remettre.
A bientôt.
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1142063907.030039.325560@i40g2000cwc.googlegroups.com...
Bonjour,
http://cjoint.com/?dli5nytzwg
Me.monimage.Picture = LoadPicture(Photo) ' formulaire actif
UserForm1.Image1.Picture = LoadPicture(Photo) ' autre formulaire
nommé Userform1
Bonjour JB, Merci beaucoup. Tu m'as déjà aidé sur ces macros de photos. Une leçon toujours vraie, c'est de clarifier et simplifier. J'avais essayé cette solution sans résultats, mais avec (sans doute?) une erreur d'écriture et surtout la certitude que ça ne marcherais pas! Mon code n'est pas beau et je n'arrive pas encore à le calquer sur le tien. Je vais m'y remettre. A bientôt. "JB" a écrit dans le message de news:
Bonjour,
http://cjoint.com/?dli5nytzwg
Me.monimage.Picture = LoadPicture(Photo) ' formulaire actif UserForm1.Image1.Picture = LoadPicture(Photo) ' autre formulaire nommé Userform1
Cordialement JB
ManBas
Ce qui me pose problème dans ton code c'est la définition de PhotoÎlls(Me.choix_nom.listindex+2,2). Je ne parviens pas à le transcrire dans mon uf parce que je n'ai pas de combobox, seulement un emplacement d'image.
"JB" a écrit dans le message de news:
Bonjour,
http://cjoint.com/?dli5nytzwg
Me.monimage.Picture = LoadPicture(Photo) ' formulaire actif UserForm1.Image1.Picture = LoadPicture(Photo) ' autre formulaire nommé Userform1
Cordialement JB
Ce qui me pose problème dans ton code c'est la définition de
PhotoÎlls(Me.choix_nom.listindex+2,2). Je ne parviens pas à le transcrire
dans mon uf parce que je n'ai pas de combobox, seulement un emplacement
d'image.
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1142063907.030039.325560@i40g2000cwc.googlegroups.com...
Bonjour,
http://cjoint.com/?dli5nytzwg
Me.monimage.Picture = LoadPicture(Photo) ' formulaire actif
UserForm1.Image1.Picture = LoadPicture(Photo) ' autre formulaire
nommé Userform1
Ce qui me pose problème dans ton code c'est la définition de PhotoÎlls(Me.choix_nom.listindex+2,2). Je ne parviens pas à le transcrire dans mon uf parce que je n'ai pas de combobox, seulement un emplacement d'image.
"JB" a écrit dans le message de news:
Bonjour,
http://cjoint.com/?dli5nytzwg
Me.monimage.Picture = LoadPicture(Photo) ' formulaire actif UserForm1.Image1.Picture = LoadPicture(Photo) ' autre formulaire nommé Userform1