à l'aide sur macro Excel
Résolu
Phc
-
PhC -
PhC -
Bonjour,
J'amerai modifier cette macro pour réaliser un copier puis collage spécial valeur....
Dim lastlig As Long
Dim s As Byte
For s = 2 To 13
With Sheets(s)
lastlig = .Cells(Rows.Count, 1).End(xlUp).Row
.Range("A44:v44" & lastlig).Copy Sheets(1).Cells(Rows.Count, 1).End(xlUp)(2)
End With
Next s
J'amerai modifier cette macro pour réaliser un copier puis collage spécial valeur....
Dim lastlig As Long
Dim s As Byte
For s = 2 To 13
With Sheets(s)
lastlig = .Cells(Rows.Count, 1).End(xlUp).Row
.Range("A44:v44" & lastlig).Copy Sheets(1).Cells(Rows.Count, 1).End(xlUp)(2)
End With
Next s
2 réponses
-
Bonjour,
Essayez comme ceci :
Dim lastlig As Long Dim s As Byte Sheets(1).Select 'pour être sur que la méthode paste fonctionne For s = 2 To 13 With Sheets(s) lastlig = .Cells(Rows.Count, 1).End(xlUp).Row .Range("A44:V" & lastlig).Copy Sheets(1).Cells(Rows.Count, 1).End(xlUp).PasteSpecial xlPasteValues End With Next s
-
Bonjour,
Bonjour Pijaku
Personnellement j'aurai mis ce code, afin de ne pas supprimer la dernière ligne :
.... .... Sheets(1).Cells(Rows.Count, 1).End(xlUp)(2).PasteSpecial xlPasteValues .... ....
Bonne journée
