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 excel mac - Forum Excel
- Userform et Excel 2019 Mac - Forum Excel
- Userform Petit ✓ - Forum VB / VBA
- Userform vba récupérer valeur - Forum Excel
- Pointillé et userform ✓ - 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à,
@+
