Discussion :

[j0joo]

Bonjour,

Je suis bloquer par une chose qui je pense est trés facile...

J'ai une feuille 1 avec des données, je souhaiterai simplement copier certaines colonnes vers la feuille 2 dans la colonne Q

Voici le code.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub deplace()
 
    Range("B:B,G:G,L:L,Q:Q,U:U,AA:AA,AF:AF,AK:AK,AP:AP,AU:AU,AZ:AZ,BE:BE,BJ:BJ,BO:BO,BT:BT").Copy
    Sheets("Feuil2").Select
    Range("Q1").Select
    ActiveSheet.Paste
 
End Sub

J'ai une erreur 1004.

Merci de votre aide.

Bonne journée.

[Marc-L]

Bonjour,

et colonne par colonne ?

Et pas besoin de Select, juste en une seule instruction en appliquant l'aide de la méthode Copy …

[j0joo]

Je préfère faire par groupe de colonne car je dois répéter l'action plusieurs fois.

Merci pour la piste. Je regarde.

[electrons]

Bonjour,

Essayez le code suivant, ici je copie à partir de la cellule A1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub deplace()
 
    Worksheets("Feuil1").Range("B:B,G:G,L:L,Q:Q,U:U,AA:AA,AF:AF,AK:AK,AP:AP,AU:AU,AZ:AZ,BE:BE,BJ:BJ,BO:BO,BT:BT").Copy _
    Destination:=Worksheets("Feuil2").Range("A1")
 
End Sub

Bonne journée

Si OK, ne pas oublier

[j0joo]

Merci pour la solution. Ca marche.