Discussion :

[pelerin98]

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 :

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

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

[casefayere]

Bonjour,

sans analyser ton code, je mettrais

Code :

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

Application.ScreenUpdating = False

juste après "Sub" ou après les déclarations de variable (que je n'ai pas vues) et

Code :

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

Application.ScreenUpdating = True

juste avant "End Sub"

[pelerin98]

Merci Casefayere,

mais ta proposition n'est pas bonne.
Si je fais ce que tu dis, les images 1 à n'apparaissent pas (elles sont toujours sous la condition Application.ScreenUpdating = Falseet en fin de programme seule la dernière est visualisée car juste avant le End Sub il y a eu Application.ScreenUpdating = TrueCe qui me parait tout à fait normal.

Merci de me dire ce qui ne va pas.

Cordiales salutations.