Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
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 !
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.
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
- 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.