Remplacer row par colums
Résolu
Bonjour le Forum,
Question simple surement mais je n'y arrive pas ^^. J'ai ce code vba qui fonctionne bien mais plutôt que de copier sur la 1er ligne vide de la page 3 je voudrais le faire sur la premiere colonne.
Sub NomDeTaMacro()
Range("A1:A2000").Copy
Sheets("Feuil3").Range("A" & Sheets("Feuil3").Range("A" & Rows.Count).End(xlUp).Row + 1).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub
J'ai tenté de remplacer row par columns mais j'ai une erreur. Quelqu'un pourrait me l'expliquer ?
Merci
Question simple surement mais je n'y arrive pas ^^. J'ai ce code vba qui fonctionne bien mais plutôt que de copier sur la 1er ligne vide de la page 3 je voudrais le faire sur la premiere colonne.
Sub NomDeTaMacro()
Range("A1:A2000").Copy
Sheets("Feuil3").Range("A" & Sheets("Feuil3").Range("A" & Rows.Count).End(xlUp).Row + 1).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub
J'ai tenté de remplacer row par columns mais j'ai une erreur. Quelqu'un pourrait me l'expliquer ?
Merci
2 réponses
-
ModérateurBonjour,
Tu peux essayer un truc du genreSheets("Feuil3").cells(1,Sheets("Feuil3").UsedRange.Columns(sht.UsedRange.Columns.Count).Column +1).PasteSpecial Paste:=xlPasteValues
A noter, que pour poster du code sur le forum, tu dois utiliser les BALISES DE CODE.
Explications à lire ici : https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code
-
-
Modérateur@Youyoupetite erreur de ma part
Sub NomDeTaMacro() Dim lstCol As Integer Dim shSource As Worksheet Dim shCible As Worksheet Set shSource = Sheets("Feuil1") Set shCible = Sheets("Feuil3") lstCol = shCible.UsedRange.Columns(Sheets("Feuil3").UsedRange.Columns.Count).Column + 1 shSource.Range("A1:A2000").Copy shCible.Cells(1, lstCol).PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False End Sub
-
-
Au top, merci bcp :)
