Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2016 Copier une image contenu dans un UserForm dans la feuille active

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Jgral
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

Jgral

XLDnaute Nouveau
Bonjour,

Je bosse sur un petit projet qui a pour but de faciliter la réalisation d'étude technique pour mon entreprise.

J'avoue être loin d'être un expert en VBA.

En gros l'idée c'est que lorsqu'on un agent clique sur un bouton une fenêtre apparaît. Dans la UserForm ouvert j'ai mis des Images numérotées de 1 à 15 sous lesquelles il y a des cases à cocher afin de les sélectionner. Jusque là tout va nickel. Mais ça ce corse.

Je n'arrive pas a faire afficher l'image sélectionnée :

VB: 
Private Sub CommandButton1_Click() 'Bouton Valider
    If CheckBox1 = True Then
        ActiveSheet.Shapes.Add = UserForm1.Image1 ' Ligne que je n'arrive pas à coder permettant la copie de l'image à laquelle la case coché
    End If
Unload Me
End Sub

Private Sub CommandButton2_Click() 'Bouton Annuler
    Unload Me
End Sub

Voici le UserForm en question pour que vous compreniez bien (c'est pas évident à expliquer 🙂 )



Merci par avance
 
Solution
re
bonjour a tous
je pige pas vraiment le soucis en fait
VB: 
SavePicture Me.Image1.Picture, ThisWorkbook.Path & "\temp.jpg"
With ActiveSheet.Pictures.Insert(ThisWorkbook.Path & "\temp.jpg")
        .Name = Me.Image1.Name
        .Left = [B2].Left
        .Top = [B2].Top
        .Width = Me.Image1.Width
        '.Height = me.image1.width
    End With
Kill ThisWorkbook.Path & "\temp.jpg"
Trier par date Trier par votes
Bonjour Jgral, bienvenue sur XLD,

A mon avis ce que vous voulez faire n'est pas possible.

Il faudrait avoir les fichiers images (.jpg, .png, .gif) qui ont permis de remplir les images de l'UserForm.

PS : prenez l'habitude de joindre le fichier Excel.

A+
 
Vote positif 0 Vote négatif
Bonjour,

Merci de votre retour.
Je dispose de ces images comment puis-je les copier car l'idéal serait que ça fonctionne depuis n'importe quel PC même si il ne dispose pas de la banque d'image ?
 

Pièces jointes

Vote positif 0 Vote négatif
Ouvrez chaque fichier image (JPEG ou autre), clic droit sur l'image => Copier et collez dans votre fichier Excel.

Vous obtenez ainsi des Shapes que vous pouvez dimensionner, déplacer, afficher, masquer à votre guise.
 
Vote positif 0 Vote négatif
Je viens d'ouvrir votre fichier et je vois que les Shapes se trouvent dans la feuille "Eléments étude".

Alors il n'y a plus de problème, il suffit de faire afficher ces Shapes où vous voulez en fonction des choix faits dans l'UserForm.
 
Vote positif 0 Vote négatif
Pour faire simple c'est une banque d'image.

Donc les images sélectionnées doivent apparaître sur le concepteur étude afin d’être ensuite déplacer et utiliser par l'utilisateur. C'est exactement le même principe lorsque vous cliquez sur BRT SOUT TYPE 1. Une zone de texte apparaît mais elle sera forcement déplacées. D'ou le les unes sur les autres car l'image (ou les images) seront forcement déplacées.

Voici les fichier sans le problème de référence circulaire
 

Pièces jointes

Vote positif 0 Vote négatif
Je pense que cela n'a ni queue ni tête, vous risquez de vous retrouver avec des dizaines d'images inutiles dans votre feuille.

Et la référence circulaire c'est à vous de régler ça.

En l'état je laisse tomber.
 
Vote positif 0 Vote négatif
Non pas de dizaine seulement celle qui seront cochées dans le UserForm sachant que cela dépend de l'utilisateur.

Et le référence circulaire est réglée je ne comprends pas votre remarque du coup.
 
Vote positif 0 Vote négatif
Alors je ne dois pas être clair je m'en excuse.

Je reprends donc :

Ce fichier permettra à des agents d'étude de concevoir des schémas. Le UserForm qui s'ouvre présente l'ensemble des dessins nécessaire à la réalisation des ces schémas.

L'utilisateur sera donc à cette occasion amené à sélectionner les images donc il va avoir besoin pour faire son schéma. Ces images je souhaite les faire apparaître dans une cellule. L'utilisateur se chargera ensuite des les récupérer et de les faire glisser à l'endroit ou il veut les mettre.
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

J
  • Résolu(e)
XL 2021 insertion d'image provenant d'unecellule dans un userform
2
Réponses
22
Affichages
479
vgendron
G
  • Question Question
XL 2016 Compte à rebours dans un userform
2
Réponses
15
Affichages
765
patricktoulon
N
  • Résolu(e)
Microsoft 365 Rechercher la dernière cellule saisie dans un TS et ajouter l'heure système
18 19 20
Réponses
297
Affichages
69 K
NONO14
N
astuce pour loader un png dans un activx image dans un userform sans api
Réponses
2
Affichages
550
patricktoulon
N
  • Résolu(e)
Microsoft 365 Recherche dans un tableau structuré à partir d'une TextBox
Réponses
11
Affichages
575
NONO14
N
L
  • Question Question
Autres Copier des données d’un fichier sans l’ouvrir juste en le sélectionnant via un UserForm
Réponses
6
Affichages
780
Liner77
L
F
  • Question Question
XL 2019 l'indice n'appartient pas à la sélection
Réponses
9
Affichages
817
job75
M
  • Résolu(e)
Microsoft 365 Image stockée dans une feuille à l'initialisation du userform
2
Réponses
20
Affichages
2 K
meyscal
M
  • Résolu(e)
XL 2019 OptionButton dans une Userform
Réponses
2
Affichages
410
chinel
C
  • Question Question
Autres Dans Excel, à partir d'un UserForm, copier l'adresse sélectionnée dans enveloppe de publipostage Word et ouvrir la fenêtre "aperçu avant impression"
Réponses
11
Affichages
753
Chatron
C
K
  • Résolu(e)
XL 2019 Imprimer une feuille via userform
2
Réponses
21
Affichages
2 K
Kevin38
K
J
  • Question Question
XL 2016 Formulaire VBA feuille active
Réponses
5
Affichages
925
JeanDidouille
J
  • Question Question
XL 2019 Ajouter un " aperçu avant impression " à ce code
Réponses
7
Affichages
901
Yann71
  • Résolu(e)
XL 2013 icon avec une image Mso dans la barre de titre du UserForm
Réponses
10
Affichages
1 K
patricktoulon
F
  • Résolu(e)
XL 2019 Besoin d'aide pour reporter une donnée d'un Userform vers un tableau
Réponses
2
Affichages
733
Flnte
F
E
  • Question Question
XL 2019 Sauvegarder les données de deux Userform dans une feuille
Réponses
3
Affichages
935
job75
  • Résolu(e)
Microsoft 365 Filtrer un tableau dans une feuille
2
Réponses
20
Affichages
2 K
Electron24
T
  • Résolu(e)
XL 2016 Copier feuille sur classeur protégé
Réponses
12
Affichages
1 K
TechnologyNewStore
T
G
  • Question Question
XL 2019 Répondre à des conditions d'une feuille pour un affichage dans un Userforms
Réponses
3
Affichages
952
cp4
D
  • Question Question
XL 2010 Relation entre deux combobox et suppression d'une ligne
Réponses
3
Affichages
860
Dranreb
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…