Extraction Propriété

Bonjour,

Je me permet d'écrire sur le forum car je recherche une méthode simple mais efficace qui me permettrais d'extraire les propriétés des objet VBA .

Je m'explique j'ai créer un jolie fichier en VBA avec des Userform, des boutons , des checkbox et j'en passe et des meilleurs.

Sauf que aujourd'hui j'aimerais vérifier un peu mon travail sur les nom , les hauteurs, le positionnement des objet etc ...

Donc mon idée ( qui pourrais servir à plusieurs personnes) c'est extraire dans un excel les données suivante :

• (Name)

• Width

• Height

• Left

• Top

• Police

• Style Gras , Italique , ETC ...

• Taille de la police

Donc voila j'ai pas mis de fichier exemple mais à la demande je pourrais en créer un.

Merci beaucoup de votre aide.

Bonjour,

C'est quoi la difficulté pour toi ici ?

Je te poste une piste à approfondir :

Private Sub CommandButton2_Click()

    Dim Ctrl As Control
    Dim I As Integer
    Dim Entetes

    Entetes = Array("Nom", "Haut", "Gauche", "Hauteur", "Largeur", "Valeur", "Nom fonte", "Taille fonte") 'etc...

    Range(Cells(1, 1), Cells(1, 1 + UBound(Entetes))).Value = Entetes

    I = 1

    For Each Ctrl In Me.Controls

        I = I + 1

        On Error Resume Next 'éviter les erreurs dues aux propriétes non existantes comme Value par exemple

        With Ctrl

            Cells(I, 1).Value = .Name
            Cells(I, 2).Value = .Top
            Cells(I, 3).Value = .Left
            Cells(I, 4).Value = .Height
            Cells(I, 5).Value = .Width
            Cells(I, 6).Value = .Value
            Cells(I, 7).Value = .Font.Name
            Cells(I, 8).Value = .Font.Size
            'etc...

        End With

    Next Ctrl

End Sub

Merci Theze,

C'est exactement ce que je voulais faire, je vais approfondir le code.

J’avais la difficulté de surtout de savoir les propriétés des différents contrôle.

Cordialement,