Parcourir un Userform et fonction Collection

[Jum_o]

Bonjour à tous,

J'ai un petit souci avec ma macro j'espere que vous allez pouvoir m'aider.
J'ai crée sur un userform plusieur checkbox. A chaque checkbox est attribué un certain nombre d'élements, des élements qui se croisent (cad que l'on peut retrouver les mêmes élements sur 2 checkbox différentes). J'aimerais qu'en fonction de ce que l'utilisateur va cocher (il peut sélectionner plusieurs checkbox), ma macro sélectionne les éléments correspondants et les place dans une feuille différente.

En PJ j'ai commencé à rédiger ma macro et surtt à expliciter mon souhait.

J'ai le message d'erreur suivant quand j'appelle la collection de checkBox que j'ai crée :

Variable objet ou variable de bloc with non définie.

Merci de votre aide.

Jum_o

 

[Pierrot93]

Re : Parcourir un Userform et fonction Collection

Bonsoir Jum

pour boucler sur tes "checkbox" :

Dim Ctrl As Control
For Each Ctrl In Me.Controls
If TypeOf Ctrl Is MSForms.CheckBox Then
    'ton code
End If
Next Ctrl

code à utiliser dans le module de l'usf.

bonne soirée
@+

 

[Jum_o]

Re : Parcourir un Userform et fonction Collection

Merci Pierrot93 je pense que c'est ce qu'il fallait faire mais juste un petit souci, sur mon usf j'ai des OptionButton et lorsque j'execute ma macro pas a pas, il prend aussi en compte ces OptionButton alors qu'il devrait s'intéresser uniquement aux CheckBoxs. saurais-tu pq?

Merci

 

[mromain]

Re : Parcourir un Userform et fonction Collection

bonjour Jum_o, Pierrot,

tu peux faire un filtre sur tes controles du type :
"If TypeName(Ctrl) = "CheckBox" Then ..."

a+

 

[Pierrot93]

Re : Parcourir un Userform et fonction Collection

Re, bonsoir mromain

Aarf, effectivement je viens d'essayer. Pourtant un code que l'on retrouve dans le WIKI, justement sur des "checkbox".

https://www.excel-downloads.com/threads/ref-wiki-2-de-michelxld-ce-qui-touche-aux-userform.92357/

Quelle version d'excel as tu ? perso 2003 SP3, me demande si cela n'est pas lié à la sp3. A confirmer...

bonne soirée
@+

 

[mromain]

Re : Parcourir un Userform et fonction Collection

bonjour Pierrot,

j'utilise la version 2007 SP1.
j'avais déjà eu un soucis similaire (ici)quand j'utilisais 2003 (sp2 il me semble).

a+

 

[Jum_o]

Re : Parcourir un Userform et fonction Collection

Salut mromain, Pierrot93,

mromain ce que tu préconises marche sauf qu'ici je fait un filtre sur toutes les checkbox, moi je veux que ma macro en 1 parcoure toutes les checkbox (ton code mromain) et en 2 qu'elle ne sélectionne que les checkBox cochée (checkBox= true).

If TypeName(Ctrl) = "CheckBox" Then
if Ctrl.Caption = True

ce code ne marche pas.

Merci

Jum_o

 

[Jum_o]

Re : Parcourir un Userform et fonction Collection

Oups pardon c'est Ctrl.Value qu'il faut mettre dsl du dérangement.

Jum_o

 

[mromain]

Re : Parcourir un Userform et fonction Collection

bonjour Jum_o,

j'ai essayé sur ton fichier de rajouter un bouton avec ce code :

For Each ctrl In Me.Controls
    If TypeName(ctrl) = "CheckBox" Then
        If ctrl.Value Then
            MsgBox ctrl.Caption
        End If
    End If
Next ctrl

et il a l'air de bien filtrer les CheckBox cochées.

a+