Excel VBA, perte d'accès listes déroulantes

Bonjour,

Voila une info qui peut servir.

J'ai été confronté comme certains au problème de disparition des listes déroulantes.
Comme par exemple sur ce fil :
https://forums.commentcamarche.net/forum/affich-10527777-excel-liste-deroulante-qui-ne-deroule-plus
J'ai cherché un bon moment quelle pouvait en être la cause et je pense avoir trouvé d'où vient le problème.
En fait, il semble que la flèche d'accès associée aux listes déroulantes ne soit pas créée avec la liste mais soit attachée en tant qu'objet à la feuille initiale.
Et c'est là tout le problème, car si on élimine toutes les formes de la feuille avec VBA comme ceci :

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

celle de la flèche d'accès aux listes déroulantes est elle aussi définitivement éliminée. Il est alors impossible d'activer les listes ou d'en créer de nouvelles dans la feuille et je n'ai pas trouvé de solution pour la restituer, hormis celle de recopier l'ensemble de la feuille sur une nouvelle, comme cela a été suggéré dans le fil ci-dessus.

Pour pallier ce problème, il suffit simplement de ne pas supprimer cette fameuse forme et le tour est joué !

Le nom donné par Excel à cette forme étant "Drop Down xx", (xx sont des numéros d'ordre), la macro devient alors :

Dim img As Object 
For Each img In ActiveSheet.Shapes 
    If Not img.Name Like "Drop*" Then 
         img.Delete 
    End If 
Next

Ainsi, le forme "liste déroulante" n'est pas supprimée de la feuille et les listes fonctionnent normalement.



Michel