Discussion :

[Arno76_68]

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

[Ben_L]

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

[Arno76_68]

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

[Ben_L]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Arno76_68]

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

Bonne journée.