Parcours des userforms et contrôles

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:

---

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

Bonjour,

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

;)

Bonjour,

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

Code:

---

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

---

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:

---

For Each Ctrl In VBCmp.Designer.Controls

---

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

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 :?

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

Citation:

---

Envoyé par Alucard26

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

---

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

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:

---

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 ! :D

Bonjour,

Là, tu nous montre la fin, ta requète.
Mais comment tu lance ton Userform?

Cordialement.

ctac

Bonjour à tous et merci pour vos réponses,

Au final j'ai résolu mon probleme (code plus bas pour ceux que ça intéresse) ,certe il est très simple mais il ne fonctionnait pas avant , la petite ambiguité réside dans le fait d'avoir "maforme" et "liste" en variant ! Comme ceci je peux retrouver n'importe quelle listbox (active)dans mon projet et récuperer la valeur selectionnée !

Code:

---

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

Y = Split(texte1, ",") Dim Parametre1 As ADODB.Parameter Dim Parametre2 As ADODB.Parameter ' Create Command Object. Set Cmd = New ADODB.Command Cmd.ActiveConnection = Cn Cmd.CommandText = Y(0) ' Create Parameter Object. Set Parametre1 = Cmd.CreateParameter(, adLongVarChar, adParamInput, 50) Set Parametre2 = Cmd.CreateParameter(, adLongVarChar, adParamInput, 50) Parametre1.Value = ctrl.Value For Each maforme In VBA.UserForms If maforme.Caption = X(1) Then For Each liste In maforme.Controls 'S'il s'agit de ma listbox If liste.Name = X(2) Then Parametre2.Value = (liste.List(liste.ListIndex)) Cmd.Parameters.Append Parametre1 Cmd.Parameters.Append Parametre2 Set Parametre1 = Nothing Set Parametre2 = Nothing Set Rs = Cmd.Execute() End If Next liste End If Next maforme

---

Bonne fin d'après midi à tous.