Excel cesse de fonctionner

 
Bonsoir gbinforme,

Tu as écris : « Ton assertion est très sujette à caution ».

J'ai commencé à apprendre Excel avec la version 5.0b (bien avant la 2003),
qui était incluse dans Microsoft Office Professionnel Edition (avec Access).

À l'époque, la documentation était en plusieurs gros manuels papier Microsoft,
et c'est dans le manuel Microsoft Excel qu'il était clairement noté ce que j'ai
écrit en NB : « Application.ScreenUpdating = True est implicite et automatique
avant la sortie d'une sub ».

-----------------------------------------------------

J'ai suivi ton lien sur l'article Microsoft ; juste sous le titre, il y a la version :
« Office 2013 et versions ultérieures » ; puis plus bas, il y a effectivement
cette phrase :

Une fois l'exécution de la macro terminée, songez à redéfinir la propriété
ScreenUpdating sur True.

1) L'exemple VBA qui est donné en dessous impose de le mettre car il y a
une MsgBox qui affiche le temps d'exécution de la sub, et à ce moment-là,
l'utilisateur doit pouvoir voir sur la feuille, à l'arrière-plan, des données
correctes (donc actualisées) ; ça ferait mauvais effet, sinon : l'utilisateur
penserait que la sub n'a pas fait son travail ! sans ce MsgBox, l'instruction
« Application.ScreenUpdating = True » est inutile.

2) Pourquoi alors Microsoft a-t-il marqué la phrase du lien ci-dessus ? Je pense
qu'il a juste voulu simplifier l'explication, pour éviter d'avoir à trop détailler :
voir l'exemple du point 1) ci-dessus, qui est aussi ton « dans certains cas ».

En conséquence, je maintiens mon assertion ; après, chacun est libre de
choisir comme bon lui semble ; moi, du moment que ça marche, je vais
continuer à faire de la même façon.  ;)

-----------------------------------------------------

En pratique :

Dans la grande majorité des cas, je n'ai jamais besoin de mettre explicitement
Application.ScreenUpdating = True avant la sortie d'une sub : comme disait le manuel, c'est fait implicitement juste avant la sortie d'une sub, donc une fois
l'exécution de la sub terminée, je vois bien tous les résultats attendus :
l'écran est correctement actualisé.

Dans les autres rares cas (comme l'exemple de Microsoft), c'est là que je mets
explicitement Application.ScreenUpdating = True.

J'ai toujours fait ainsi jusqu'à maintenant sans que ça me pose aucun souci,
pour ma version actuelle d'Excel 2007 (et toutes les versions antérieures).

-----------------------------------------------------

Peut-être que ça a changé dans les versions ultérieures ? fais donc l'essai
de ne pas mettre Application.ScreenUpdating = True avant la fin de la sub,
et si les résultats affichés à l'écran sont ceux attendus, alors ce ne sera
donc pas la peine de le mettre ; sauf si tu tiens absolument à écrire
explicitement quelque chose d'implicite, et c'est ton droit : chacun
est libre de programmer comme il préfère.  ;)

Cordialement
 

 
Bonsoir Patrice33740,

Dans mon message du 17 juillet à 22:50, j'avais bien précisé d'emblée :
« Voici une version légèrement optimisée du code de gbinforme ».

Contrairement à ce que tu penses, je n'ai pas fait une pseudo-optimisation,
et je prouve les améliorations apportées :

1) Ligne 4 : on sort de suite de la sub si Target.column <> 4 (donc si l'utilisateur
n'a pas cliqué sur une cellule de la colonne D) ; avantage : inutile de faire tout
ce qui suit (y compris les instructions Application.xxx).

2) J'ai volontairement enlevé l'instruction Application.ScreenUpdating = True
qui était inutile : lis mon message à gbinforme du 18 juillet à 1:07 ; je ne vais
pas réécrire ce que j'ai amplement démontré !

3) J'ai remplacé 2 .Offset(1, 0) par .Offset(1) ; en effet, quand un paramètre
vaut 0 (pour cette instruction), c'est inutile de le mettre ; même si c'est pour
la colonne ; exemple : .Offset(, 1) ; note bien la virgule juste après "(" ! et si
Microsoft avait voulu absolument qu'on mette les 2 paramètres, ils seraient
obligatoires et pas facultatifs ; attention : sur une feuille Excel, l'instruction
DECALER() correspondante exige bien les 2 paramètres ; pas en VBA.

4) Lignes 11 à 13 : j'ai modifié l'ordre des 3 .Offset() pour les mettre dans
un ordre plus naturel (car de gauche à droite) : on efface d'abord Dxx,
puis Fxx:Gxx, puis Jxx (où xx est le bon n° de ligne).

===============================

Tu as écris : « Quand on code proprement on évite tout ce qui est implicite !!! » ;
tu as ta façon de programmer et j'ai la mienne ; je considère qu'à condition de
bien savoir ce que l'on fait, on peut éviter de mettre des choses explicites.

Exemple : rien n'interdit d'écrire cette référence explicite complète :
MsgBox Workbooks("Classeur X").Worksheets("Feuil").Range("B2")

Mais si on lance toujours la macro à partir de Feuil1 du Classeur X,
c'est inutile et il suffit de mettre : MsgBox Range("B2") ; et même,
en utilisant la notation abrégée, ça donne : MsgBox [B2] (qui est
strictement équivalent) ; quelle est l'instruction la plus courte et
la plus clairement lisible ? c'est : MsgBox [B2]

-------------------------------------------------------

Pour être sûr qu'une macro se lance depuis la bonne feuille, ici "Feuil1",
mettre en début de macro : If ActiveSheet.Name <> "Feuil1" Then Exit Sub
ou carrément (selon les cas), mettre : Worksheets("Feuil1").Select

S'il y a plusieurs classeurs, alors ajouter un test pour vérifier si on est sur
le bon classeur.

Mais effectivement, il y a des fois où même en procédant à ma façon, je dois
quand même préciser explicitement la feuille ou le classeur à utiliser.

-------------------------------------------------------

Encore une fois, à chacun sa façon de programmer ; en aucun cas tu n'as
le droit de chercher à me dicter la mienne ; et inversement, je n'ai pas à
exiger que tu programmes à ma façon.

Aussi, ta remarque bien péremptoire « Quand on code proprement »
est tout à fait déplacée !

Cordialement