Nougatine95
XLDnaute Occasionnel
Bonjour le forum,
Merci d'avoir cliqué sur cette discussion! Peut-être pourriez-vous m'aider?
Fichier de 3 feuilles
Je souhaite réunir via macro, Feuille 1 et Feuille 2 sur Feuille3.
1/ La réunion des 2 feuilles, peut-elle se faire automatiquement à l'ouverture de Feuil3?
2/ Sur Feuil3: Feuil2 peut-elle se placer automatiquement en fin de liste de Feuil1? (sachant que le nombre de lignes de ces 2 feuilles est appelé à évoluer en + ou -, actuellement j'ai considéré maxi ligne 30).
Je vous remercie pour votre aide précieuse.
Nougatine95.
Je ne saurai aller plus loin que ce code enregistré:
Sub Macro2()
Sheets("Feuil1").Select
Range("A5:I30").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil3").Select
Range("A5").Select
ActiveSheet.Paste
Sheets("Feuil2").Select
Range("A5:I30").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil3").Select
Range("A20").Select
ActiveSheet.Paste
End Sub
Merci d'avoir cliqué sur cette discussion! Peut-être pourriez-vous m'aider?
Fichier de 3 feuilles
Je souhaite réunir via macro, Feuille 1 et Feuille 2 sur Feuille3.
1/ La réunion des 2 feuilles, peut-elle se faire automatiquement à l'ouverture de Feuil3?
2/ Sur Feuil3: Feuil2 peut-elle se placer automatiquement en fin de liste de Feuil1? (sachant que le nombre de lignes de ces 2 feuilles est appelé à évoluer en + ou -, actuellement j'ai considéré maxi ligne 30).
Je vous remercie pour votre aide précieuse.
Nougatine95.
Je ne saurai aller plus loin que ce code enregistré:
Sub Macro2()
Sheets("Feuil1").Select
Range("A5:I30").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil3").Select
Range("A5").Select
ActiveSheet.Paste
Sheets("Feuil2").Select
Range("A5:I30").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil3").Select
Range("A20").Select
ActiveSheet.Paste
End Sub