Ré initialiser des comboBox dans une boucle for each

Version imprimable

Bonjour tout le monde,

j'aimerai pouvoir faire une procédure pour remettre les comboBox d'une feuille à "0", j'ai essayé ceci:

Code:

1
2
3
4
5
6
7
8
9
10
11
Sub resetCB()
Dim shp As Shape
    For Each shp In Worksheets("FormulaireHeure").Shapes
        If Left(shp.name, 3) = "CB_" Then
            Set cbox = shp.ControlFormat
                cbox.Value = ""
                cbox.Activate
                cbox.Visible = False
        End If
    Next shp
End Sub

Erreur 438...
Avec ceci:

Code:

1
2
3
4
5
6
7
8
9
10
11
Sub resetCB()
Dim shp As OLEObject
    For Each shp In Worksheets("FormulaireHeure").OLEObjects
        If Left(shp.name, 3) = "CB_" Then
            Set cbox = shp.Object
                cbox.Value = ""
                cbox.Activate
                cbox.Visible = False
        End If
    Next shp
End Sub

erreur: propriété "value" non répertorié...

Code:

1
2
3
4
5
6
7
8
9
10
11
Sub resetCB()
Dim shp As OLEObject
    For Each shp In Worksheets("FormulaireHeure").OLEObjects
        If Left(shp.name, 3) = "CB_" Then
            Set cbox = shp.OLEType
                cbox.Value = ""
                cbox.Activate
                cbox.Visible = False
        End If
    Next shp
End Sub

Erreur d'incompatibilité de type.

Je sais pas comment faire, mais la méthode me permettrai d'améliorer d'autres éléments de mon classeur, car il devient de plus en plus illisible...

Merci d'avance pour vos indications, et je vous souhaite un bon réveillon de Noël.

24/12/2020, 15h11
Philippe Tulliez

Bonjour,
Sauf erreur de ma part et de mémoire, pour initialiser une liste d'un ComboBox et ListBox c'est Object~~.List~~.Clear où Object est le nom de l'objet

[EDIT]
Ah oui, je devrais me méfier de ma mémoire :lol:
C'est effectivement Object.Clear
24/12/2020, 15h19
Pierre Fauconnier

Salut

ComboBox1.Clear ou ListBox1.Clear
24/12/2020, 15h45
Pierre Fauconnier

A la relecture, je vois que tu parles d'un combobox de formulaire, inclus donc dans un shape sur la feuille=> shp.ControlFormat.RemoveAllItems devrait convenir

Merci Philippe, merci Pierre,

mais j'aurais dû formuler mes demandes plus clairement et y apporter des précisions.

Par moment, lorsque je fais disparaitre une comboBox, la liste reste présente sur la feuille.
De ce que j'ai pu trouver sur la toile, il faut activer la combobox, puis la rendre invisible pour contourner le problème.

Et par la même occasion, je souhaitai supprimer la valeur, et le tout pour toute les combobox de la feuille. D'où l'intérêt de la boucle for each.
Code:

1 2 3 4 5 6 7 8 9 10 11 Sub testClearCB() Dim shp As OLEObject For Each shp In Worksheets("FormulaireHeure").OLEObjects If Left(shp.name, 3) = "CB_" Then Set cbox = shp.QuoiDonc cbox.clear cbox.Activate cbox.Visible = False End If Next shp End Sub
Bref, je continue de chercher...

24/12/2020, 16h11
weetoz

Citation:

A la relecture, je vois que tu parles d'un combobox de formulaire, inclus donc dans un shape sur la feuille=> shp.ControlFormat.RemoveAllItems devrait convenir

C'est un contrôle activex.
24/12/2020, 16h14
Pierre Fauconnier

Désolé, mais je n'ai pas compris ce que tu souhaites faire.

C'est quoi faire disparaître?
Quelle liste reste visible?
Quelle valeur veux-tu supprimer?

