Discussion :

[alpin38]

bonsoir

j'en viens a poser cette question sur ce forum car je désespère a ne pas trouver la réponse a une chose si banale

voici mon code source :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub CommandButton9_Click()
 
Dim Ctrl As Control
 
'Boucle sur la collection de contrôles
For Each Ctrl In Me.Controls
    MsgBox Ctrl.Name
Next Ctrl
End Sub

mais ca bloque a la compilation sur le .Controls

me manque-t-il une référence (MF2.0 Object library est coché ou autre chose ?

merci de vos réponses

Fab

[Jean-Pierre49]

Bonjour


fait un essais avec :
dans un module

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
Option Explicit
                        Public Init                     As Boolean
Sub BoucleSurControle()
                        Dim Ctrl                    As Control
                        Dim WB                      As Workbook
                        Dim VBComp                  As VBComponent
                        Dim Uf                      As Object
Init = True
 
    Set WB = ThisWorkbook ' instance du classeur
 
    For Each VBComp In WB.VBProject.VBComponents
        If VBComp.Type = 3 Then ' si c'est un Usf
            On Error GoTo Echappe:
            Set Uf = UserForms.Add(VBComp.Name) ' instance de la variable Uf
 
            For Each Ctrl In Uf.Controls ' on boucle sur les contrôles de l'USF
                MsgBox = VBComp.Name & "-" & Ctrl.Name
            Next Ctrl
 
            DoEvents
            Unload Uf
        End If
    DoEvents
Echappe:
    Next VBComp
 
Init = False
 
End Sub

et dans chaque Userform

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Private Sub UserForm_Initialize()
If Init Then Exit Sub

Cela devrait te donner le nom de l'USF et le nom du contrôle
à adapter après selon tes besoins

Bon courage

[kiki29]

Salut, quel est le message d'erreur ? car perso ton code fonctionne sans problemex

[alpin38]

Salut, quel est le message d'erreur ? car perso ton code fonctionne sans problemex

salut

le message d'erreur est ce que j'ai mis dans le titre

"Membre de methode ou de données introuvable"


@JP merci de ta réponse , mais le pbm seras le meme avec to code , c'est le ".Controls" qui me génerent une erreur , le code lui fonctionne correctement (c'est une source MS)

[alpin38]

voici la solution en VBA

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub CommandButton9_Click()
 
Dim Ctrl As OLEObject
 
'Boucle sur la collection de contrôles
For Each Ctrl In Me.OLEObjects
    MsgBox Ctrl.Name
Next Ctrl
End Sub