Discussion :

[Nelson77]

Bonjour,

je suis passé de office 2003 à 2010 et y a un truc qui ne marche plus...

J'ai un fichier excel où on coche des cases. On lance une macro principale qui en fonction des cases cochées lance différentes sous-macro. Avec une sous-macro pour chaque case à cocher.

Pour voir quelle macro tourne, je change la couleur de la case associée pendant qu'elle tourne. Donc en début de chaque sous-macro j'ai:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 11
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Visible = msoFalse
DoEvents

et à la fin:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
    DoEvents
    Selection.ShapeRange.Fill.ForeColor.SchemeColor = 22

Ca marchait bien. Le "DoEvents" était nécessaire pour voir le changement de couleur. Sinon on ne voyait rien.

Ici, on ne voit plus les changements de couleurs. Le visuel n'étant pas mis à jour avant la fin de la macro.

J'ai mis " ScreenUpdating = True " en début de macro. Sans effet.

Des conseils?

Merci!

[Soraphiroth]

tu as mis screenupdating tout court ou application.screenupdating ? Il faut mettre application.screenupdating sinon rien ne se passe (même si screenupdating seul ne fait pas planter).

[Nelson77]

Soraphiroth: bonne remarque.

le code devient

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
    Application.ScreenUpdating = True
    Selection.ShapeRange.Fill.ForeColor.SchemeColor = 11
    Selection.ShapeRange.Line.DashStyle = msoLineSolid
    Selection.ShapeRange.Line.Visible = msoFalse

visuellement, on voit que la case à cocher est sélectionnée.

Par contre, la couleur ne change pas

[Ashireon]

Peux tu mettre la macro complete stp ?
JE pense avoir une idee.
ajouter en debut de macro

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.volatile

et en fin de macro

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveWorkBook.refreshAll

[Nelson77]

En fait ça marche avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
    Selection.ShapeRange.Fill.ForeColor.SchemeColor = 11
    DoEvents
    Selection.ShapeRange.Line.DashStyle = msoLineSolid
    Selection.ShapeRange.Line.Visible = msoFalse
 
    DoEvents

en insérant un DoEvents après le changement de couleur...

Ashireon, ta solution ne fonctionne pas.

En tout cas, merci à tous