Coller des données dans la première cellule vide
Bonjour,
J'ai vu que le sujet avait déja été abordé, mais je n'arrive pas à appliquer les solutions à mon cas, je suis trop débutant sur VBA :(
Ci dessous le code de mon bouton pour copier/coller les données voulues, sauf que ça les colles pas à la suite mais sur les données deja présentes .
Sub ExportDatasDemInterJ()
'
' ExportDataVersInterJ Macro
' Selection et export des datas des 4 premières colonnes vers l'onglet Intervention J
'
'
Range("A2:D1048576").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Intervention J").Select
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Bonjour Vittelfraise, le forum,
A tester....
Sub ExportDatasDemInterJ()
Dim derlig As Long, dl As Long
derlig = Sheets("Intervention J").Range("A" & Rows.Count).End(xlUp).Row + 1
With ActiveSheet
dl = .Range("A" & Rows.Count).End(xlUp).Row
.Range("A2:D" & dl).Copy Sheets("Intervention J").Range("A" & derlig)
Application.CutCopyMode = False
End With
End SubCordialement,
Bonjour,
utilises plutôt la balise </> et non [] car là ton code est illisible
et si tu peux, mets un fichier-test n pièce jointe
Merci @Steelson pour l'info sur la balise :)
Je test le code de suite, un grand merci a vous tous pour l'aide précieuse :)
Génial :) ça marche, merci beaucoup :)