Discussion :

[WagaSeb]

Bonjour,

J'aimerai que lors de l'initialisation de mon formulaire des labels(intitulés en francais) soient créés et placés.
Ca me parait simple mais j'ai beau chercher je ne trouve rien ...
Pour etre concis, c'est la syntaxe qui me permet de crééer des labels ds 1 userform que je cherche

Si qqn peut me répondre, ca me serait d'une grande aide ...

[SilkyRoad]

bonjour

j'espere que cet exemple pourra 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
Private Sub UserForm_Initialize()
    Dim Obj As Control
    Dim i As Integer
 
    For i = 1 To 3 'boucle pour la création des Labels
        Set Obj = Me.Controls.Add("forms.Label.1")
        With Obj
            .Name = "monLabel" & i
            .Object.Caption = "le texte" & i
            .Left = 140
            .Top = 30 * i + 10
            .Width = 50
            .Height = 20
        End With
    Next i
 
End Sub

michel

[WagaSeb]

Merci c'est exactement ce que je cherchais !! ... et ca faisait un bout de temps que j'épluchais l'aide
Super !!!