Comment copier une image d’une feuille de calcul vers un UserForm dans Excel ?
Cet article vous présente des méthodes pour copier une image de la feuille active vers un UserForm dans Excel.
Copier une image de la feuille de calcul vers un UserForm par copier-coller
Copier une image de la feuille de calcul vers un UserForm avec du code VBA
Copier une image de la feuille de calcul vers un UserForm par copier-coller
Procédez comme suit pour copier une image de la feuille de calcul vers un UserForm.
1. Basculez vers la feuille contenant l’image que vous souhaitez copier vers le UserForm, puis appuyez simultanément sur les touches Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.
2. Dans la fenêtre Microsoft Visual Basic pour Applications, cliquez sur Insertion > UserForm. Voir la capture d’écran :
3. Insérez maintenant un contrôle Image dans le UserForm. Cliquez sur le bouton Image dans la boîte de dialogue Boîte à outils, puis dessinez manuellement un contrôle Image dans le UserForm. Voir la capture d’écran :
4. Cliquez avec le bouton droit sur le contrôle Insérer une image, puis sélectionnez Propriétés dans le menu contextuel, comme illustré ci-dessous :
5. Un volet Propriétés apparaît alors sur le côté gauche de la fenêtre Microsoft Visual Basic pour Applications.
6. Retournez à la feuille de calcul, sélectionnez l’image que vous souhaitez afficher dans le UserForm, puis copiez-la en appuyant sur les touches Ctrl + C.
7. Revenez à la fenêtre Microsoft Visual Basic pour Applications, faites défiler jusqu’au champ Picture, puis collez-y le nom de l’image copiée sous l’onglet Alphabétique.
L’image de la feuille de calcul est désormais intégrée au UserForm.
Libérez la magie d’Excel avec Kutools IA
- Exécution intelligente : effectuez des opérations sur les cellules, analysez des données et créez des graphiques, le tout à partir de commandes simples.
- formules personnalisées : créez des formules sur mesure pour rationaliser vos flux de travail.
- Programmation VBA : Écrivez et implémentez du code VBA en toute simplicité.
- Interprétation de formules : Décryptez facilement les formules complexes.
- Traduction de texte : Franchissez les barrières linguistiques directement depuis vos feuilles de calcul.
Copier une image de la feuille de calcul vers un UserForm avec du code VBA
Cette section vous explique comment copier plusieurs images depuis une feuille de calcul vers un UserForm, puis afficher l’image correspondante en sélectionnant son nom dans une liste déroulante (ComboBox). Suivez ces étapes.
1. Suivez les étapes 1 et 2 ci-dessus pour insérer un UserForm dans votre feuille de calcul.
2. Insérez ensuite un contrôle Frame dans le UserForm, comme illustré ci-dessous :
3. Cliquez avec le bouton droit sur le cadre inséré, puis sélectionnez Propriétés dans le menu contextuel. Dans le volet Propriétés situé à gauche, définissez la valeur du champ Visible sur False. Voir la capture d’écran :
4. Insérez plusieurs contrôles Image dans le cadre, comme illustré ci-dessous.
5. Retournez à la feuille de calcul, sélectionnez l’image que vous souhaitez afficher dans le UserForm, puis appuyez sur les touches Ctrl+C pour la copier.
6. Ouvrez la fenêtre Microsoft Visual Basic pour Applications, cliquez avec le bouton droit sur le premier contrôle Image, puis sélectionnez Propriétés dans le menu contextuel. Voir la capture d’écran.
7. Dans le volet Propriétés, cliquez sur le champ Picture, puis appuyez sur les touches Ctrl + V pour coller l’image copiée à l’étape 5. Ensuite, sélectionnez 1 – fmPictureSizeModeStretch dans la liste déroulante PictureSizeMode, comme illustré ci-dessous.
8. Répétez les étapes 5 à 7 pour coller les autres images de la feuille de calcul dans les contrôles Image situés à gauche du UserForm. Le résultat obtenu correspondra à la capture d’écran ci-dessous.
9. Déplacez le contrôle Frame dans un coin du UserForm, puis insérez un nouveau contrôle Image et un contrôle Zone de liste déroulante (ComboBox) dans le UserForm. Voir la capture d’écran :
10. Cliquez avec le bouton droit sur le UserForm, puis sélectionnez Afficher le code. Copiez ensuite le code VBA ci-dessous et collez-le dans la fenêtre Code pour remplacer le code existant.
Code VBA 1 : Copier une image de la feuille de calcul vers un UserForm
Private Sub ComboBox1_Change()
UserForm1.Controls.Item("Image4").Picture = UserForm1.Controls.Item(UserForm1.ComboBox1.Value).Picture
End Sub
Private Sub UserForm_Initialize()
Dim xImg As Control
On Error Resume Next
For Each xImg In UserForm1.Controls
If TypeName(xImg) = "Image" And xImg.Name <> "Image4" Then
UserForm1.ComboBox1.AddItem xImg.Name
End If
Next
End SubRemarque : Dans ce code, UserForm1 est le nom du UserForm inséré, Image4 est le nom du contrôle Image dans lequel les images seront affichées. Le terme « Image » désigne tous les contrôles Image contenant les images copiées depuis la feuille de calcul. ComboBox1 est le nom de la zone de liste déroulante insérée dans le UserForm. Adaptez ces noms selon votre configuration.
11. Fermez la fenêtre Microsoft Visual Basic pour Applications.
12. Insérez un bouton de commande dans la feuille de calcul en cliquant sur Développeur > Insertion > Bouton de commande (Contrôle ActiveX).
13. Cliquez avec le bouton droit sur le bouton de commande, puis sélectionnez Afficher le code dans le menu contextuel. Copiez ensuite le code VBA ci-dessous et collez-le dans la fenêtre Code. Enfin, fermez cette fenêtre.
Code VBA 2 : Copier une image de la feuille de calcul vers un UserForm
Private Sub CommandButton1_Click()
UserForm1.Show
End Sub15. Cliquez sur Développeur > Mode Création pour désactiver le mode Création.
Désormais, en cliquant sur le bouton de commande, le UserForm s’affiche et vous permet de visualiser une image en sélectionnant son nom dans la liste déroulante. Voir la capture d’écran :
La sélection de différents noms dans la liste déroulante affiche des images différentes dans le UserForm.
Articles associés :
- Comment centrer une image dans une cellule Excel ?
- Comment vérifier si une cellule contient une image dans Excel ?
- Comment insérer une image, ou la faire apparaître dynamiquement dans une cellule selon sa valeur, sous Excel ?
- Comment agrandir une image en cliquant dessus dans Excel ?
Meilleurs outils de productivité Office
Boostez vos compétences Excel avec Kutools pour Excel et découvrez une efficacité inégalée.Kutools pour Excel propose plus de 300 fonctionnalités avancées pour améliorer votre productivité et Gagner du temps.Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et rend votre travail bien plus facile
- Activez l’édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de 50 % et vous fait économiser des centaines de clics de souris chaque jour !
Tous les compléments Kutools. Un seul installateur
Kutools for Office regroupe les compléments pour Excel, Word, Outlook et PowerPoint, ainsi que Office Tab Pro, ce qui en fait le choix idéal pour les équipes travaillant à travers les applications Office.
- Suite tout-en-un— Compléments Excel, Word, Outlook et PowerPoint + Office Tab Pro
- Un seul installateur, une seule licence— installation en quelques minutes (compatible MSI)
- Fonctionne mieux ensemble— productivité optimisée dans toutes les applications Office
- Essai gratuit de 30 jours avec toutes les fonctionnalités— aucune inscription, aucune carte bancaire
- Meilleur rapport qualité-prix— économisez par rapport à l’achat de compléments individuels