Discussion :

[bastou93]

Bonjour a tous,

J'aurais une petite question, je voudrais insérer un gif dans une fonction qui a graphe en paramètre.
Le gif à insérer doit être dans Userform.graphe.picture cependant si je rentre graphe4 en paramètre, cela doit alors devenir : Userform.graphe4.picture

Comment dire que

Code :

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

Userform.graphe4.picture

ici a la place de graphe4 avoir une variable de type string?

merci
Bastien

[gourmand]

je ne sais pas mais je peux te mètre sur la piste de la solution.

tu peux créé des variable de tipe autre que string ou integer ...

tu peux dire :

Code :

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

dim variable as UserForm

il faut que tu arrive à créé une variable de type graphe et à l'exploiter.

[bastou93]

Merci gourmand pour ton aide.

Cela veut dire en gros que:

Je devrai donc passer mon Image userform en paramètre c'est bien cela?

Pas évident je pensais qu'il y aurait plus simple une syntaxe qui dit par exemple "graphe4" qui est un string peut comme meme servir de selection dans

Code :

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

1
2
3
4
dim graphe as string
graphe = "graphe4"
 
IHM.graphe.Picture

=> ERREUR

qui donnerai IHM.graphe4.Picture

en gros c'est passer du dessus qui pose une erreur au dessous.

[gourmand]

le problème (à mon avis) est qu'excel n'attend pas un string pour graphe

Code :

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

IHM.graphe.Picture

je vais cherché aussi (je viens de rencontré le problème)

[pgz]

Bonjour.

Si tu veux adresser un contrôle de formulaire dont le nom est dans une variable, tu peux faire

Code :

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

monUserForm.Controls("NomDuControle")...

Cordialement,

PGZ

[gourmand]

jais tester avec : (et sa marche)

Code :

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

1
2
3
4
Dim i As Byte
For i = 1 To 5
    Me.Controls("TextBox" & i) = "text essais"
Next i

le problème est que sa ne marche pas avec un nom modifier :

Code :

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

1
2
3
4
5
6
7
Dim i As Byte
Dim j As Byte
For i = 1 To 5
    For j = 1 To 5
        Me.Controls("A" & i & "B" & j) = "text essais"
    Next j
Next i

de plus je voudrai mètre cette fonction dans un module et je ne sais pas par quoi remplacer le "Me"