Copier Coller dans une macro.

Version imprimable

16/04/2015, 11h40
namora

Copier Coller dans une macro.

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
16/04/2015, 12h19
gnain

Bonjour,
mettre au début de la macro

Code:

Application.ScreenUpdating = False

mettre à la fin de la macro

Code:

Application.ScreenUpdating = true

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

Macro

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:

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
*************

Bonjour,
essaie cela

Code:

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

16/04/2015, 16h31
namora

Macro

Ç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
16/04/2015, 17h54
Marc-L

Bonjour,

utiliser alors la propriété Value …

_____________________________________________________________________________________________________

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

_____________________________________________________________________________________________________
Je suis Charlie - Je suis Bardo

macro

Ca ne marche malheureusement pas avec : value

Code:

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

16/04/2015, 18h39
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 …
16/04/2015, 18h42
namora

Malheureusement ça ne marche toujours pas
16/04/2015, 18h46
Marc-L

RangeDestination.Value = RangeSource.Value … En une seule ligne de code comme dans le lien !
16/04/2015, 19h11
namora

ça ne marche toujours pas
16/04/2015, 19h28
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 …
16/04/2015, 19h33
namora

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

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

Code:

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

17/04/2015, 11h27
namora

Ca plutot marché avec:

Code:

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

au lieu de :

Code:

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

Merci pour votre aide