Remplacer row par colums

Résolu
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

2 réponses

  1.
    jordane45 Messages postés 30427 Date d'inscription   Statut Modérateur Dernière intervention   4 832
     
    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

    0
    1. Youyou
       
      Merci pour ta réponse, quand je l'insert j'ai une erreur 424. Une idée d'ou ça vient ?
      0
      1. jordane45 Messages postés 30427 Date d'inscription   Statut Modérateur Dernière intervention   4 832 > Youyou
         
        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
        0

Discussions similaires

Remplacer espace par retour ligne sur txt ???
ABCLOVE -
Namzat -

11 réponses
avoir virgule sur pavé numérique au lieu du point
lobace -
lobace -

4 réponses