Discussion :

[boux2]

Bonjour,

Je suis sur une feuille A qui contient des boutons.
Au clic, il y a des copier coller dans tous les sens.
Actuellement je vois les différentes selections très rapidement. (effet de clignotement)
Je voudrais uniquement voir ma feuille A et le sablier mais jamais les autres feuilles.

J'utilise ce genre de code :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Private Sub cmd_1()
 
Sheets("Feuil2").Range(Sheets("Feuil2").Cells(3, 7), Sheets("Feuil2").Cells(184, 7)).Copy
    Sheets("Feuil2").Cells(3, 4).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
 
 
<div style="margin-left:40px">...</div>
End sub

Merci de bien vouloir de donner un coup de pouce

[jmfmarques]

Inhibe donc la mise à jour de l'affichage pendant ce traitement et rétablis-la à la fin du traitement !

[coxi77]

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub cmd_1()

Application.ScreenUpdating = False

Sheets("Feuil2").Range(Sheets("Feuil2").Cells(3, 7), Sheets("Feuil2").Cells(184, 7)).Copy
    Sheets("Feuil2").Cells(3, 4).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

...
End sub

Avec ca ca doit etre bon

[boux2]

Nikel merci bien !