Macro pour fusionner plusierus feuilles avec collage special transposé

  • Initiateur de la discussion Initiateur de la discussion Raphael35
  • 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 !

Raphael35

XLDnaute Nouveau
Bonjour,

J'ai un fichier excel avec plusieurs feuilles, et je voudrais les fusionner en une seule. J'ai trouvé ce code qui fonctionne mais je voudrais copier les données de chaque feuille dans de nouvelles colonnes en décalant vers la droite (alors qu'avec cette macro il copie sur des nouvelles lignes de façon verticale).

J'ai pensé garder la macro originale et faire un collage spécial en transposé mais j'ai un message d’erreur (erreur d’exécution 1004):

Code:
Sub fuse()
Dim ws As Worksheet
For Each ws In Worksheets
If ws.Name <> "recap" Then
Application.ScreenUpdating = False
ws.Activate
Range("A1:" & [a1].SpecialCells(xlCellTypeLastCell).Address).Copy
Sheets("Feuil1").Activate
Range("A65536").End(xlUp).Offset(1, 0).Select
ActiveSheet.PasteSpecial Paste:=xlValues, Transpose:=True
Application.CutCopyMode = False
End If
Next ws
End Sub

Est-ce que quelqu'un connait un moyen de copier/coller chaque feuille de manière horizontale (en décalant dans de nouvelles colonnes) ou bien au pire de faire marcher le collage spécial avec transpose.

Merci par avance pour vos réponses,
 
- 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

Discussions similaires

Retour