Utilisation de Application.ScreenUpdating

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:

---

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.

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

Citation:

---

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.

---

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:

---

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:

---

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+

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"
Pièce jointe 206577

Avec mes remerciements anticipés

Citation:

---

Envoyé par pelerin98

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:

---

1 2 3 4

Sheets("A").select Application.ScreenUpdating = True Sleep N Application.ScreenUpdating = False

---

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.