XL 2016 Shape qui ne s'affiche pas

[ya_v_ka]

Bonjour le monde,

Mon souci du jour :

J'ai créé une macro qui met un certain temps. Afin de faire savoir que tout va bien, au début de l'exécution j'affiche un shape (.visible = true), existant mais masqué sur la feuille au départ, et le re-masque juste à la fin du traitement.
En pas par pas tout fonctionne à merveille, mais lorsque la macro tourne normalement ça ne marche pas !
J'ai rajouté un .screenupdating = true pour être sûr, j'ai essayé avec un wait, un sleep, des beep, rien n'y fait !

Si quelqu'un a une idée ?

Merci d'avance

Ya'v

 

[sylvanu]

En rajoutant un Calculate après ActiveSheet.Shapes("Image 2").Visible = True ça à l'air de marcher. YavKa, vous pouvez essayez ?

 

[ya_v_ka]

Rajouté après le ...shape.visible = true
msgbox "Visible"
DoEvents
msgbox "Do passé"

J'ai les 2 msgbox à la suite mais toujours sans shape !

 

[sylvanu]

et avec le Calculate ( post #16) ? Chez moi ça marche sur la maquette du post #15.

 

[ya_v_ka]

En rajoutant un Calculate après ActiveSheet.Shapes("Image 2").Visible = True ça à l'air de marcher. YavKa, vous pouvez essayez ?

Ca ne change rien...
J'avais aussi essayé de réactiver la feuille… même souci...

 

[sylvanu]

YaPuKa faire un petit fichier minimaliste avec le problème car je ne vois pas comment aller plus loin.

 

[ya_v_ka]

Pour info… c'est sur mon pc de travail qui est dans la pièce à côté… alors chaque essai me fait voyager… pas un souci, sauf pour le temps mis...

YaPuKa faire un petit fichier minimaliste avec le problème car je ne vois pas comment aller plus loin.

Il y en a un #13 mais il plante parfois car trop élagué ! je suis dessus...

Par contre tu as parfaitement reproduit le problème dans ton fichier !

 

[sylvanu]

Par contre tu as parfaitement reproduit le problème dans ton fichier !

Non, absolument pas. Ajoutez y un Calculate, et ça marche.

Donc votre problème est tout autre, même s'il a le même effet.

 

[ya_v_ka]

OK… pas faux puisque le Calculate ne change rien !

 

[Dranreb]

Bonjour.
À tout hasard mettez Application.ScreenUpdating = True juste après changement de la propriété Visible.

 

[sylvanu]

Re,
Dans ma maquette :

    ActiveSheet.Shapes("Image 2").Visible = True
    Application.ScreenUpdating = False

Le problème est là. Mais avec la soluce de Dranreb :

Sub Montre()
    ActiveSheet.Shapes("Image 2").Visible = True
    Application.ScreenUpdating = True
    Application.ScreenUpdating = False
    MsgBox "Normalement l'image devrait être présente"
End Sub

Ca marche. Peut être une piste.

 

[ya_v_ka]

Bonjour.
À tout hasard mettez Application.ScreenUpdating = True juste après changement de la propriété Visible.

J'en avais mis un juste avant… pas de changement
Je viens d'essayer juste après… même résultat

Et même en ajoutant un false après le true comme sylvanu le suggère... pas mieux !

y'a du diable là-dessous

Merci tous pour les idées...

Et si qqun relève une énorme co....rie de code...

 

[sylvanu]

... envoyez le code ! et on verra si co..rie il y a .

 

[ya_v_ka]

... envoyez le code ! et on verra si co..rie il y a .

Comme dit précédemment il est en #13...
J'suis sûrement pas une lumière en VBA, mais de là à demander de relever les erreurs dans un fichier non fourni... ;-)

 

[sylvanu]

Je répondais à : Et si qqun relève une énorme co....rie de code...
Sans code, on ne peut rien faire.

 

[ya_v_ka]

...c'est bien ce que j'avais compris...