Discussion :

[Phyanol]

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 :

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

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.

[cwain]

Bonjour,

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

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
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 ?

[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 :

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

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

cela marche.

Merci encore

[AlainTech]

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