Utilisation de" Application.ScreenUpdating = False/True"
Bonjour,
pas très costaud en Excel VBA mais demandeur, j'ai le problème suivant :
Dans une feuille j'ai 8 images en Ligne 7 et colonnes 97, 99, 101, 103, 105, 107, 109, 111
Je les transfère successivement en Cells(7,4) avec une rémanence de 300 ms
Il se trouve qu'à chaque passage (ou presque) d'une nouvelle image, un petit saut d'écran est perceptible.
Je voudrais que l'affichage de chaque nouvelle image se fasse par superposition sans vibration.
Est-ce possible ?
Je vous transfère mon code . . . Excusez-moi s'il est primaire, mais c'est tout ce que je sais faire pour l'instant.
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
Sub Macro5()
'
Application.ScreenUpdating = False
'
' La DESTINATION" de l'image transférée sera toujours Cells(7,4)
' ------------------------------------------------------------------
'
'
' 8 images sont à transférer ( toujours en ligne 7 et Colonnes 97, 99, 101, 103, 105, 107, 109, 111)
' --------------------------------------------------------------------------------------------------
'
For n = 1 To 8
Col = (n * 2) + 95
'
' Effacement de la zone réception
' -------------------------------
For Each s In ActiveSheet.Shapes
If Not Intersect(s.TopLeftCell, Range("C6:E8")) Is Nothing Then
s.Delete
End If
Next s
'
' Transfert d'une des 8 images "ORIGINE" vers la "DESTINATION"
' -----------------------------------------------------------
Cells(7, Col).Select
Selection.Copy
Cells(7, 4).Select
ActiveSheet.Paste
Application.ScreenUpdating = True ' pour rendre visible l'image transférée
Application.ScreenUpdating = False ' --------------------------------------
Sleep 300
Next
'
End Sub |
Cordiales salutations
