ComboBox = Ajouter image à partir de l'USF
marcelio
Messages postés
56
Date d'inscription
Statut
Membre
Dernière intervention
-
marcelio Messages postés 56 Date d'inscription Statut Membre Dernière intervention -
marcelio Messages postés 56 Date d'inscription Statut Membre Dernière intervention -
Bonjour le Forum,
Dans un USF (FANION) j’ai inséré plusieurs images (boite à outils, image) et insérer les fanions de plusieurs villes.
Sur ma feuille Table avec un double clic sur les cellules suivante : de Q13 à Q19 cela m'ouvre un USF (infos) avec l'image du nom sur lequel j'ai cliquer.
Sur ma feuille Table1
Ce que j'aimerais faire et que je n'y suis pas arriver c'est avec ma combobox 1 en choississant une ville,
c'est de coller l'image de cette ville dans le rectangle 1 ou la Picture 1 à partir des images de l'USF (FANION).
Si cela est possible merci d’avance de votre aide.
Marcelio
https://www.cjoint.com/c/IKskdkG0WdG
--
Dans un USF (FANION) j’ai inséré plusieurs images (boite à outils, image) et insérer les fanions de plusieurs villes.
Sur ma feuille Table avec un double clic sur les cellules suivante : de Q13 à Q19 cela m'ouvre un USF (infos) avec l'image du nom sur lequel j'ai cliquer.
Sur ma feuille Table1
Ce que j'aimerais faire et que je n'y suis pas arriver c'est avec ma combobox 1 en choississant une ville,
c'est de coller l'image de cette ville dans le rectangle 1 ou la Picture 1 à partir des images de l'USF (FANION).
Si cela est possible merci d’avance de votre aide.
Marcelio
https://www.cjoint.com/c/IKskdkG0WdG
Configuration: Windows / Edge 18.18362
--
A voir également:
- ComboBox = Ajouter image à partir de l'USF
- Creer un groupe whatsapp a partir d'un autre groupe - Guide
- Créer une icone à partir d'une image - Guide
- Recherche à partir d'une image - Guide
- Image iso - Guide
- Ajouter à l'écran d'accueil iphone - Guide
6 réponses
Bonjour,
pour copier une image du control image de l'userform sur une feuille:
et pour la supprimer:
Voilà
pour copier une image du control image de l'userform sur une feuille:
Sub copier()
Dim btn As OLEObject
'positionnement et dimensions sur la feuille à adapter
Set btn = ActiveSheet.OLEObjects.Add(ClassType:="Forms.Image.1", Link:=False, _
DisplayAsIcon:=False, Left:=514.5, Top:=101.25, Width:=311.25, Height _
:=212.25)
With btn
.Object.Picture = Image1.Picture 'Control image a adapter
.Object.PictureSizeMode = fmPictureSizeModeZoom
.Object.BorderColor = RGB(255, 0, 0) 'rouge facultatif
.Object.BackColor = RGB(0, 128, 64) 'vert facultatif
End With
End Sub
et pour la supprimer:
Sub EffaceImages()
Dim x As Shape
For Each x In ActiveSheet.Shapes
x.Delete
Next x
End Sub
Voilà
Bonsoir @+Le Pivert et le Forum,
J'ai testé ton code mais celui ci n'affiche pas mes images qui sont dans l'USF Fanion.
Si tu peu me faire un fichier exemple cela serais super.
Bonne soirée à toi et au Forum
Marcelio
--
J'ai testé ton code mais celui ci n'affiche pas mes images qui sont dans l'USF Fanion.
Si tu peu me faire un fichier exemple cela serais super.
Bonne soirée à toi et au Forum
Marcelio
--
Bonjour @+Le Pivert et le Forum,
Merci pour ton code.
J'ai fait comme ton code, mais cela ne fonctionne pas correctement.
Si tu peu regarder ce que j'ai oublier de faire.
Merci
J'ai renommer les images
Marcelio
https://cjoint.com/c/IKtlbkNx81G
--
Merci pour ton code.
J'ai fait comme ton code, mais cela ne fonctionne pas correctement.
Si tu peu regarder ce que j'ai oublier de faire.
Merci
J'ai renommer les images
Marcelio
https://cjoint.com/c/IKtlbkNx81G
--
Il faut changer l'index de la comboBox!
Comme cela
@+ Le Pivert
Private Sub ComboBox1_Change() Select Case ComboBox1.ListIndex Case Is = 1 EffaceImages copierjanvier Case Is = 2 EffaceImages copierfévrier Case Is = 3 EffaceImages copiermars Case Is = 4 EffaceImages copiertomate Case Is = 5 EffaceImages copieravril End Select End Sub
Comme cela
@+ Le Pivert
Re,
Super merci beaucoup @+ Le Pivert de ton aide, cela fonctionne super bien.
Bon après midi à toi et au forum.
Marcelio
--
Super merci beaucoup @+ Le Pivert de ton aide, cela fonctionne super bien.
Bon après midi à toi et au forum.
Marcelio
--
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Re,
Encore moi.
J'ai fait les modifs cela à fonctionner, une fois Excel fermer, et à l'ouverture du fichier impossible de changer de nom ça mouline.
Je peu plus rien faire.
Si tu à une nouvelle solution.
Merci
Marcelio
--
Encore moi.
J'ai fait les modifs cela à fonctionner, une fois Excel fermer, et à l'ouverture du fichier impossible de changer de nom ça mouline.
Je peu plus rien faire.
Si tu à une nouvelle solution.
Merci
Marcelio
--
Ta manière de procéder n'est pas très orthodoxe!
Allez récupérer une image dans une UserForm, ce n'est pas courant.
Quand on peut faire autrement c'est préférable.
Regarde ceci, il y a plein d'exemples:
http://boisgontierjacques.free.fr/pages_site/lesimages.htm#ImageInterne
bon courage
@+ Le Pivert
Allez récupérer une image dans une UserForm, ce n'est pas courant.
Quand on peut faire autrement c'est préférable.
Regarde ceci, il y a plein d'exemples:
http://boisgontierjacques.free.fr/pages_site/lesimages.htm#ImageInterne
bon courage
@+ Le Pivert