affichage d'une image du classeur dans un userform

Version imprimable

15/09/2006, 12h21
sebù des bois

affichage d'une image du classeur dans un userform

Bonjour,
J'ai pris une "photo" d'un groupe de graphiques et d'informations qui se trouvent toutes dans une des feuilles excel que j'ai dans mon classeur. J'ai mis la photo (ou l'image correspondante) dans une autre feuille. J'aimerai maintenant si l'utilisateur du fichier le veut (après update de certaines données) afficher cette image dans un userform mais je n'y arrive pas...Je n'ai trouvé que des aides pour afficher un graphique mais pas une image qui se trouve dans mes feuilles excel...Quelqu'un aurait une idée?

merci

sebù
15/09/2006, 13h12
SilkyRoad

bonjour

j'espere que ce lien pourra t'aider

http://www.developpez.net/forums/sho...d.php?t=204965

michel

J'ai un souci avec son code:

mon message d'erreur:

membre de méthode ou de données introuvable

c'est sur la dernière ligne

est ce que image1 doit etre déclarée en pictureformat? si je mets dim image as shape j'ai ce message d'erreur qui apparait:

variable objet ou variable de bloc With non définie

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
 
...
    Application.Calculate
    Unload UserForm1
 
    'on va afficher l'image
    Dim nb As Byte
    Dim Sh As Shape
    Dim Image1 As PictureFormat
 
    'Supprime l'image temportaire si elle existe
    If Dir(Fichier) <> "" Then Kill Fichier
 
    'Définit le 1er shape de la feuille comme image
    ' à afficher dans l'UserForm
    Set Sh = Worksheets("output image").Shapes(1)
 
    'copie le shape dans la feuille
    Sh.CopyPicture
    'crée un graphique
    With ActiveSheet.ChartObjects.Add(0, 0, _
                        Sh.Width, Sh.Height).Chart
        .Paste 'colle l'image dans graphique
        ' enregistre le graphique au format gif
        .Export Fichier, "GIF"
    End With
 
    nb = ActiveSheet.ChartObjects.Count
    'supprime le graphique
    ActiveSheet.ChartObjects(nb).Delete
 
    'Affiche l'image dans le graphique
    Image1.Picture = LoadPicture(Fichier)
 
fin_fonction:
End Sub

19/09/2006, 12h04
SilkyRoad

bonjour

supprime cette ligne qui ne sert à rien

Citation:

Dim Image1 As PictureFormat

d'ou lances tu ta procedure? depuis un module ou un UserForm?

michel
19/09/2006, 14h48
sebù des bois

Citation:

Envoyé par SilkyRoad

supprime cette ligne qui ne sert à rien
d'ou lances tu ta procedure? depuis un module ou un UserForm?

effectivement je le lance en cliquant sur un bouton dans un userform, si je ne mets pas cette ligne, j'ai un message d'erreur qui dit:

variable non définie en me donnant image1 comme cette variable...
19/09/2006, 14h58
SilkyRoad

rebonjour

j'ai du mal à te suivre

en tout dedut de procedure tu as ecrit

Citation:

Unload UserForm1

cette instruction sert à fermer les boites de dialogue:
il s'agit du userForm contenant la macro ou d'un autre ?

as tu inséré un controle Image nommé "Image1" dans l'UserForm?

michel
19/09/2006, 15h04
sebù des bois

bonjour

ok donc j'ai un userform à partir duquel l'utilisateur peut "piloter" à l'aide de combobox, textbox,.... des variables qui serviront à uploader une factsheet qui est déjà faite.

Ensuite je n'ai plus qu'à mettre les variables que l'utilisateur a choisies au bon endroi et un application.calculate et c'est bon. Je ferme ensuite cette fenêtre puisque j'en ai plus vraiment besoin.

Dans ce userform je voudrais que l'utilisateur ait le choix entre le bouton ok qui met simplement à jour la page excel ou le bouton ok+afficher qui met non seulement à jour les feuilles excel mais qui affiche la factsheet (c'est en fait un image puisque jai pris une photo d'une page excel bien agencée comme je veux) dans un userform ou autre...voilà (dès que l'utilisateur clique le ok j'ai donc mis le unload userform qui ne me sert plus a rien)

à vrai dire je ne sais pas ce que c'est qu'un controle image...

sebù
19/09/2006, 15h16
SilkyRoad

Citation:

à vrai dire je ne sais pas ce que c'est qu'un controle image...

http://silkyroad.developpez.com/VBA/...serForm/#LII-K

bon apres midi
michel

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
    Application.Calculate
    Unload UserForm1
    UserForm3.Show
 
    'on va afficher l'image
    Dim nb As Byte
    Dim Sh As Shape
 
    'Supprime l'image temportaire si elle existe
    If Dir(Fichier) <> "" Then Kill Fichier
 
    'Définit le 1er shape de la feuille comme image
    ' à afficher dans l'UserForm
    Set Sh = Worksheets("output image").Shapes(1)
 
    'copie le shape dans la feuille
    Sh.CopyPicture
    'crée un graphique
    With ActiveSheet.ChartObjects.Add(0, 0, _
                       Sh.Width, Sh.Height).Chart
        .Paste 'colle l'image dans graphique
        ' enregistre le graphique au format gif
        .Export Fichier, "GIF"
    End With
 
    nb = ActiveSheet.ChartObjects.Count
    'supprime le graphique
    ActiveSheet.ChartObjects(nb).Delete
 
    'Affiche l'image dans le graphique
    UserForm3.Image1.Picture = LoadPicture(Fichier)

toujours impossible de faire afficher l'image...

19/09/2006, 15h33
sebù des bois

finalement c'est bon merci (au fait c'était plutôt au niveau du vocabulaire que j'avais pas compris...)