IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Lister en VBA tous les objets composant un formulaire [XL-2019]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Homme Profil pro
    Retraité
    Inscrit en
    Mars 2022
    Messages
    60
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Alpes Maritimes (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Finance

    Informations forums :
    Inscription : Mars 2022
    Messages : 60
    Par défaut Lister en VBA tous les objets composant un formulaire
    Bonjour,

    je cherche en vain le code pour lister par leur nom tous les objets (listbox, combo, texte, bouton ....) qui composent un formulaire (USF)

    J'ai essayé avec ActiveWorkbook.VBProject.VBComponents mais je bloque pour trouver les objets !!!!!!

    Une idée ????
    Merci de vos bons conseils habituels ...

    Cordialement

  2. #2
    Membre Expert
    Inscrit en
    Décembre 2002
    Messages
    993
    Détails du profil
    Informations forums :
    Inscription : Décembre 2002
    Messages : 993
    Par défaut
    Bonjour, comme ceci:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    Sub ListerObjetsUserForm()
        Dim ctrl As Control
        Dim usf As Object
        Dim resultat As String
     
     
        Set usf = Userform1 ' remplace "UserForm1" par le nom de ton formulaire
     
        resultat = "Liste des objets dans le formulaire :" & vbCrLf
        For Each ctrl In usf.Controls
            resultat = resultat & ctrl.Name & " - Type : " & TypeName(ctrl) & vbCrLf
        Next ctrl
     
        ' Affiche le résultat dans une MsgBox ou une feuille
        MsgBox resultat, vbInformation, "Liste des Objets"
    End Sub

  3. #3
    Membre confirmé
    Homme Profil pro
    Retraité
    Inscrit en
    Mars 2022
    Messages
    60
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Alpes Maritimes (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Finance

    Informations forums :
    Inscription : Mars 2022
    Messages : 60
    Par défaut
    Merci Franck
    c parfait !

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [Métadonnées] Lister tous les objets SAS de mon environnement
    Par fbatch dans le forum Administration et Installation
    Réponses: 3
    Dernier message: 01/07/2010, 16h03
  2. lister tous les objets rmiregistry
    Par une_tite_question dans le forum Entrée/Sortie
    Réponses: 2
    Dernier message: 21/05/2008, 20h45
  3. Réponses: 10
    Dernier message: 06/07/2007, 10h27
  4. afficher tous les objets d'un formulaire
    Par sebhm dans le forum Général JavaScript
    Réponses: 3
    Dernier message: 15/01/2007, 15h09
  5. Rafraichissement de la fiche ainsi que de tous les objets
    Par portu dans le forum Composants VCL
    Réponses: 7
    Dernier message: 06/01/2004, 00h25

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo