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

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 15 Avril 2021

• #2

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.

Cliquez pour agrandir...

 

Pièces jointes

• Inventaire (2).xlsm

  499.2 KB · Affichages: 10

Vote positif 0 Vote négatif

F

famu

XLDnaute Occasionnel

• 15 Avril 2021

• #3

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

 

Dernière édition: 15 Avril 2021

Vote positif 0 Vote négatif

F

famu

XLDnaute Occasionnel

• 15 Avril 2021

• #4

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 15 Avril 2021

• #5

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.

 

Vote positif 0 Vote négatif

Jacky67

XLDnaute Barbatruc

• 15 Avril 2021

• #6

famu à dit:

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

Cliquez pour agrandir...

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

VB:

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

Perso, je tenterais un nouveau classeur

 

Dernière édition: 15 Avril 2021

Vote positif 0 Vote négatif