Microsoft 365 Flèche liste déroulante qui disparaît

[famu]

Bonjour,

Un petit souci avec ce fichier qui répondait à ma demande mais que je viens de modifier en ajoutant une liste déroulante dans la colonne C : "Etat".
La flèche de la liste déroulante disparaît après le lancement de la macro par "Worksheet_SelectionChange(ByVal Target As Range)".
En faisant un enregistrement, la liste déroulante réapparaît.
Impossible de régler ce problème !
D'avance, un grand merci pour votre aide,

 

[sylvanu]

Bonsoir Fau,
Voir réponse plus complète dans l'autre post.

Un essai en PJ.
Jamais vu ça auparavant. C'est comme si une liste déroulante était considérée comme un shape.
Pour résoudre le problème, je ne supprime le shape que si il est dans la partie droite de l'écran.
Bizarre.

 

[famu]

Bonjour Sylvanu,
Merci pour cette solution...qui fonctionne bien apparemment.
C'est la modification apportée il me semble :
X = Img.Left
If X > 500 Then
je peux avoir un commentaire pour que je comprenne ?
En exécutant la macro, X prend la valeur "561" ça correspond à quoi ? À une distance ?
Encore merci

C'est OK .left ou .Top donne la position de l'image dans la feuille si j'ai bien compris.
Merci merci

 

[famu]

Par contre, il ne faut pas déplacer l'image vers la gauche sinon...elle ne s'efface plus

 

[sylvanu]

Comme je le disais, c'est comme si la liste déroulante était considéré comme un shape. Ce qui est absurde.
Le seul moyen que j'ai trouvé est de ne traiter que les images dans la partie droite de l'écran.
Si vous la déplacez au delà du milieu de l'écran vers la gauche, elle ne s'efface plus. Mais c'était pas dans les hypothèses puisque l'image est collée par le VBA.

 

[Jacky67]

Par contre, il ne faut pas déplacer l'image vers la gauche sinon...elle ne s'efface plus

Bonjour à tous
Comme sylvanu, je trouve cela bizarre
Peut être résolu par la rustine

        For Each i In Worksheets("Mag. Technique").Shapes
            If i.Type = 6 Then i.Delete
        Next

Perso, je tenterais un nouveau classeur