Macro pour copier/coller une ligne à la suite dans un sheet2
Bonjour,
Je pense que le fichier en piece jointe permet de comprendre ma problématique plus que mille mots.
J'ai une macro qui marche parfaitement pour repondre à ma problématique sauf que je n'arrive pas à l'executer dans un autre sheet.
Mon code:
Sub ()
Range("H2:M2").Copy
Range("A" & Range("A65536").End(xlUp).Row + 1).PasteSpecial (xlPasteValues)
End SubJ'ai essayé le code ci-dessous mais ce ne permet pas de coller les lignes les unes à la suite des autres:
Sub ()
Range("H2:M2").Copy
Worksheets(Sheet2).Range("A" & Range("A65536").End(xlUp).Row + 1).PasteSpecial (xlPasteValues)
End SubAvez-vous une idée des erreurs dans mon code ?
KR
Bonjour,
Hum... Il n'y a pas de sheet2 dans ce classeur !
Pour la Sgeet1 il n'y a pas d'erreur mais vous devez formater auparavant la colonne A au Format "date courte"
Sinon vous pourriez aussi modifier la macro et mettre
.PasteSpecial (xlPasteAll) mais cela copierai également le quadrillage ce que je ne vous conseille pas les mises en forme inutiles alourdissent ...inutilement vos classeurs.
A+
Bonsoir à tous !
Comme dit galopin01 il n'y a pas de sheet2...un fois la feuille ajoutée voici le code
Sub Button1_Click()
Range("M10:T10").Copy Destination:=Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
End SubBonne soirée