macro dans plusieurs feuilles

[tonix]

Bonjour à tous
j'ai réalisé une macro copier/coller dans une feuille qui se déclenche avec un CommandButton1_Click et je souhaiterai que la macro se réalise ensuite sur une autre feuille.
J'aimerai connaitre la démarche pour activer l'autre feuille et réaliser la mêmê macro que dans la 1ère feuille.
je vous ai mis le début de la macro pour une meilleur compréhension.
Merci d'avance tonix


Private Sub CommandButton1_Click() 'ajout de projet
Dim L As Long
L = Range('A65536').End(xlUp).Row
Rows(L - 4 & ':' & L).Select
Selection.Copy
Range(Cells(L + 1, 1).Address).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range(Cells(L + 1, 1).Address).Select

 

[porcinet82]

Salut tonix,

Si tu veux réaliser l'operation sur une autre feuille, tu peux modifier le code comme suit :

Selection.Copy
sheets('nom_de_feuille').select
Range(Cells(L + 1, 1).Address).Select
ActiveSheet.Paste

Ou alors, si tu veux que ca te copie directement sur plusieurs feuille, tu boucles sur les feuilles de la manière suivante:

For i=1 to Sheets.Count 'pour toutes les feuilles
  'ton code
Next i

J'es père ne pas avoir répondu a coté de la question.

@+

 

[tonix]

boujour porcinet82

Avec le premier code il se produit une erreur mais j'ai peut etre mal positionné la ligne ds le code. Voila comment j'ai fait:
Private Sub CommandButton1_Click() 'ajout de projet
Dim L As Long
L = Range('A65536').End(xlUp).Row
Rows(L - 4 & ':' & L).Select
Selection.Copy
Range(Cells(L + 1, 1).Address).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range(Cells(L + 1, 1).Address).Select
Sheets('WFF_Total').Select
L = Range('A65536').End(xlUp).Row
Sheets('WFF_Total').Select
Rows(L - 4 & ':' & L).Select (erreur)ici
Selection.Copy
Range(Cells(L + 1, 1).Address).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range(Cells(L + 1, 1).Address).Selec
End Sub

La fonction copier/coller se fait dans la 1ère feuille mais dans l'autre feuille ca ne fonctionne pas.
Pour le second code il fonctionne mais ce n'est pas ce que je voulais.
Je vais encore chercher et merci pour tes renseignements bonne soirée.

 

[porcinet82]

re,

Je ne comprend pas tres bien ce que tu veux faire avec ta macro. Est ce que tu veux copier des données sur la feuil1 et les coller sur la feuil1 puis sur la feuil2 au meme endroit que sur la feuil2?

Si c'est ca, il te suffit de mettre le code ainsi (enfin il me semble) :

Private Sub CommandButton1_Click()
Dim L As Long

L = Range('A65536').End(xlUp).Row
Rows(L - 4 & ':' & L).Select
Selection.Copy
Range(Cells(L + 1, 1).Address).Select
ActiveSheet.Paste

Sheets('WFF_Total').Select
Range(Cells(L + 1, 1).Address).Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub

Si ce n'est pas ca, met un petit fichier exemple de ce que tu veux et le resultat souhaité avec des données bidon afin que je puisse directement adapter.

@+

 

[tonix]

Boujour porcinet82

Excuse moi, mais je n'ai pu me connecter durant le weekend. J'ai realisé ce que je souhaitais, merci pour ton aide. Bonne journée
tonix