Problèmes macro
Bonjour,
J'ai crée une macro "Transfert" dans un fichier, afin de recopier les lignes d'une feuille dans une autre.
Mais la recopie se fait à l'envers ! La dernière ligne se retrouve en première position, etc...
Ci-joint fichier pour plus d'informations ( le bouton de la macro se situe en A2 de la feuille Cumul, la recopie doit se faire dans la feuille Liste).
Merci pour votre aide
Feever
Bonjour,
Sans trop toucher au code,
Remplace dans la sub transfert :
For i = lig To 4 Step -1par
For i = 4 To lig Step 1Cordialement
Code un peu plus propre :
A tester
Sub transfert()
Dim ws1 As Worksheet, ws2 As Worksheet
Dim i As Long, plage As Range
Set ws1 = Worksheets("Cumul")
Set ws2 = Worksheets("Liste")
i = ws1.Range("A10000").End(xlUp).Row
Set plage = ws1.Range("B4", ws1.Cells(i, 13))
ws2.Range("A1").Resize(i - 3, 12) = plage.Value
End SubCordialement
Rebonjour,
J'ai testé ta macro, mais il y a un petit problème : les colonnes se sont décalées : B est en A, C est en B, etc.... et comme les colonnes sont en format différent ( pourcentage ou nombre ), les informations contenues ne sont plus valides.
Merci quand même pour ta persévérance .
A bientôt.
Feever
Si c'est juste un probleme de colonne,
modifie
ws2.Range("A1").Resize(i - 3, 12) = plage.Value
par
ws2.Range("B1").Resize(i - 3, 12) = plage.ValueCordialement
Encore une fois merci,ça marche.
Bonne soirée.
Feever