Microsoft 365 Macro, copier coller sans écraser la ligne selectionnée

Staple1600 à dit:

Bonsoir (re)

Essaies ceci

Code:

Sub CopiePaste_bis()
Range("B4:H65").Copy
Sheets("Master").Cells(Rows.Count, "A").End(xlUp)(2).PasteSpecial xlValues
Application.CutCopyMode = False
End Sub

NB: >J'ai pas eu ton feedback sur ma formule dans ton autre fil 😉
(Celui des mois en anglais)

Cliquez pour agrandir...

merci beaucoup 🙂

PS je vais regarder 😉

ça marche très bien 😀

du coup j'aimerais juste modifier au lieu de --> range("B4:H65")
j'aimerais qu'il compte toutes les lignes et qu'il s arrête pas juste à 65 sinon tant que s'est écris ,si j'ai bien compris il faut faire :

Sub CopiePaste_bis()
Sheets("Template").Cells(Rows.Count, "B").End(xlUp)(2).CopieSpecial xlValues
Sheets("Master").Cells(Rows.Count, "A").End(xlUp)(2).PasteSpecial xlValues
Application.CutCopyMode = False
End Sub

?
merci infiniment 🙂 !

Bonjour Nella66

​

J'avais utilisé ce code pour copier a la suite d'un tableau

DerniereLigneUtilisee = Range("B" & Rows.Count).End(xlUp).Row +1
et
val1 = Sheets("Feuil1").Range("A11")
Sheets("HISTORIQUE TELS").Range("A" & DerniereLigneUtilisee) = val1
val1 = ""

Je pense ici que ça pourrait fonctionner comme ceci :
en déclarant DerniereLigneUtilisee comme ceci : DerniereLigneUtilisee = Range("B" & Rows.Count).End(xlUp).Row


Sub CopiePaste_bis()
Dim DerniereLigneUtilisee as Integer
DerniereLigneUtilisee = Range("B" & Rows.Count).End(xlUp).Row
Range("B4:H & DerniereLigneUtilisee").Copy '(où B4 est la 1ere cellule de ton tableau)
Sheets("Master").Cells(Rows.Count, "A").End(xlUp)(2).PasteSpecial xlValues
Application.CutCopyMode = False
End Sub



PS je débute en VBA ça doit peut être se voir...

Bonjour le fil

Une autre syntaxe possible