Modifier Caption dynamiquement [Résolu]

[nomelek]

Bonjour à tous,

ça va faire un petit moment que je cherche entre les forums, tutos, et je ne trouve pas de solution.

J'aimerais savoir si il est possible de modifier le caption d'un contrôle. Simple, c'est sur. Mais le nom du contrôle est dans une variable. Je m'expplique :

exemples :

Code :

1
2
3
4
5
6
7
8
 
'Definition
Dim label As String
label = "lblCodeProduit"
'modification du caption
'Comment faire ??
'Normalement :
ThisDocument.lblCodeProduit.Caption = "NouvelleValeur"

Donc je suis un peu bloqué .. c'est peut être tout bête, mais à force de chercher partout je m'égare. J'avais pensé utiliser CallByName

En fait, c'est pour utiliser une boucle qui modifierait tout une suite de label, donc ça doit être "dynamique".

merci

[Vld44]

Envoyé par nomelek

Bonjour à tous,

ça va faire un petit moment que je cherche entre les forums, tutos, et je ne trouve pas de solution.

J'aimerais savoir si il est possible de modifier le caption d'un contrôle. Simple, c'est sur. Mais le nom du contrôle est dans une variable. Je m'expplique :

exemples :

Code :

Donc je suis un peu bloqué .. c'est peut être tout bête, mais à force de chercher partout je m'égare. J'avais pensé utiliser CallByName

En fait, c'est pour utiliser une boucle qui modifierait tout une suite de label, donc ça doit être "dynamique".

merci

Tu veux changer le nom du label, pas son caption c'est ça ?

[nomelek]

Si le caption.

J'ai pas été assez clair , je vais étoffer un peu.

En fait avant, j'ai une liste de variables.
je parcours cette liste de variable et si le nom de la variable est égale au name d'un label de mon form et bien on le remplit.

J'ai un problème au niveau du remplissage. Puisque je dois remplir le label.caption de la valeur courante dans ma boucle ...

Si j'ai été clair ... hum

Algo : (pas de balise code pour un algo ?)

Code :

1
2
3
4
5
6
For each i To tab[CODPRD,CODMACHIN,CODTRUC]
   If CODPRD existe dans mon FORM
      Form.CODPRD.Caption = "Qqchose"   ' c'est là qu'est le problème ...
   Else ...
  ...
NEXT i

[Vld44]

il faut que tu boucles sur les controles de ta form:

Code :

1
2
3
for each control in maform.controls
    if control.name = "" then Form.CODPRD.Caption = control.caption
next control

Avec on error resume next, je pense que ça devrait suffire

[nomelek]

Le nom de mon contrôle (ici : CODPRD par exemple) n'est stocké que dans une variable. On ne le connait que grâce à cette variable.

Donc le problème c'est l'appel :

Code :

1
2
3
4
5
6
7
8
9
 
Dim i As String
i="CODPRD"
 
Form. ... .Caption = ""
'et là je mets quoi pour modifier le contrôle CODPRD ?
'je ne peux pas le mettre en dur ce qui donnerait : Form.CODPRD.Caption
'je boucle sur une liste contenant tout mes contrôles, donc j'aimerais extraire
'le nom des contrôles de cette liste

***************************************

Edit :
Hum j'ai lu ta réponse, mais ce n'est pas le problème auquel je suis confronté
Ce que je veux faire, j'ai l'impression que ce n'est pas bien naturel.

[Vld44]

je viens de te donner la solution

[nomelek]

Arf ... j'explique mal ! ^^

Je peux pas faire justement
maform.CODPRD.Caption

Je sais plus comment expliquer ...

Disons que j'ai une liste de variable.
Si dans le form, on trouve un contrôle du même nom d'une variable on remplit le contrôle de cette variable
Et comme j'ai beaucoup de valeur, il faudait que ça soit dynamique.
Je ne peux pas me permettre d'écrire : maform.CODPRD.Caption
Donc je veux prendre le nom de la variable (sachant que mes contrôles ont des noms identiques) pour le glisser entre maform. xxxx . Caption

hum ... j'espère avoir été plus clair ! en tout cas, merci d'essayer de comprendre !

[Vld44]

sisi j'avais bien compris lol

Regarde :

Code :

1
2
3
4
5
6
7
8
9
dim strControlName as variant
 
For each strControlName in tab[CODPRD,CODMACHIN,CODTRUC]
    for each control in form.controls
        if control.name = strControlName then
            control.caption = strControlName 'pas tout à fait sûr de ce que tu veux faire là, mais bon l'idée y est
        end if
    next control
next strControlName

[nomelek]

je regarde et je tiens au courant ... ^^

[nomelek]

je vois ... c'est vrai que ça marchera ! Merci

Mais - il y a toujours un mais ! - en fait je n'ai pas de champ Form (je travail directement sur un Word) et ThisDocument.xx ou Me.xx ne propose pas Controls, j'ai testé avec FormFields ... mais ça ne va pas ...

[Vld44]

ah ben oui mais là faut aller voir le forum vba -.-

[zazaraignée]

Bon, alors, je déplace tout ça!

[Speedrman]

Une solution serait aussi de déclarer ta variable contenant le nom du label en tant que .. Label

Code :

1
2
3
4
5
6
Dim MyControl as Label
 
MyControl = "CODPRD"
 
'et du coup tu peux mettre
MyForm.MyControl.Caption = "un truc"

Tes controles se trouvent sur une UserForm ou dans les barres d'outils de word ?

[nomelek]

Merci pour l'aide

J'ai trouvé une solution qui me convient, pas celle de départ, mais une autre avec les signets (à défaut de mieux !)

Je la propose au cas ou.

Code :

1
2
3
4
5
6
 
            Dim lbl As Range
            'j'ai créé un signet sur mon label du même nom
            Set lbl = ActiveDocument.Bookmarks("CODPRD").Range
            lbl.Text = "la nouvelle valeur"
            ActiveDocument.Bookmarks.Add "DatEff", lbl