Discussion :

[dlight]

Bonjour à tous.

Est-il possible de créer plusieurs userform indentiques en grandeur et largeur avec l'exécution d'un code VBA une seule fois?

Merci à l'avance

[patricktoulon]

bonjour

oui c'est possible il faut les parametrer avant


au plaisir

[dlight]

Merci pour votre réponse patricktoulon mais serait-il possible de m'indquer ce que vous voulez dire par parametrer?

Merci à l'avance

[fring]

Hello,

Si je comprend bien ta question, tu veux pouvoir créer des UserForms identiques automatiquement ?
Cela devrait ressembler à un truc de ce style :

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
Sub test()
Dim i As Byte, Usf As Object
 
For i = 1 To 5
    Set Usf = ThisWorkbook.VBProject.VBComponents.Add(3)
    With Usf
        .Name = "USF" & i
        .Properties("Caption") = "Titre du UserForm"
        .Properties("Height") = 250
        .Properties("Width") = 600
    End With
Next
 
Set Usf = Nothing
 
End Sub

[dlight]

Merci à vous Fring.

J'Ai l'erreur 1004 à la ligne

Code :

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

Set Usf = ThisWorkbook.VBProject.VBComponents.Add(3)

J'ai fait un peu de lecture sur cette erreur mais je comprends pas ce qui ne fonctionne pas.

Merci à l'avance

Dlight

[fring]

Active la référence : Microsoft Visual Basic for Applications Extensibility 5.3