Formule VBA

[petithomme]

Bonsoir à tous,

voivi une formule liée à un bouton sous excel :

Public Sub Recopie()
Columns("K:S").Copy

Range("K1").End(xlToRight).Offset(0, 1).Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub

je souhaite que les colonnes de mon autre feuille "feuil2" soient aussi copier, comment faire svp ?

Merci 😀

 

[petithomme]

Re : Formule VBA

EDIT :

Public Sub Recopie()

Feuil1.Columns("K:S").Copy
Feuil1.Range("K1").End(xlToRight).Offset(0, 1).Select
ActiveSheet.Paste
Application.CutCopyMode = False

Feuil2.Columns("F:I").Copy
Feuil2.Range("F1").End(xlToRight).Offset(0, 1).Select
ActiveSheet.Paste
Application.CutCopyMode = False

End Sub

ceci marche presque sauf que mes colonnes de ma feuil2 sont selectionnées mais pas copiées ( ni dans ma feuil1 ni 2 ) et j'ai ERREUR 400

 

[petithomme]

Re : Formule VBA

MDR je m'autoréponds :

Public Sub Recopie()

Feuil1.Columns("K:S").Copy
Feuil1.Range("K1").End(xlToRight).Offset(0, 1).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Feuil2.Activate
Feuil2.Columns("F:I").Copy
Feuil2.Range("F1").End(xlToRight).Offset(0, 1).Select
ActiveSheet.Paste
Application.CutCopyMode = False

End Sub

Voici ma réponse !

Merci à moi ! LOL

Bonsoir le forum et à tous !