Comment instancier un Userform
Agi67
Messages postés
11
Statut
Membre
-
Patrice67 -
Patrice67 -
Bonjour,
En VBA sous Excel, je souhaite parcourir les composants d'un Project VBA. J'arrive à faire cette étape avec :
Dim userf as Userform
For Each userf In ThisWorkbook.VBProject.VBComponents
set userf = Userforms(userf.name) ' Cette étape ne fonctionne pas.
Next
Je souhaiterais instancier les Userform trouvés dans cette boucle afin d'obtenir leurs propriétés(Top, Left, Height, Width) comme je le fais dans le cas des Contrôles dans les Userforms
Merci d'avance pour votre aide.
En VBA sous Excel, je souhaite parcourir les composants d'un Project VBA. J'arrive à faire cette étape avec :
Dim userf as Userform
For Each userf In ThisWorkbook.VBProject.VBComponents
set userf = Userforms(userf.name) ' Cette étape ne fonctionne pas.
Next
Je souhaiterais instancier les Userform trouvés dans cette boucle afin d'obtenir leurs propriétés(Top, Left, Height, Width) comme je le fais dans le cas des Contrôles dans les Userforms
Merci d'avance pour votre aide.
A voir également:
- Comment instancier un Userform
- Userform Petit ✓ - Forum VB / VBA
- Liste deroulante dans un Userform ✓ - Forum Excel
- Userform excel mac - Forum Word
- Rafraichir données userform ✓ - Forum Excel
- Excel vba création de formulaire userform ajouter rechercher modifier facilement ✓ - Forum Excel
3 réponses
Bonjour,
voir ceci:
https://silkyroad.developpez.com/VBA/VisualBasicEditor/#LII-B
et cela
https://silkyroad.developpez.com/VBA/UserForm/#LV-C
voir ceci:
https://silkyroad.developpez.com/VBA/VisualBasicEditor/#LII-B
et cela
https://silkyroad.developpez.com/VBA/UserForm/#LV-C
Bonjour cs_Le Pivert ,
Merci pour ces liens que j'avais préalablement consultés. Sans une réelle réponse à ma question.
Cdt
Patrice
Merci pour ces liens que j'avais préalablement consultés. Sans une réelle réponse à ma question.
Cdt
Patrice
Sans une réelle réponse à ma question.
c'est étonnant car moi je trouve réponse à ta question dans le second lien
a mettre dans un module:
Voilà,
@+
c'est étonnant car moi je trouve réponse à ta question dans le second lien
a mettre dans un module:
Option Explicit
Sub listeUserFormClasseur()
'nécéssite d'activer la référence
'Microsoft Visual Basic For Applications Extensibility 5.3
Dim VBCmp As VBComponent
For Each VBCmp In ThisWorkbook.VBProject.VBComponents
If VBCmp.Type = 3 Then
MsgBox "nom de l'UserForm: " & VBCmp.Name
MsgBox "largeur de " & VBCmp.Name & " " & VBCmp.Properties("Width")
MsgBox "hauteur de " & VBCmp.Name & " " & VBCmp.Properties("Height")
MsgBox "top de " & VBCmp.Name & " " & VBCmp.Properties("Top")
MsgBox "left de " & VBCmp.Name & " " & VBCmp.Properties("Left")
End If
Next VBCmp
End Sub
Voilà,
@+
