VBA Excel_Copie d'un Range dans Image.Picture dans un userform

Bonjour,

Je souhaiterais copier une partie d'une feuille de calcul (sous forme de range) et la coller dans la propriété Pisture d'une image dans un userform...si possible en évitant d'enregistrer la copie en tant que fichier image.

Aucun soucis pour définir le range et pour créer l'userform et son image.

Merci beaucoup pour votre aide.

Arno

Bonjour,

Un module permettant de transférer une image dans le Presse-papier puis de l'utiliser dans une UserForm a été développé par Stephen Bullen (Source originale ici, fichier PastePicture.zip).
De nombreux exemples de mise en œuvre sont disponibles, par exemple ici.

N'hésitez pas à solliciter plus de précisions si vous ne parvenez pas à l'utiliser.
Cdt

Bonjour Ben_L,

Tout d'abord, merci pour ta réponse.

J'aurais effectivement encore besoin de ton aide : comment utiliser dans mon cas les fonctions CreatePicture et PastePicture ?
Pour rappel; je défini la zone que je veux copier via un range de cellule, puis je veux coller ça dnas une image.Picture d'un userform.

Merci bcp pour ton aide.

Arno

Arno,

Dans un nouveau fichier Excel, vérifie l'existence d'une feuille nommée "Feuil1" (crée-la, le cas échéant). Ajoutes-y des données dans la plage A1:I7.

Dans l'éditeur VBA, ajoute un module de code et copies-y le code du module "modPastePicture" de Stephen Bullen.

Ajoute une Userform nommée "UserForm1". Mets-y une ImageBox nommée "Image1" et un bouton nommé "CommandButton1" (sous forme de contrôles ActiveX).
Dans le code de la Userform, insère le texte suivant :

Code:

---

1 2 3 4 5 6

Option Explicit   Private Sub CommandButton1_Click() Feuil1.Range("A1:I7").CopyPicture xlScreen, xlPicture Set UserForm1.Image1.Picture = PastePicture(xlPicture) End Sub

---

Vérifie que tout fonctionne comme attendu. Si oui, il ne te reste plus qu'à adapter à ton besoin.
Cdt

Super ça fonctionne.
Merci beaucoup pour ton aide !!

Bonne journée.