Ré initialiser des comboBox dans une boucle for each

**weetoz** · 24/12/2020, 15h05

Bonjour tout le monde,

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

Code :

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

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 :

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

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 :

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

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.

**Philippe Tulliez** · 24/12/2020, 15h11

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

C'est effectivement Object.Clear

**Pierre Fauconnier** · 24/12/2020, 15h19

Salut

ComboBox1.Clear ou ListBox1.Clear

**Pierre Fauconnier** · 24/12/2020, 15h45

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

**weetoz** · 24/12/2020, 16h09

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 :

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

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...

**weetoz** · 24/12/2020, 16h11

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.

**Pierre Fauconnier** · 24/12/2020, 16h14

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...

**Pierre Fauconnier** · 24/12/2020, 16h19

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 :

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

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

**weetoz** · 24/12/2020, 16h23

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.

**weetoz** · 24/12/2020, 16h26

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...

**Pierre Fauconnier** · 24/12/2020, 16h30

Envoyé par weetoz

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

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

Essaie ceci:

Code :

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

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

**weetoz** · 24/12/2020, 16h42

En passant de ça:

Code :

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

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

à ça:

Code :

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

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

Merci Pierre, merci Philippe pour votre aide.
Je vous souhaite un bon réveillon.

**Pierre Fauconnier** · 24/12/2020, 16h47

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

Ré initialiser des comboBox dans une boucle for each

Macros et VBA Excel

Discussions similaires

Partager

Partager