Comment instancier un Userform

Fermé

Agi67 Messages postés 11 Date d'inscription mardi 11 janvier 2011 Statut Membre Dernière intervention 11 septembre 2021 - 9 sept. 2021 à 18:47
Patrice67 - 15 sept. 2021 à 05:29

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.

A voir également:

Comment instancier un Userform
Afficher userform vba a l'ouverture d'excel - Forum Programmation
Ouvrir un userform avec un bouton ✓ - Forum VB / VBA
Afficher une image dans un userform vba ✓ - Forum Excel
Palette couleur vba userform - Forum VB / VBA
Vba date picker excel 365 userform 64 bit ✓ - Forum Excel

3 réponses

Réponse 1 / 3

cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
Modifié le 9 sept. 2021 à 18:52

Bonjour,

voir ceci:

https://silkyroad.developpez.com/VBA/VisualBasicEditor/#LII-B

et cela

https://silkyroad.developpez.com/VBA/UserForm/#LV-C

Réponse 2 / 3

Agi67 Messages postés 11 Date d'inscription mardi 11 janvier 2011 Statut Membre Dernière intervention 11 septembre 2021
11 sept. 2021 à 07:55

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

cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
Modifié le 11 sept. 2021 à 08:59

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:

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à,

@+

Réponse 3 / 3

Patrice67
15 sept. 2021 à 05:29

Bonjour cs_Le Pivert.

Ma réponse tardive. Merci j'ai pu ainsi avancer.
Cordialement
Patrice

Discussions similaires

Userform, bouton, excel

lancer un UserForm

EXCEL MAC Création d'un USERFORM

Fermeture userform lorsque on change de feuille

Utilisateur anonyme - 25 mai 2020 à 00:09
Utilisateur anonyme - 25 mai 2020 à 10:22

Liste déroulant dans Userform Via liste Excel