Ton combobox est a priori lié à une plage de données, mais "faire disparaître" le combobox ne supprime évidemment pas la plage liée. Idem pour la "valeur". Ton combobox renvoie l'index de la ligne sélectionnée dans une cellule, mais évidemment, cette cellule reste là malgré la "disparition" de ton combo...
24/12/2020, 16h19
Pierre Fauconnier
Citation:

Envoyé par weetoz

C'est un contrôle activex.

Les codes donnés à 15h05 et à 16h09 ne sont pas du tout les mêmes et ne parlent pas des mêmes objets. Le post initial indique des combobox de formulaire, le code donné à 16h09 illustre l'utilisation d'un activex... ^^

La façon de réinitialiser un combobox activex d'une feuille est la suivante : Feuil1.ComboBox1.Clear...

Pour boucler sur les contrôles OleObject de la feuille et réinitialiser les combobox, tu pourrais utiliser ceci:
Code:

1 2 3 4 5 6 7 Sub Test() Dim ctl As OLEObject For Each ctl In Feuil1.OLEObjects If TypeName(ctl) = "ComboBox" Then ctl.Object.Clear Next End Sub
24/12/2020, 16h23
weetoz

Je souhaite faire disparaitre toutes les comboBox et ré initialisé leurs valeurs, d'une part. Les combobox ne sont pas lié à des cellules.
D'autre part, je voudrai régler ce problème de liste ( que l'on fait apparaitre avec .dropdown) qui reste sur l'écran lorsque l'on rend invisible une ou plusieurs combobox.
J'ai trouvé très peu d'information sur ce problème, à part qu'il faut activer la combobox avant de la rendre invisible.

Je m'excuse si des fois mon vocabulaire porte à confusion et également le manque de précision, j'ai du mal à pas m’emmêler les crayons.:aie:
24/12/2020, 16h26
weetoz

Citation:

Les codes donnés à 15h05 et à 16h09 ne sont pas du tout les mêmes et ne parlent pas des mêmes objets. Le post initial indique des combobox de formulaire, le code donné à 16h09 illustre l'utilisation d'un activex... ^^

Dans le post de 15h05, j'illustre 3 essais qui n'ont pas fonctionné, le premier, effectivement ne correspond pas à un activeX, mais les deux autres eux oui.
Encore désolé pour le sac de noeud...:oops:

Citation:

Envoyé par weetoz

[...]
Encore désolé pour le sac de noeud...:oops:

Pas de soucis. C'est juste pour comprendre la configuration de ton classeur...

Essaie ceci:
Code:

1 2 3 4 5 6 7 8 9 10 Sub Test() Dim ctl As OLEObject For Each ctl In Feuil1.OLEObjects If TypeName(ctl.Object) = "ComboBox" Then ctl.Object.Clear ctl.Visible = False End If Next End Sub

24/12/2020, 16h42
weetoz

En passant de ça:

Code:

For Each shp In Worksheets("FormulaireHeure").OLEObjects

à ça:

Code:

For Each shp In Feuil1.OLEObjects

ça fonctionne, reste à voir si ce procédé résoudra la liste qui reste apparente sans que j'arrive à en connaitre la cause.
Bien vu Pierre, mais je ne comprends pas le pourquoi du comment...

Bon, je suis en train de me faire jeter du bureau :mrgreen:
Merci Pierre, merci Philippe pour votre aide.
Je vous souhaite un bon réveillon.
24/12/2020, 16h47
Pierre Fauconnier

Si Feuil1 pointe bien vers Worksheets("FormulaireHeure"), alors tu manipules le même objet par les deux codes et ils devraient tous les deux fonctionner.

Es-tu sûr que Feuil1 et Worksheets("FormulaireHeure") sont bien la même feuille? Vois le billet de Philippe à ce sujet:
https://www.developpez.net/forums/bl...sant-codename/

Bon réveillon et bonne fin d'année à toi aussi ;)