Non rafraîchissement de l'écran non fonctionnel.

[Calvus]

Bonsoir le Forum,


Malgré l'instruction

Application.ScreenUpdating = False

l'écran ne se fige pas et "bouge".

Avez vous une idée ?

Merci

 

[pierrejean]

Re : Non rafraîchissement de l'écran non fonctionnel.

Bonjour Calvus

On pourrait peut être avoir des idées avec un fichier fonctionnel !!!!

 

[job75]

Re : Non rafraîchissement de l'écran non fonctionnel.

Bonjour Calvus, Pierre,

Tous mes voeux de bonne année 2016.

Pour rendre le fichier un peu fonctionnel :

Private Sub Workbook_Open()
Dim s As Shape
For Each s In Feuil1.Shapes 'CodeName de la feuille
  s.OnAction = "Feuil1.Click_France"
Next
End Sub

Pas de saut d'écran chez moi (Excel 2013) avec la macro Click_France 😕

Fichier joint.

A+

 

[Calvus]

Re : Non rafraîchissement de l'écran non fonctionnel.

Bonjour Pierre, Jpb75, le Forum,

Tous mes voeux également.

@ Pierre, le fichier n'est fonctionnel que sur Alpes Maritimes en effet. Dû à la modification pour le forum.

@ Job75, Chez moi, à chaque click, la carte est rafraîchie, donc disparaît 1/10e de seconde.

avec la macro Click_France

Pourquoi cet air confus ? 🙂

Bonne journée.

 

[pierrejean]

Re : Non rafraîchissement de l'écran non fonctionnel.

Re

Salut Gerard 🙄 et Bonne Année

Chez moi (XL 2010) pas de rafraîchissement même avec un changement de couleur
Il est toujours très difficile de dépanner ce qui fonctionne

 

[Calvus]

Re : Non rafraîchissement de l'écran non fonctionnel.

Re,

Merci Pierrejean

Quelqu'un pourrait il tester avec excel 2007 ?

 

[13GIBE59]

Re : Non rafraîchissement de l'écran non fonctionnel.

Bonjour à tous.

testé avec 2007, aucun souci...


JB

 

[Calvus]

Re : Non rafraîchissement de l'écran non fonctionnel.

Re,

Merci 13GIBE59. Une idée de ce qu'il peut se passer chez moi ?

 

[pierrejean]

Re : Non rafraîchissement de l'écran non fonctionnel.

Re

Teste cette version

 

[Calvus]

Re : Non rafraîchissement de l'écran non fonctionnel.

Merci Pierrejean,

Idem !

 

[job75]

Re : Non rafraîchissement de l'écran non fonctionnel.

Re,

Application.ScreenUpdating = False est utile quand il y a beaucoup de Shapes à traiter.

Par ailleurs pourquoi colorer des Shapes déjà colorées ?

Je verrais bien quelque chose de ce genre avec la propriété Transparency :

Private Sub Workbook_Open()
Dim s As Shape
Application.ScreenUpdating = False
For Each s In Feuil1.Shapes 'CodeName de la feuille
  s.OnAction = "Feuil1.Click_France"
  s.Fill.Transparency = 1
Next
End Sub

Sub Click_France()
With Shapes.Range(Array("Alpes Maritimes", "Var", "Bouches Du Rhone", "Alpes de Haute Provence", "Hautes Alpes", "Drome", "Isere")).Fill
  .Transparency = IIf(.Transparency, 0, 1)
End With
End Sub

Fichier (2).

A+

 

[job75]

Re : Non rafraîchissement de l'écran non fonctionnel.

Re,

La macro étant assez rapide on peut traiter toutes les Shapes :

Sub Click_France()
Dim s As Shape
Application.ScreenUpdating = False
For Each s In Shapes
  If s.Fill.ForeColor.RGB Then _
    s.Fill.Transparency = IIf(s.Fill.Transparency, 0, 1)
Next
End Sub

Fichier (3).

A+

 

[job75]

Re : Non rafraîchissement de l'écran non fonctionnel.

Re,

Juste une précision sur le fichier précédent.

Si l'on veut pouvoir colorer manuellement une Shape (département) incolore :

- effacer toutes les couleurs en cliquant sur la Shape

- clic droit pour la sélectionner : mettre éventuellement la grande Shape qui la cache en arrière-plan

- appliquer la couleur

- clic normal sur la Shape pour afficher la couleur.

A+

 

[Calvus]

Re : Non rafraîchissement de l'écran non fonctionnel.

Bonsoir le Forum, Job75 🙂

Job75, le fichier du post #11 fonctionnait très bien. Aucun rafraîchissement. Il est en différemment du dernier fichier.

Merci pour cette macro en tout cas. Je vais creuser...encore et encore...

 

[job75]

Re : Non rafraîchissement de l'écran non fonctionnel.

Re Calvus,

Il est donc clair que sur Excel 2007 l'utilisation de Application.ScreenUpdating provoque le saut d'écran.

En fait on peut carrément supprimer cette instruction :

Sub Click_France()
Dim s As Shape
For Each s In Shapes
  If s.Fill.ForeColor.RGB Then _
    s.Fill.Transparency = IIf(s.Fill.Transparency, 0, 1)
Next
End Sub

Fichier (4).

Bonne fin de soirée.