Discussion :

[Aurélien13140]

Bonjour à tous,

J'ai un userform dans lequels j'ai inséré des objets "image".

Je voudrais, via des variables, modifier les attributs de cet objets, à savoir son positionnement et ses dimensions.

voici mon code actuel (qui se trouve dans le dit userform) :

Code :

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

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
37
38
39
Private Sub variables()
    'Dimensions des objet "image"
    Dim larg1, haut1 As Integer
    larg1 = 300    'largeur simple
    haut1 = 200   'hauteur simple
 
    'position des angles supérieurs gauche des objets "images" de gauche à droit puis de haut en bas (5 x 3)
    Dim anglex1  As Integer
    Dim angley1  As Integer
    anglex1 = 500
    angley1 = 40
End Sub
 
Private Sub UserForm_activate()
    ' Plein écran de l'Userform 4
    With UserForm4
        .StartUpPosition = 3
        .Width = Application.Width
        .Height = Application.Height
        .Left = 0
        .Top = 0
    End With
 
    ' Mise en page automatique de chaque objet "image"
    With Image1
        .Width = larg1
        .Height = haut1
        .Left = anglex1
        .Top = angley1
    End With
 
    ' Insertion d'une image dans un objet "image"
    Set g = Sheets("ANO Secu").ChartObjects(1).Chart
        Fichier = ActiveWorkbook.Path & "\" & "graphe.bmp"
        g.Export Filename:=Fichier, FilterName:="bmp"
        Image1.Picture = LoadPicture(Fichier)
        ' Ajustement automatique de l'image dans l'objet "image"
        Me.Image1.PictureSizeMode = fmPictureSizeModeStretch  
 End Sub

Quand j'ouvre mon userform, rien ne s'affiche.
Par contre, quand je ne passe pas par les variables comme ceci :

Code :

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

1
2
3
4
5
6
    With Image1
        .Width = 300
        .Height = 200
        .Left = 500
        .Top = 40
    End With

... tout s'affiche correctement.

J'ai absolument besoin de passer par des variables car j'ai de très nombreux objets images et j'aimerais modifier régulièrement tous les attributs de manières identiques sans avoir à me taper les objets un par un.

Merci d'avance.

[Igloobel]

Bonjour,

Je pense que c'est une histoire de déclaration.

Dim déclare au sein de la procédure sub et dès que tu quittes cette procédure les variables se vident !!!

donc tu as plusieurs solutions :
1 - tu passes en paramètre tes variables
2 - tu déclares avec Public dans un module à l'extérieur de "sub" et "Function" (c'est pratique et disponible dans toutes tes "sub" de ton classeurs c'est ce que je fais)
3 - tu peux déclarer avec Dim à l'extérieur de sub et Function et dans ce cas c'est disponible au sein du module ou page Userform

Moi personnellement je préfère la 2ème solution que je trouve plus simple

tu dis

A+

[kiki29]

Salut, tu pourrais t'inspirer de Visualisation d'une liste de fichiers PDF dans une UserForm via IExplorer pour le redimensionnement

[Aurélien13140]

Salut Igloobel.

Merci pour tes réponses.
J'ai procédé selon ta 2ème méthode (qui s'avère être très utilisée apparement).
Néanmoins, je me retrouve avec le même problème.

J'ai donc écrit ce code dans un module que je viens de créer :

Code :

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

1
2
3
4
5
6
7
8
9
10
    'Dimensions des objet "image"
    Public larg1, haut1 As Integer
    'position des angles supérieurs gauche des objets "images" 
    Public anglex1  As Integer
    Public angley1  As Integer
 
    larg1 = 300    'largeur simple
    haut1 = 200   'hauteur simple
    anglex1 = 500
    angley1 = 40

Du coup je me retrouve avec une erreur qui apprait :
Erreur de compilation
Instruction incorrecte à l'extérieur d'une procédure

Peux tu m'aider à ce sujet?

Kiki29, merci pour ton lien qui est très interessant, je vais d'ailleurs m'en inspirer. Mais j'aimerais quand même savoir pourquoi mes variables ne fonctionnent pas

[unparia]

Bonjour
Le message est pourtant clair :

Code :

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

1
2
3
4
larg1 = 300    'largeur simple
    haut1 = 200   'hauteur simple
    anglex1 = 500
    angley1 = 40

Des initialisations de variables, donc, ne saurait se trouver que dans une procédure (celle de ton choic ... évènementielle, par exemple ...mais UNE PROCEDURE..
C'est là le B.A.BA

[patricktoulon]

tu peut pas lettre cela comme ca dans un module quel qu'il soit

Code :

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

1
2
3
4
5
6
7
8
9
10
'Dimensions des objet "image"
    Public larg1, haut1 As Integer
    'position des angles supérieurs gauche des objets "images" 
    Public anglex1  As Integer
    Public angley1  As Integer
 
    larg1 = 300    'largeur simple
    haut1 = 200   'hauteur simple
    anglex1 = 500
    angley1 = 40

la partie dimension ok quoi integer avec 300 fait pas bon ménage
mais cette partiel la ne doit pas etre en hat de module

Code :

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

1
2
3
4
 larg1 = 300    'largeur simple
    haut1 = 200   'hauteur simple
    anglex1 = 500
    angley1 = 40

ou alors se serai comme ca

Code :

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

1
2
3
4
5
const=  larg1 as long = 300    'largeur simple
const= haut1 as long = 200   'hauteur simple
const=  anglex1  as long = 500
const= angley1  as long =40

mais sans les "dim" ou "public"

mais cela implique que tu ne peux plus les changer en cours de route