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

Jgral · 2 Décembre 2019

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

patricktoulon · 3 Décembre 2019

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"

job75 · 2 Décembre 2019

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+

Jgral · 2 Décembre 2019

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 ?

job75 · 2 Décembre 2019

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.

job75 · 2 Décembre 2019

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.

Jgral · 2 Décembre 2019

Merci mais pourriez vous m'en dire plus je n'ai jamais fait cela.

Je vous joins le fichier avec l'onglet éléments contenant les images.

job75 · 2 Décembre 2019

C'est à vous de nous en dire plus : quand et où voulez-vous placer ces Shapes ?

Jgral · 2 Décembre 2019

Lorsque je valide dans le UserForm je souhaite que toutes les images sélectionnées apparaissent dans l'onglet concepteur étude dans une cellule (les unes sur les autres)

job75 · 2 Décembre 2019

Quelle(s) cellule(s) ? Et "les unes sur les autres" paraît vraiment bizarre...

SVP corrigez cette histoire de "référence circulaire" à l'ouverture du fichier, c'est insupportable !

Jgral · 2 Décembre 2019

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

job75 · 2 Décembre 2019

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.

Jgral · 2 Décembre 2019

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.

job75 · 2 Décembre 2019

OK vous avez corrigé la référence circulaire mais pas la question de fond.

Jgral · 2 Décembre 2019

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.

job75 · 2 Décembre 2019

Dites à vos utilisateurs de copier les images qui existent pour les coller où ils veulent !!!

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

Jgral

XLDnaute Nouveau

patricktoulon

job75

XLDnaute Barbatruc

Jgral

XLDnaute Nouveau

Pièces jointes

job75

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Jgral

XLDnaute Nouveau

Pièces jointes

job75

XLDnaute Barbatruc

Jgral

XLDnaute Nouveau

job75

XLDnaute Barbatruc

Jgral

XLDnaute Nouveau

Pièces jointes

job75

XLDnaute Barbatruc

Jgral

XLDnaute Nouveau

job75

XLDnaute Barbatruc

Jgral

XLDnaute Nouveau

job75

XLDnaute Barbatruc

Discussions similaires