Remplacer row par colums
Résolu
Youyou
-
Youyou -
Youyou -
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
A voir également:
- Remplacer row par colums
- Remplacer disque dur par ssd - Guide
- Remplacer par word - Guide
- Remplacer coco - Accueil - Réseaux sociaux
- Quel site pour remplacer coco - Accueil - Réseaux sociaux
- Remplacer carte graphique - Guide
2 réponses
Bonjour,
Tu peux essayer un truc du genre
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
Tu peux essayer un truc du genre
Sheets("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
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