[VBA-E]Renommer un Control Label via une procédure

Version imprimable

14/03/2007, 15h58
Phyanol

[VBA-E]Renommer un Control Label via une procédure
Bonjour,
Je souhaiterai pouvoir renommer des Labels d'un userform en fonction d'une liste de noms dans une feuille Excel. L'idée est d'actualiser le Caption du Label en fonction du nom d'une dépense qui est située dans une feuille Excel (même classeur que le Userform).

Etant donné que j'ai un bon nombre de Label à actualiser, j'ai nommé chaque Label par LblExpense1 ainsi de suite jusqu'à LblExpense20 et je pensais effectuer sous Sub Userform_initialize() une boucle du genre:
Code:

1 2 3 4 5 6 7 Dim Expense(1 To 20) as String Dim Ctrltemp as Control For i=1 To 20 Ctrltemp=Me.Controls("LblExpense" & i) Ctrltemp.Caption= Expense(i) Next i
Bien évidemment, cela ne marche pas et l'erreur est: Run-time Error 91 (Object variable or withblock variable not set). J'ai parcouru le site pour trouver la bonne formulation mais sans succès!

Le userform contient également d'autres controls.

Merci pour votre aide.

Bonjour,

je te mets des bouts du code sur lequel je suis en ce moment, ça devrait t'aider...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Dim txtAngle(), txtLongueur(), lblAngle(), lblLongueur() As Control
NbCintres = cboNbCintres.Value
ReDim txtAngle(NbCintres), txtLongueur(NbCintres), lblAngle(NbCintres), lblLongueur(NbCintres)
    For i = 1 To NbCintres
        Set lblAngle(i) = frmSaisie.Controls.Add("forms.Label.1")
        Set txtAngle(i) = frmSaisie.Controls.Add("forms.TextBox.1")
        Set lblLongueur(i) = frmSaisie.Controls.Add("forms.Label.1")
        Set txtLongueur(i) = frmSaisie.Controls.Add("forms.TextBox.1")
                With lblAngle(i)
            .Left = 80
            .Top = 140 + 20 * (i - 1)
            .Width = 30
            .Height = 20
            .Caption = "Alpha" & i
            .Name = "lblAngle" & i
        End With
        With txtAngle(i)
            .Left = 120
            .Top = 140 + 20 * (i - 1)
            .Width = 30
            .Height = 20
            .Name = "txtAngle" & i
        End With

Tu me dis ce que tu en penses ?

14/03/2007, 17h05
Phyanol

Salut Cwain,
Un grand merci pour ton aide et la rapidité de ton assistance.
La réponse se trouvait dans ton code: j'ai oublié (et je dcouvre en même temps l'utilité de "Set") "set"

en indiquant:

Code:

Set Ctrltemp = Me.Controls("lblExpense" & i)

cela marche.

Merci encore
14/03/2007, 19h27
AlainTech

Set sert à créer une instance d'un objet.