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

[namora]

Ca ne marche malheureusement pas avec : value

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.value _  ' ou value.copy                ne marche pas
            Destination:=Worksheets(F1).Range("A3")
            .Range("$A$2:$BP$3089").AutoFilter Field:=3
End With

[Marc-L]

Sans copie comme dans l'exemple du lien de Value !

Et conformément aux règles du forum, merci d'utiliser l'icône # dédiée au balisage de code …

[namora]

Malheureusement ça ne marche toujours pas

[Marc-L]

RangeDestination.Value = RangeSource.Value … En une seule ligne de code comme dans le lien !

[namora]

ça ne marche toujours pas

[Marc-L]

Moi cela fonctionne bien ainsi … Et ce depuis plus de dix ans quelle que soit la version d'Excel !




_____________________________________________________________________________________________________
Heureux l'étudiant qui, comme la rivière, suit son cours sans quitter son lit …

[namora]

J'ai probablement commis une erreur à quelque part
Merci Marc-L

[gnain]

Bonjour,
essaie comme ça.
pour copier les valeurs des formules

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
    Sheets(F1).Range("A3").PasteSpecial xlPasteValues
    .Range("$A$2:$BP$3089").AutoFilter Field:=3
End With

[namora]

Ca plutot marché avec:

Code :

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

Worksheets(F1).Range("A3").PasteSpecial xlPasteValues

au lieu de :

Code :

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

Sheets(F1).Range("A3").PasteSpecial xlPasteValues

Merci pour votre aide