Possible ou pas de faire ce genre de macro??

  • Initiateur de la discussion Initiateur de la discussion megansport
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

M

megansport

Guest
Bonjour
😕
Ayant plusieurs fichiers avec comprenant plusieurs onglets,j'ai besoin d'automatiser la manipulation si cela est possible, j'ai mis en piéce jointe un fichier afin de representer ce que je veux.

Merci de votre aide
 

Pièces jointes

Re : Possible ou pas de faire ce genre de macro??

Bonjour,
à tester :
Code:
Sub test()
Dim i As Byte, DerLig As Long
Sheets(1).[A2].CurrentRegion.ClearContents
For i = 2 To Sheets.Count
    DerLig = Sheets(1).Range("A" & Sheets(1).Rows.Count).End(xlUp).Row
    Sheets(Sheets(i).Name).[A2].CurrentRegion.Copy Destination:=Sheets(1).Cells(DerLig + 1, 1)
Next i
End Sub
A+
Edit : salut Marc🙂 !
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Retour