Discussion :

[Alucard26]

Bonjour à tous,

Je suis entrain de développer une application vba pour une entreprise et j'ai besoin de votre aide.

Je dois effectuer des actions en fonction du userform et de la listbox contenu dessus , il faut donc parcourir mes userform et les contrôles qui s'y trouvent , mon code ressemble à 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
17
18
Function parcours(nomUserform As Variant, nomListbox As Variant)
    Dim ctrl As Control
    Dim usef As VBComponent
 
        For Each usef In ThisWorkbook.VBProject.VBComponents
            'S'il s'agit d'un UserForm
            If usef.Type = 3 Then
                If usef.Name = nomUserform Then
                    For Each ctrl In usef.Controls <== ERREUR
                     If ctrl.Name = nomListbox Then
                        ACTION
                     End If
                    Next ctrl
                End If
            End If
        Next usef
 
 End Function

Le problème est que .control n'est pas une procédure de VBComponent et je ne connais pas un autre moyen de parcourir les userforms , j'ai bien essayé avec ma propre collection , mais il faut la parcourir avec une variable de type object , dont .control n'est pas une procédure non plus. J'ai essayé pas mal de code qui ne fonctionnent pas, je suis complétement bloqué.

Si quelqu'un a une idée je suis volontier preneur.

Merci d'avance

[fring]

Bonjour,

Tu as la solution là --> http://excel.developpez.com/faq/?pag...oucleObjUsfVBE

[jfontaine]

Bonjour,

Une adaptation sans la référence " Microsoft Visual Basic for Applications Extensibility 5.3. "

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
Sub liste_Des_Objets()
 
'Retourne tous les objets de tous les userforms
 
Dim Ctl As Control
Dim Usr As Object
 
For Each Usr In ThisWorkbook.VBProject.VBComponents
 
    If Usr.Type = 3 Then
 
        For Each Ctl In Usr.designer.Controls
 
            MsgBox Ctl.Name
 
        Next Ctl
 
    End If
 
Next Usr
 
End Sub

[Alucard26]

Bonjour à vous deux et merci pour vos réponses !

Ce code génére chez moi une erreur (pour les deux solutions , avec et sans référence) : "Erreur d'exécution '91' : Variable objet ou variable de bloc With non définie".
L'erreur se situe au niveau de cette ligne :

Code :

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

For Each Ctrl In VBCmp.Designer.Controls

Vous avez une idée d'où est ce que cela peut provenir ?

[Alucard26]

Bonjour à tous,

Personne n'a une idée ? Je suis vraiment perdu , j'ai essayé de trouver tout seul sans succés, mon Designer pour VBComp est à Nothing mais je ne saurai dire pourquoi

[ctac_]

Bonjour,

Quel est le but ?
Parcourir les userforms et les controls ne me semble pas appropriés.
Quand on est dans un userform, on sait ou on est!

Cordialement.

ctac

[fring]

Vous avez une idée d'où est ce que cela peut provenir ?

Non pas d'idée comme ça, fais un copier / coller de ton code complet

[Alucard26]

Bonjour à tous,

Je vais vous expliquez mon projet avec un peu plus de détails , ça risque d'être un peu long mais au moins ça sera claire !

Donc je dois développer une appli avec plusieurs userform , mon responsable veut absolument que cela soit fais avec une seule classe pour tous les userforms , je dispose donc d'une classe ClaUserForm qui initialise mes userforms en parcourant les contrôle qui se trouvent dessus(textbox et listbox et bouton pour la plupart) et en exécutant la requête sql qui se trouve dans le tag du contrôle en question. Le probleme est que certaines de mes requêtes sont paramétrés , le paramétre en question est généralement la selection dans une listbox or comme ma classe est générique je ne dois pas avoir une listbox en dur , je veux donc la chercher selon son nom et le nom du userform où elle se trouve en parcourant tout mes contrôles. Avec un morceau de code cela sera peut être plus claire !

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
 
Dim Cmd As ADODB.Command
        Dim Parametre As ADODB.Parameter
        ' Create Command Object.
        Set Cmd = New ADODB.Command
        Cmd.ActiveConnection = Cn
'execution de la requête contenu dans le tag du controle (que j'ai récupéré dans X(1)
        Cmd.CommandText = X(1)
        ' Create Parameter Object.
        Set Parametre = Cmd.CreateParameter(, adInteger, adParamInput, 5)
'La requête est paramétré , je dois donc attribuer le paramétre qui ne peut se trouver dans le tag
        Parametre.Value = (List.ListBox1.List(List.ListBox1.ListIndex)) ' je souhaite remplacer cette ligne pour que mon bouton fonctionne pour n'importe quelle listbox
        Cmd.Parameters.Append Parametre
        Set Parametre = Nothing
        Set Rs = Cmd.Execute()
        Call pause
        Ctrl = parcours(X(2), X(3))
        maliste.InitList List.ListBox1 ' idem pour cette ligne

Voilà j'espere avoir été assez claire !