Discussion :

[pastis.vi]

Bonjour à tous !!

Après une bonne heure de recherche sans succès je viens poster ce message pour espérer obtenir une réponse à ce cas particulier.

J'ai une macro qui supprime un ensemble d'images et zones de texte dans la plage B40:L209 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
    For Each Img In ActiveSheet.Shapes
        If Not Intersect(Img.TopLeftCell, Range("$B$40:$L$209")) Is Nothing Then
            Img.Delete
        End If
    Next Img

Toutes les images se suppriment sans problème.
L’inconvénient c'est que ma liste déroulante présente en E2 n'est pas utilisable : disparition du petit onglet à droite de la cellule. Ma liste est pourtant encore présente dans Validation des données.
En supprimant la liste de la case E2 et en l'ajoutant de nouveau, l'onglet reste toujours invisible.

Avez-vous déjà rencontré ce problème ?
Quel moyen existe-t-il, en modifiant mon code, pour que ma liste déroulante ne soit pas affectée par cette macro ?

Merci d'avance pour l'aide apportée !

Pastis.vi

[joe.levrai]

Bonjour,

cette flèche étant elle-même un objet Shape, je pense qu'elle passe par la suppression ... même elle est en E2 donc c'est surprenant

tu as plusieurs solutions :

- récupérer le nom de ce Shape et l'exclure du traitement de suppression
- quand il est supprimé, tu peux le restaurer par vba via la propriété InCellDropdown de l'objet Validation du Range où est situé la validation de données. Remettre cette propriété à True
- idem que précédemment, mais sans VBA, dans le menu de validation des données, onglet "Option" tu coches la case "Liste déroulante dans la cellule"

[pastis.vi]

Bonjour Joe,

Merci pour l'info !
J'ai fait un Msgbox Img.Name pour récupérer le nom de mon image de liste déroulante : "Drop Down 317" et je l'ai exclu avec un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Img.Name <> "Drop Down 317" then

Maintenant tout reste en place pour ma plus grande satisfaction !

[Menhir]

https://msdn.microsoft.com/fr-fr/vba...property-excel

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

            If Img.Type = msoPicture Then Img.Delete

[pastis.vi]

Bonjour Menhir,

Merci pour l'info, en revanche le msoPicture ne fonctionne pas avec le zones de texte.

Cdlt,
Pastis.vi

[Menhir]

Merci pour l'info, en revanche le msoPicture ne fonctionne pas avec le zones de texte.

Tu peux prendre la peine de cliquer sur le lien que j'ai indiqué ou tu veux que je te fasse la becquée ?

[pastis.vi]

Menhir,

Je suis allé consulter le lien avant même de poster ma réponse. Je n'ai pas trouvé l'information sur ton lien me permettant de résoudre ma problématique.
Etant donné qu'il n'y a ni bonjour ni explications sur ton post, tu m'excuseras de te répondre simplement.

Ce sujet ne concerne probablement pas que moi, il sert aussi tous les utilisateurs confrontés à ce problème. A titre de conseil et pour faire avancer les choses il serai plus judicieux d'apporter quelques explications lorsque tu postes une réponse.

Amicalement

[Menhir]

Je suis allé consulter le lien avant même de poster ma réponse. Je n'ai pas trouvé l'information sur ton lien me permettant de résoudre ma problématique.

Tu n'a pas trouvé le lien vers la collection MsoShapeType ??? C'est étrange étant donné qu'elle est en plein milieu de la page.

Etant donné qu'il n'y a ni bonjour ni explications sur ton post

... excepté le code répondant à ton problème.

Mais si mes messages te déplaisent, je ne voudrais surtout pas t'importuner et, la prochaine fois, je m'abstiendrai.

Bonne chance