Effacer tous les combobox d'une feuille

[Mi_]

Bonsoir le forum,

Sur une feuille, j'ai des dizaines d'objets, des shapes et des combobox.

Je voudrais éffacer automatiquement tous les combobox, sans y toucher aux autres shapes.

Pour *tout* éffacer, j'utilisais le code

Dim Box As Object
For Each Box In ActiveSheet.Shapes
Box.Delete
Next

Donc comment serait-il possible d'éffacer uniquement les combobox ?

Merci pour tout conseil,
Mi_

 

[Hervé]

Bonsoir Mi_

Essaye comme ca :

Dim Box As Shape
For Each Box In ActiveSheet.Shapes
    If Left(Box.Name, 8) = 'ComboBox' Then Box.Delete
Next Box

salut

 

[Mi_]

Re bonsoir,

Merci Hervé, ça marche.

Et c'est applicable à 'n’importe quel Shape ou type de Shape, en fonction de son nom. Hé hé.

 

[myDearFriend!]

Bonsoir Mi_, Hervé,

En complément de la réponse d'Hervé,

Si toutefois on a renommé les ComboBox en question, on peut dans ce cas utiliser ceci :

Sub EffaceComboBox()
Dim B As OLEObject
      For Each B In ActiveSheet.OLEObjects
            If TypeOf B.Object Is MSForms.ComboBox Then
                  B.Delete
            End If
      Next
End Sub

Cordialement,

 

[Mi_]

Re Bonsoir,

Avec le code de Didier, c'est possible d'éffacer sélectivement n'importe quel type d'objet, n'y tenant pas compte de son nom.

Merci, Hervé et myDearFriend et à bientôt.
Mi_