Discussion :

[namora]

J'aimerai avoir votre aide
J'ai en place un algorithme (macro) qui copie et colle plusieurs fois d'une feuille à une autre.
Donc le problème est que lors de l’exécution, ses copies et collages défilent sur l'écran et c'est pas du tout beau à voir.
J'ai besoin d'une méthode pour palier à cela
Merci

[gnain]

Bonjour,
mettre au début de la macro

Code :

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

Application.ScreenUpdating = False

mettre à la fin de la macro

Code :

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

Application.ScreenUpdating = true

aussi ne pas activer les feuilles pour copier ni coller. vous gagnerez de la vitesse (si ce n'est pas fait)

[namora]

Merci #gnain
Je viens de l'essayer et ça marcher.
C'est comme si tu étais dans ma tête, Effectivement je me posais la question sur l'activation des feuilles avant copie.
J'ai essayé cela mais ça buggais donc je suis revenu à l'activation avant copie et collage.

Voici un exemple de bout de code(copier_coller) :
***********

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
F1 ="FRONTO"          
Sheets("Traitement").Select
            ActiveSheet.Range("$A$2:$BP$3089").AutoFilter Field:=3, Criteria1:= _
            "FRONTO"
            Range("A3").Select
            Range(Selection, Selection.End(xlToRight)).Select
            Range(Selection, Selection.End(xlDown)).Select
            Selection.Copy
            Sheets(F1).Select
            Range("A3").Select
            ActiveSheet.Paste
            Application.CutCopyMode = False
            Sheets("Traitement").Select
            ActiveSheet.Range("$A$2:$BP$3089").AutoFilter Field:=3
            'ActiveWindow.Panes(4).Activate
            Sheets(F1).Select

*************

[gnain]

Bonjour,
essaie cela

Code :

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

1
2
3
4
5
6
7
8
With Sheets("Traitement")
    .Range("$A$2:$BP$3089").AutoFilter Field:=3, Criteria1:="FRONTO"
    der_ligne = .Range("A" & Rows.Count).End(xlUp).Row
    der_Col = .Cells(4, 1).End(xlToRight).Column
    .Range(.Cells(3, 1), .Cells(der_ligne, der_Col)).Copy _
    Destination:=Worksheets(F1).Range("A3")
    .Range("$A$2:$BP$3089").AutoFilter Field:=3
End With

[namora]

Ça marche

Mais juste que je veux que le collage soit en "valeur" et non avec formule.
Si tu as un lien, ou je peux trouver ces petits détails, à me proposer, je crois que je t’éviterai ce genre de petites questions.

Merci #gnain

[Marc-L]

Bonjour,

utiliser alors la propriété Value …


_____________________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …


_____________________________________________________________________________________________________
Je suis Charlie - Je suis Bardo