comment copier x feuille dans une feuille

[ben]

bonjours a tous
petit probleme technique je suis newbees et au probleme de copier x feuille sur une seul j'ai bien trouver un programme mais il ne marchepas Sub ReportFeuille()
Dim Ligne, Nombre As Long
Sheets(1).Range("A1").CurrentRegion.ClearContents
For Nombre = Worksheets.Count To 2 Step -1



Sheets(Nombre).UsedRange

Ligne = Sheets(Nombre).Range("a1") _
.SpecialCells(xlCellTypeLastCell).Row
Sheets(1).Rows("1:" & Ligne).EntireRow.Insert _ shift:=xlDown
Sheets(Nombre).UsedRange.Copy _ Destination:=Sheets(1).Range("a1")
Application.CutCopyMode = False
Next Nombre
End Sub
je ne sais pas ce qui ne vas pas
merci a tous

 

[steplof]

Salut à tous,

Ben,
qu'est ce qui ne va pas dans ta macro?

Chez moi elle fonctionne très bien,

la même aux espaces de soulignement près ,peut être est ce cela qui te gênait...

Sub ReportFeuille()
Dim Ligne, Nombre As Long
Sheets(1).Range("A1").CurrentRegion.ClearContents
For Nombre = Worksheets.Count To 2 Step -1



Sheets(Nombre).UsedRange

Ligne = Sheets(Nombre).Range("a1") _
.SpecialCells(xlCellTypeLastCell).Row
Sheets(1).Rows("1:" & Ligne).EntireRow.Insert shift:=xlDown
Sheets(Nombre).UsedRange.Copy Destination:=Sheets(1).Range("a1")
Application.CutCopyMode = False
Next Nombre
End Sub


fais un copier coller intégral de ça et tiens nous au courant si ça fonctionne ou pas , et en décrivant exactement ce que tu fais si ça marche pas ...

@bientôt
Steplof.

 

[ben]

merci Steplof maintenant ca fonctionne j'ai un peu honte j'avoue que je ne trouver pas pourquoi ca ne marcher pas


merci encore

SVP
si quelqu'un a la solution
je voudrai juste copier x feuille mais des colonnes en particulier comme
tous les colonnes d e f et pas tous les colonnes
merci encores


a bientot

 

[steplof]

Bonjour à tous
Salut Ben,

la macro ci-après devrait te permettre de copier les colonnes def des feuilles 2à...., dans la feuille placée en première position de ton classeur actif.



Sub ReportFeuille()
Dim Ligne, Nombre, Max As Long
Sheets(1).Range("A1").CurrentRegion.ClearContents
For Nombre = Worksheets.Count To 2 Step -1
dernligneD = Sheets(Nombre).Range("d65536").End(xlUp).Row
dernligneE = Sheets(Nombre).Range("e65536").End(xlUp).Row
dernligneF = Sheets(Nombre).Range("f65536").End(xlUp).Row

If dernligneD >= dernligneE Then
Max = dernligneD
Else
Max = dernligneE
End If
If dernligneF > Max Then Max = dernligneF



Sheets(1).Rows("1:" & Max).EntireRow.Insert shift:=xlDown
Sheets(Nombre).Range("d1:f" & Max).Copy Destination:=Sheets(1).Range("a1") ' à changer si tu veux commencer la copie ailleurs qu'en A1
Application.CutCopyMode = False
Next Nombre
End Sub

Regarde si ça te convient

@+
Steplof

 

[ben]

super
merci encore steplof ca marche parfaitement

merci encore et a bientot genial ce forum