Disparition liste déroulante

Bonjour à tous,

j'ai un léger problème...

j'ai créé une liste déroulante sur Excel, et sur VBA j'ai tapé ce code pour supprimer les différentes images lorsqu'on clique sur le bouton.

Dim img As Object
    For Each img In Worksheets("Feuil1").Shapes
        If img.Name <> "SEARCH" And img.Name <> "logo" Then img.Delete
    Next

Mais malheureusement ce code supprime ma liste déroulante...

Ma liste n'a pas de nom particulier puisqu'elle a été créée directement sur Excel sans passer par VBA

Ma question est la suivante : comment conserver ma liste déroulante ?

Merci d'avance pour votre aide

Loïc

PS : je ne peux pas vous donner ma fiche Excel car c'est confidentiel ...

PS 2 : je suis sur Excel 2010

Bonjour,

Oui c'est normal puisque ta liste est aussi un objet (Shapes) sur ta feuille

Peut être en mettant ta liste dans une cellule plutot que comme tu l'as fait

Amicalement

Bonjour,

Ta liste déroulante est-elle un objet de la barre d'outils "Contrôle", ou de la barre d'outils "Formulaire"

Quel est son nom? (Combobox xx ou "Zone Combinée xx") xx représente un nombre

si Combobox xx, essaie en rajoutant cette condition :

If img.Name <> "SEARCH" And img.Name <> "logo" And img.Type<> 12 Then img.Delete

Si zone combinée, remplace le 12 par un 8.

Peut-être?

Merci beaucoup pour toutes vos réponses !!

ça marche parfaitement en utilisant la formule de cousinhub (j'ai juste mis un 8 au lieu d'un 12)