Effacer tous les combobox d'une feuille

Mi_

XLDnaute Occasionnel
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_
 

myDearFriend!

XLDnaute Barbatruc
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,
 

Discussions similaires

Statistiques des forums

Discussions
312 871
Messages
2 093 102
Membres
105 627
dernier inscrit
jean-marc.brillant