Microsoft 365 Flèche liste déroulante qui s'efface après macro effacement

[raf26]

Bonjour,

J'ai créer un fichier comprenant des listes déroulantes de validation de données (cellules B7 + B10 + D14 à G42 + D47 à G69)

Ce fichier contient également une macro (macro1) qui me permet d'effacer certaines données saisies sauf les images du fichier (absentes sur mon fichier joint car anonyme)

Malheureusement, ma macro efface les flèches des listes déroulantes.

Je suis obligé de quitter puis relancer le fichier pour les retrouver.

J'ai certainement oublié quelque chose dans ma macro.

Merci d'avance pour votre aide.

Cordialement

 

[haonv]

Bonjour,

Apparemment c'est la suppression des images du fichier qui enlève temporairement les flèches.
Ne peux-tu pas enlever les lignes:

For Each S In ActiveSheet.Shapes
If S.Name <> "logo" And S.Name <> "sign rs" And S.Name <> "sign mrv" And S.Name <> "CommandButton1" And S.Name <> "CommandButton2" And S.Name <> "CommandButton3" Then S.Delete
Next S

Cordialement

 

[mapomme]

Bonsoir,

Essayez le code suivant:

For Each S In ActiveSheet.Shapes
   If Not (S.Name Like "Drop Down*") And S.Name <> "logo" And S.Name <> "sign rs" And _
   S.Name <> "sign mrv" And S.Name <> "CommandButton1" And S.Name <> "CommandButton2" And _
   S.Name <> "CommandButton3" Then S.Delete
Next S

 

[raf26]

Je suis obligé de laisser ces lignes car sinon mes images sont effacées.
je précise que le fichier contient des signatures manuelles (mode dessin sur tablette tactile Microsoft Surface) et que ces signatures doivent être effacées lors de la remise à zéro du fichier.
si je ne mets pas ces lignes soit les signatures manuelles ne sont pas effacées, soit les images et logos sont effacées.

 

[raf26]

Bonsoir mapomme

Merci, j’essaie ce code demain

Je viens de rentrer le code et super c’est ce qu’il me fallait !!

Merci beaucoup pour votre aide et la rapidité de vos réponses

Je passe le post en résolu.

Bonne journée