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

XL 2013 Creer controle Image avec un code

  • Initiateur de la discussion Initiateur de la discussion Noopy123
  • 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 !

Noopy123

XLDnaute Junior
Bonjour,

J'aimerais créer un contrôle image dans un multipage par le clic d'un commandbutton.
J'ai essayer de trouver la réponse mais les seules propositions sont de le faire manuellement via le Boite a Outils et ce n'est pas ce que je veux faire ^^
Si quelqu'un a la solution je suis preneuse ^^
Merci par avance 🙂
 
au purée je viens de regarder c'est une catastrophe
  1. les chemins en dur alors que la sélection d'image est un dialog
  2. la réutilisation ben on sait pas
  3. des sub créee qui je me demande a quoi elle servent
  4. arrete tout !!!!!
ca n'est pas comme cela qu'il faut faire c'est pas viable

oh purée!!! fan de chichouche !!!!! 😛 😛 😛 😉

  1. cherche le module pastepicture sur la toile et met le dans ton classeur
  2. quand tu sélectionne une image insert picture sur feuille prévu a cet effet
  3. copie avec le module dans ton control userform
  4. un save a chaque fois

c'est tellement du n'importe quoi que je ne sais pas par ou commencer
difficile de t'aider dans de telles conditions
 
Je dois t'avouer que c'est un peu le bazar parce j'ai du essayer 1 millions de code pour tenter de trouver un solution à mon problème ^^
Je ne suis malheureusement pas une expert de vba, même bien loin de là, j'apprends sur le tas, donc forcement je tâtonne un peu, j'essaie et j'apprends 😉
 
Bonjour,
Ca fait apparament ce que tu veux mais seulement en apparence !
De plus ThisWorkbook.VBProject n'est pas autorisé en natif. Il faut être adminitrateur pour l'activer mais je l'ai déjà dit plus haut.

Code:
Set Usf = ThisWorkbook.VBProject.VBComponents("Userform1")
Set btn = Usf.Designer.Controls.Add("forms.image.1")
Ici tu empile des images les une part dessus les autres ! Au bout de 6 mois ton application explose.

La base64 permet de convertir le code binaire de ton image en texte. Ainsi tu enregistre du texte dans une cellule de ton classeur.

Si chaque utilisateur dispose de sa propre image selon ce que j'ai compris, il nous reste à inverser la base 64 pour l'afficher dans le contrôle image qui pour le coup reste à demeure!
 
Dernière édition:
- 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

Réponses
5
Affichages
776
Réponses
32
Affichages
1 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…