Remplacer row par colums

Résolu/Fermé

Youyou - 26 août 2020 à 11:11
Youyou - 26 août 2020 à 13:28

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

A voir également:

Remplacer row par colums
Remplacer disque dur par ssd - Guide
Remplacer par word - Guide
Quel site pour remplacer coco - Accueil - Réseaux sociaux
Remplacer tete sur photo - Guide
Remplacer windows 7 par windows 10 - Accueil - Mise à jour

2 réponses

Réponse 1 / 2

jordane45 Messages postés 38301 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 22 novembre 2024 4 704
26 août 2020 à 11:18

Bonjour,

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

Youyou
26 août 2020 à 11:48

Merci pour ta réponse, quand je l'insert j'ai une erreur 424. Une idée d'ou ça vient ?

jordane45 Messages postés 38301 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 22 novembre 2024 4 704 > Youyou
Modifié le 26 août 2020 à 11:53

petite 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

Réponse 2 / 2

Youyou
26 août 2020 à 13:28

Au top, merci bcp :)

Discussions similaires

Remplacer espace par retour ligne sur txt ???

comment remplacer un #div/0! par une cellule vide