OVH Cloud OVH Cloud

Introduire une image dans un userform autre que le userform activé

3 réponses
Avatar
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.

3 réponses

Avatar
JB
Bonjour,


http://cjoint.com/?dli5nytzwg

Me.monimage.Picture = LoadPicture(Photo) ' formulaire actif
UserForm1.Image1.Picture = LoadPicture(Photo) ' autre formulaire
nommé Userform1

Cordialement JB
Avatar
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
Avatar
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