Bonjour,
J'ai un soucis pour renommer un Userform que je crée dynamiquement.
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
 
Private CreationUF()
    Dim UF As Object
    Dim L As MSForms.Label
    Dim CB As MSForms.CommandButton
    Dim TBox As MSForms.TextBox
 
    On Error GoTo Fin
    '---- Crée dynamiquement un UserForm ----
    Set UF = ThisWorkbook.VBProject.VBComponents.Add(3)
    With UF
        .Properties("Caption") = "UserForm à la volée"
        .Properties("Height") = 240
        .Properties("Width") = 520
        .Properties("Name") = "DoubleChamp"
    End With
 
    ...
 
Fin:
End sub
çà plante sur la ligne 15 --.Properties("Name") = "DoubleChamp"--
quelqu'un a une idée, je voudrais résoudre ce PB car j'ai un UF à créé avec un Cinquantaine de textbox et label.
c'est chaud !
Je suis sur MAC, mais je ne pense pas que ce soit pour cela.