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]

Bonjour Ya_v_Ka,
Vous n'auriez pas un petit fichier exemple ?
Il y a tant de choses possibles pour qu'une macro s'égare ...

 

[_Thierry]

Salut à toi mon ami

En temps normal ta shape est masquée comment dans le classeur ?
Une piste... il est possible que tu aies à ajouter "Do Events" juste après to Shape.visible = true....

Bien à toi
@+Thierry

 

[ya_v_ka]

Merci, mais pour une fois quasi pas possible de mettre le fichier.
Mais le fait est qu'elle ne s'égare pas… en pas par pas c'est bon !

 

[sylvanu]

La différence entre pas à pas et normal est le temps d'attente entre deux lignes.
Déjà essayez de mettre un msgbox après le Shape.visible = true
Si ça marche c'est bien un problème de temps entre l’exécution de deux lignes.

 

[ya_v_ka]

Salut à toi mon ami

En temps normal ta shape est masquée comment dans le classeur ?
Une piste... il est possible que tu aies à ajouter "Do Events" juste après to Shape.visible = true....

Bien à toi
@+Thierry

Salut chef,

Un .visible = false dans la procédure workbookopen.
Pas de Do Events… je n'utilise pas !

Merci

 

[ya_v_ka]

La différence entre pas à pas et normal est le temps d'attente entre deux lignes.
Déjà essayez de mettre un msgbox après le Shape.visible = true
Si ça marche c'est bien un problème de temps entre l’exécution de deux lignes.

Correction :
Juste ! J'avais essayé, avec une msgbox ça fait la même chose… mais en plus la msgbox stoppe l'exécution tant qu'elle n'a pas de réponse !

 

[ya_v_ka]

J'ai même fermé l'usf d'appel de la macro après avoir affiché le shape en pensant que tout devrait se traiter dans l'ordre, mais ça n'a rien changé...

 

[sylvanu]

Bien sur. Mais cela signifie qu'il s'agit bien d'un problème de temps d’exécution.
Peut être à essayer. Mettre une seconde shape et faire
shape1.visible = true
shape2.visible = true
shape2.visible = false
Juste pour voir si le shape 1 est bien traité.

 

[ya_v_ka]

Bien sur. Mais cela signifie qu'il s'agit bien d'un problème de temps d’exécution.
Peut être à essayer. Mettre une seconde shape et faire
shape1.visible = true
shape2.visible = true
shape2.visible = false
Juste pour voir si le shape 1 est bien traité.

Je vois au moins qu'on réfléchit pareil...
Essai qui a été fait : La première fois ça avait fonctionné, mais plus par la suite...
Ensuite, comme la shape1 était complexe (couleur, style, ombre, etc.) j'ai aussi essayé de réduire au plus simple afin de "réduire le volume d'infos à charger"... pas mieux !

 

[sylvanu]

Ce qui est étonnant c'est qu'avec un Application.Wait(Now + TimeValue("0:00:10")) vous n'avez pas un bon résultat, puisque Wait suspens le programme pendant 10 secondes.
Sinon sans le fichier difficile d'aller plus loin. Il y a tellement d'hypothèses.
bonjour Staple.

 

[Staple1600]

Bonjour le fil, ya_v_ka, _Thierry, sylvanu

•>ya_v_ka
A défaut de fichier, on peut avoir le projet VBA zippé, peut-être?
(ALT+F11->Fichier/Exporter)

 

[ya_v_ka]

Voilà… réduit au possible.
Normalement y'a 200 feuilles… Possible que quelque chose plante en ayant supprimé une feuille...
Mon souci est sur l'Usf_Start

Fichier modifié… plante moins !

 

[_Thierry]

Re bonjour la Suisse, et Sylvanu, et Staple

Pas de Do Events… je n'utilise pas !

Justement, essaies de l'utiliser juste après la ligne Shape Visible = True....

@+Thierry

 

[sylvanu]

En PJ une maquette qui reproduit le problème.

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

Quand on exécute Montre, l'image n’apparaît pas alors que la ligne est exécutée.
Au moins c'est une base de travail.