Discussion :

[pelerin98]

Bonjour,
je ne saisis pas bien le fonctionnement de la fonction Application.ScreenUpdating et je dois sûrement ne pas l'utiliser correctement.
Je sais qu'elle sert essentiellement à gagner du temps en n'affichant pas les maj d'écrans.
Je la mets donc en début de procédure à "False".
J'ai un traitement cyclique faisant appel à de multiples fichiers, A, B, C, D etc . . .
A la fin de chaque cycle, je veux faire apparaître à l'écran, pendant n secondes, le fichier A.
Le premier cycle est parfait : le traitement se fait sans que les fichiers sollicités par les calculs n'apparaissent.
Puis vient le moment où je veux faire apparaitre à l'écran le fichier "A"
Je m'y prends de la manière suivante (ce n'est sans doute pas la bonne solution) ::

Code :

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

1
2
3
4
Application.ScreenUpdating = True
Sheets("A").select
Sleep N
Application.ScreenUpdating = False

et je retourne pour un nouveau cycle de traitement en souhaitant conserver la visualisation à l'écran de mon fichier "A"
mais avant que je ne réaffiche le fichier "A" en fin de 2ème cycle, j'ai une apparition fugace d'un fichier "C" avant mon 2ème appel de fichier "A" à visualiser pour la 2ème fois.
Il semble que le "False" ne soit plus actif !
Quelqu'un peut-il éclairer ma lanterne ?

Merci beaucoup.

[Philippe Tulliez]

Bonjour,
Il faut juste inverser la valeur que tu donnes à la propriété ScreenUpdating False à la ligne 1 et True à la ligne 4
Extrait de l'aide en ligne

Application.ScreenUpdating, propriété
Cette propriété a la valeur True si l'actualisation de l'écran est activée. Type de données Boolean en lecture-écriture.

[gFZT82]

Bonjour,

Je pense que cette apparition fugace est due à l'utilisation de Select (ou Activate) pour le traitement de tes fichiers.

Tu peux faire ce test :
On souhaite copier la valeur de Feuil1!A1 du classeur Classeur2.xlsx et la reporter dans la Feuil1!B1 du classeur qui contient la macro.
Dans le premier cas, on effectue une activation de [Classeur2.xlsx]Feuil1 avant copie et on aperçoit le basculement de feuille.

Code :

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

1
2
3
4
5
6
Sub Test1()
    Application.ScreenUpdating = False
    Workbooks("Classeur2.xlsx").Worksheets("Feuil1").Activate
    Range("A1").Copy ThisWorkbook.Worksheets("Feuil1").Range("B1")
    ThisWorkbook.Worksheets("Feuil1").Activate
End Sub

Dans le second cas, on effectue une copie directe et on ne voit plus la transition.

Code :

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

1
2
3
4
Sub Test2()
    Application.ScreenUpdating = False
    Workbooks("Classeur2.xlsx").Worksheets("Feuil2").Range("A1").Copy ThisWorkbook.Worksheets("Feuil1").Range("B1")
End Sub

A+

[pelerin98]

Bonjour Philippe et merci de m'avoir pris en charge,

Non, j'avais bien compris le fonctionnement . . .

Je vous mets ci-dessous la structure (sans les codes détaillés) de mon programme
- En gras vert, le seul fichier que je veux voir à l'écran
- En gras rouge , les fichiers appelés que je ne veux pas voir (et "Tableau" me perturbe)
- en très gras bleu, le positionnement de mes "Application.ScreenUpdating"


Avec mes remerciements anticipés

[halaster08]

j'ai une apparition fugace d'un fichier "C" avant mon 2ème appel de fichier "A" à visualiser pour la 2ème fois.

Bonjour,
Je pense que quand tu passe ScreenUpdating a true il t'affiche la sheet "C" car il devait travailler dessus avant, puis t'affiche la sheet "A"

Essaye comme ça:

Code :

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

1
2
3
4
Sheets("A").select
Application.ScreenUpdating = True
Sleep N
Application.ScreenUpdating = False

[pelerin98]

Re-Bonjour à tous,

La solution de halaster08 est la solution . . .

Le déplacement du Application.ScreenUpdating = True après le dernier sheets("Tele").Select au lieu d'être avant, résoud parfaitement le problème.

Merci à tous, c'est un bonheur de trouver tant de compétence sur ce forum.