XL 2010 copy paste delete

[herve62]

Bonjour
Je dois sélectionner des lignes pour col de A à K d'une feuille pour copier TOUT ( format ....etc ) sur une autre feuille
et supprimer la ligne d'origine
Quelle serait le code pour faire au plus court et simple , là je fais du point par point : select ; copie ; delete ; coller
merci

 

[job75]

Bonjour herve62,

Le plus court et simple :

Sub Test()
Selection.Copy Feuil2.[A1]
Selection.Delete xlUp
End Sub

Mais pas le plus rapide s'il y a beaucoup de lignes disjointes à supprimer.

A+

 

[herve62]

Re , Bjr JOB
C'est quoi la selection ?un row ou un range ? est ce que ça recopie la mise en forme ?

 

[patricktoulon]

re
Bonjour Hervé62
oui la copy from en direct copie aussi la mise en forme

 

[job75]

Avec beaucoup de lignes disjointes il faut un tri pour regrouper et accélérer :

Sub Copier_sans_tri()
Dim t
t = Timer
With [A:A].SpecialCells(xlCellTypeConstants).EntireRow
    .Copy Feuil2.[A1]
    .Delete
End With
MsgBox Timer - t
End Sub

Sub Copier_avec_tri()
Dim t
t = Timer
With [A:A]
    .SpecialCells(xlCellTypeConstants).EntireRow.Copy Feuil2.[A1]
    .Resize(, 11).Sort .Cells(1), Header:=xlNo 'tri pour regrouper et accélérer
    .SpecialCells(xlCellTypeConstants).EntireRow.Delete
End With
MsgBox Timer - t
End Sub

Salut patricktoulon.

 

[herve62]

Bon jour
merci des réponses mais j'ai utilisé ça et c'est ok

.Range("A" & x & ":k" & x).Copy
Worksheets("PA soldé").Range("A" & D_sold & ":K" & D_sold).PasteSpecial (xlPasteAll)
.Range("A" & x & ":k" & x).Delete xlUp

pour le temps c'était pas important : une centaine de lignes je parlais de court en temps que code