à l'aide sur macro Excel Résolu/Fermé

Question

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

Configuration: Windows XP / Internet Explorer 8.0

pijaku · Answer

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

cousinhub29 · Answer

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

à l'aide sur macro Excel

2 réponses

Discussions similaires