Utilisation de For Each... avec Control et Form ???Résolu

Question

Je voudrais afficher dans le debug, le nom de tous les controles dans toutes les fenetres du projet en cours...
Je ne sais pas trop comment faire...

    Dim UserControl As Control
    Dim UserForm As Form
    
    
    For Each UserForm In App
    For Each UserControl In UserForm.Controls
        
    Debug.Print UserForm.Name, UserForm.Controls.Name
      
    Next UserControl
    Next UserForm

Merci de votre aide

cs_Warning · Accepted Answer

Voici la correction du code:
Dim UserForm As Form
Dim UserControl As Control


For Each UserForm In VB.Forms
    For Each UserControl In UserForm.Controls
        Debug.Print UserForm.Name, UserControl.Name
    Next
Next

(cela ne marche qu'avec les fenetres actives)


Warning
Admin Codes-Sources.com
http://www.decompiler-vb.net/

pjcleder · Answer

PAT

Ce que tu as fais marche durant l'&#233;x&#233;cution th&#233;oriquement.
Essaye ton truc derri&#232;re un bouton avec un msgbox &#224; la place du debug et fais signe en cas de souci.

pour une fen&#234;tre en cours d'execution

dim ctl as control

for each ctl in form1.controls
   msgbox ctl.name
next

elguevel · Answer

Question &#224; Warning :

Et si l'on veut lister aussi les Form inactives ?

Cordialement.

Damien.

greedium · Answer

Bonjour





Moi aussi j'aimerais lister Tous les Form du projet ( surtout les inactifs...)
pour faire g&#233;n&#233;rer un fichier de traduction ... Et comme VB.Forms ne
contient que les Forms actifs, je me demande bien si c'est possible (
j'aurais bien du mal &#224; ouvrir toutes les fen&#234;tres de mon appli en m&#234;me
temps !!!)



Merci d'avance



Greedium