à 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
A voir également:
- à l'aide sur macro Excel
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Comment trier par ordre alphabétique sur excel - Guide
- Comment calculer la moyenne sur excel - Guide
2 réponses
Bonjour,
Essayez comme ceci :
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
PhC
Merci beaucoup,
