080glamspurple080
XLDnaute Nouveau
Bonjour,
J'ai plusieurs feuilles dans mon classeurs avec des tableaux quasi identiques (certains libellés de ligne peuvent changer)
Exemple :
Feuille 1 Tableau 1:
a 1
b 2
c 3
d 4
Feuille 2 Tableau 2 :
a 5
f 6
c 9
d 4
Mon but est d'avoir une feuille récap :
a 1 a 5
b 2 f 6
c 3 c 9
d 4 d 4
J'ai utilisé ces deux macros (trouvé sur le web) qui ont un résultat identique :
Macro 1 :
Option Explicit
Sub Macro1()
Dim ws As Worksheet, i As String
Application.ScreenUpdating = False
Cells.Delete
i = ActiveSheet.Name
For Each ws In Worksheets
If ws.Name <> "TABLEAU RECAP" Then
Sheets(ws.Name).Activate
Range("a1:E" & Range("a65536").End(xlUp).Row).Copy _
Destination:=Sheets("TABLEAU RECAP").[A65536].End(xlUp).Offset(1, 0)
End If: Next ws: Sheets(i).Select: [a1].Select: Columns("A:E").ColumnWidth = 18
End Sub
Macro 2 :
Sub recap()
Dim sh As Worksheet
For Each sh In Worksheets
If sh.Name <> "Recap" Then
sh.[A2].Resize(sh.[A65536].End(xlUp).Row - 1, 10).Copy Destination:=Worksheets("Recap").[A65536].End(xlUp).Offset(1, 0)
End If
Next sh
End Sub
Le problème c'est que mes tableaux se mettent à la suite en colonne et non en ligne.
Pourriez-vous m'aider s'il vous plait ?
Les TCD ne sont pas possible car certaines lignes n'ont pas les mêmes libellés.
Je ne peux pas utiliser la fonction indirect car mon nombre de feuille est aléatoire.
J'ai plusieurs feuilles dans mon classeurs avec des tableaux quasi identiques (certains libellés de ligne peuvent changer)
Exemple :
Feuille 1 Tableau 1:
a 1
b 2
c 3
d 4
Feuille 2 Tableau 2 :
a 5
f 6
c 9
d 4
Mon but est d'avoir une feuille récap :
a 1 a 5
b 2 f 6
c 3 c 9
d 4 d 4
J'ai utilisé ces deux macros (trouvé sur le web) qui ont un résultat identique :
Macro 1 :
Option Explicit
Sub Macro1()
Dim ws As Worksheet, i As String
Application.ScreenUpdating = False
Cells.Delete
i = ActiveSheet.Name
For Each ws In Worksheets
If ws.Name <> "TABLEAU RECAP" Then
Sheets(ws.Name).Activate
Range("a1:E" & Range("a65536").End(xlUp).Row).Copy _
Destination:=Sheets("TABLEAU RECAP").[A65536].End(xlUp).Offset(1, 0)
End If: Next ws: Sheets(i).Select: [a1].Select: Columns("A:E").ColumnWidth = 18
End Sub
Macro 2 :
Sub recap()
Dim sh As Worksheet
For Each sh In Worksheets
If sh.Name <> "Recap" Then
sh.[A2].Resize(sh.[A65536].End(xlUp).Row - 1, 10).Copy Destination:=Worksheets("Recap").[A65536].End(xlUp).Offset(1, 0)
End If
Next sh
End Sub
Le problème c'est que mes tableaux se mettent à la suite en colonne et non en ligne.
Pourriez-vous m'aider s'il vous plait ?
Les TCD ne sont pas possible car certaines lignes n'ont pas les mêmes libellés.
Je ne peux pas utiliser la fonction indirect car mon nombre de feuille est aléatoire.
Dernière édition: