Re Fox, le Forum
Aie ! La barre d'outil "Formulaire", je ne suis plus du tout copain avec !! Depuis que j'ai rencontré la barre d'Outils "Contrôle", je lui suis totalement infidèle !!!
En fait je ne vois pas vraiment beaucoup de moyens de supprimer sélectivement ce genre de "Drop Down List " (ancien nom des ComboBox) que par une boucle de ce style :
Sub SubShapesDelete()
Dim WS As Worksheet
Dim SH As Object
Dim i As Byte
Set WS = Sheets("TaFeuille")
For Each SH In WS.Shapes
If Left(SH.Name, 4) = "Drop" Then
SH.Delete
End If
Next
End Sub
Mais attention Toutes les autres listes du même style seront supprimées aussi ... Donc çà peut convenir dans le cas où tu n'en as qu'une.
Maintenant tu parles de "Menu" qui a un nom qui change ??? Tu entends par là que "Menu" = Zone de Liste Modifiable ?
Là je bosse sur des PC en version US de Win et d'Office, je ne peux être formel sur le nom donné en Français à ce genre de "Zone de Liste Modifiable"... En américain çà donne "Drop Down" suivi d'un numéro qui s'incrément à chaque nouvelle création... Pour savoir en français ce que çà donne, avec l'enregistreur de macro qui tourne, dessine une de ces Zones de Liste Modifiable et deplace là, puis supprime là, regarde le code, tu auras le nom...
Voilà c'est tout ce que je peux faire pour toi pour l'instant...
Bon Appétit
@+Thierry