Comment instancier un Userform
Agi67
Messages postés
11
Date d'inscription
Statut
Membre
Dernière intervention
-
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
- Comment instancier une classe objet dans jsp - Forum Java
- Userform excel mac - Forum Excel
- Userform et Excel 2019 Mac - Forum Excel
- Userform Petit ✓ - Forum VB / VBA
- Grandeur UserForm ✓ - Forum VB / VBA
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à,
@+