Bonjours,
comme dit dans le titre je voudrai fusionner plusieurs feuille excel en une seul en gardant toute les cellules de chacune.
J'ai recherché sur votre forum, j'ai trouvé une macro que j'ai fait et qui fonctionne mais le problème c'est que sa me prend seulement que les 6 premières colonnes et pas le reste.
voila la macro :
Sub consolide_onglets()
Sheets("c").[A1].CurrentRegion.Offset(1, 0).Clear
For s = 2 To Sheets.Count
Range(Sheets(s).[A2], Sheets(s).[A65000].End(xlUp).End(xlToRight)).Copy _
[A65000].End(xlUp).Offset(1, 0)
Next s
On Error Resume Next
[A:A].SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub
Si vous pouvez m'aider.
Merci bien.
comme dit dans le titre je voudrai fusionner plusieurs feuille excel en une seul en gardant toute les cellules de chacune.
J'ai recherché sur votre forum, j'ai trouvé une macro que j'ai fait et qui fonctionne mais le problème c'est que sa me prend seulement que les 6 premières colonnes et pas le reste.
voila la macro :
Sub consolide_onglets()
Sheets("c").[A1].CurrentRegion.Offset(1, 0).Clear
For s = 2 To Sheets.Count
Range(Sheets(s).[A2], Sheets(s).[A65000].End(xlUp).End(xlToRight)).Copy _
[A65000].End(xlUp).Offset(1, 0)
Next s
On Error Resume Next
[A:A].SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub
Si vous pouvez m'aider.
Merci bien.