Bonjour à tous
Voici mon probleme qui doit etre simple mais meme avec les recherches j'arrive pas!!!!
J'ai 5 onglets : Planif D/Planif F/Command D/Command F/Recap
Les données dans Planif D et Command D sont pris sur un fichier externe et illimité en nb de données
Les tableaux dans Planif F et Command F sont identique il ya juste les données qui change
Je voudrai que les données de ces 2 onglets se copie l'un derriere l'autre dans l'onglet Recap
J'ai essaye un bout de code que j'ai trouve mais j'arrive pas
Merci de votre aide
Sub Recap()
Application.ScreenUpdating = False
Sheets("Planif F").Range("A1:G65000", [A1:G65000].End(xlDown)).Copy
Sheets("Command F").Range("A1:G65000", [A1:G65000].End(xlDown)).Copy
Sheets("Recap").Range("A1").End(xlDown).Select
ActiveCell.Offset(1, 0).Select
Selection.Paste
Application.ScreenUpdating = True
End Sub
Voici mon probleme qui doit etre simple mais meme avec les recherches j'arrive pas!!!!
J'ai 5 onglets : Planif D/Planif F/Command D/Command F/Recap
Les données dans Planif D et Command D sont pris sur un fichier externe et illimité en nb de données
Les tableaux dans Planif F et Command F sont identique il ya juste les données qui change
Je voudrai que les données de ces 2 onglets se copie l'un derriere l'autre dans l'onglet Recap
J'ai essaye un bout de code que j'ai trouve mais j'arrive pas
Merci de votre aide
Sub Recap()
Application.ScreenUpdating = False
Sheets("Planif F").Range("A1:G65000", [A1:G65000].End(xlDown)).Copy
Sheets("Command F").Range("A1:G65000", [A1:G65000].End(xlDown)).Copy
Sheets("Recap").Range("A1").End(xlDown).Select
ActiveCell.Offset(1, 0).Select
Selection.Paste
Application.ScreenUpdating = True
End Sub