Bonjour à tous(tes)
Je récupère un classeur avec 5 feuilles avec un nombre de ligne différent.
Mon pb est de remettre toute les lignes sur une nouvelle feuille.
D'avance Merci
Patrick
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Frédéric Sigonneau
Bonsoir,
Une solution parmi d'autres, signée T. Ogilvy :
Sub Tester3() 'Tom Ogilvy, mpep Dim wksh As Worksheet
Set wksh = Worksheets.Add wksh.Name = "Composite_sheet"
Dim rw As Long Dim i As Long Dim rng As Range
rw = 1 '3 feuilles à recopier For i = 2 To 4 With Worksheets(i) Set rng = .Range(.Range("A1"), _ .Cells(Rows.Count, 1).End(xlUp)) _ .Resize(, Range("A1").End(xlToRight).Column) End With rng.Copy Destination:=wksh.Cells(rw, 1) rw = rw + rng.Rows.Count Next
End Sub
FS -- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
Bonjour à tous(tes) Je récupère un classeur avec 5 feuilles avec un nombre de ligne différent. Mon pb est de remettre toute les lignes sur une nouvelle feuille. D'avance Merci Patrick
Bonsoir,
Une solution parmi d'autres, signée T. Ogilvy :
Sub Tester3()
'Tom Ogilvy, mpep
Dim wksh As Worksheet
Set wksh = Worksheets.Add
wksh.Name = "Composite_sheet"
Dim rw As Long
Dim i As Long
Dim rng As Range
rw = 1
'3 feuilles à recopier
For i = 2 To 4
With Worksheets(i)
Set rng = .Range(.Range("A1"), _
.Cells(Rows.Count, 1).End(xlUp)) _
.Resize(, Range("A1").End(xlToRight).Column)
End With
rng.Copy Destination:=wksh.Cells(rw, 1)
rw = rw + rng.Rows.Count
Next
End Sub
FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !
Bonjour à tous(tes)
Je récupère un classeur avec 5 feuilles avec un nombre de ligne différent.
Mon pb est de remettre toute les lignes sur une nouvelle feuille.
D'avance Merci
Patrick
Sub Tester3() 'Tom Ogilvy, mpep Dim wksh As Worksheet
Set wksh = Worksheets.Add wksh.Name = "Composite_sheet"
Dim rw As Long Dim i As Long Dim rng As Range
rw = 1 '3 feuilles à recopier For i = 2 To 4 With Worksheets(i) Set rng = .Range(.Range("A1"), _ .Cells(Rows.Count, 1).End(xlUp)) _ .Resize(, Range("A1").End(xlToRight).Column) End With rng.Copy Destination:=wksh.Cells(rw, 1) rw = rw + rng.Rows.Count Next
End Sub
FS -- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
Bonjour à tous(tes) Je récupère un classeur avec 5 feuilles avec un nombre de ligne différent. Mon pb est de remettre toute les lignes sur une nouvelle feuille. D'avance Merci Patrick
pat
merci, je vais tester aujourd'hui cordialement "Frédéric Sigonneau" wanadoo.fr> a écrit dans le message de news:%
Bonsoir,
Une solution parmi d'autres, signée T. Ogilvy :
Sub Tester3() 'Tom Ogilvy, mpep Dim wksh As Worksheet
Set wksh = Worksheets.Add wksh.Name = "Composite_sheet"
Dim rw As Long Dim i As Long Dim rng As Range
rw = 1 '3 feuilles à recopier For i = 2 To 4 With Worksheets(i) Set rng = .Range(.Range("A1"), _ .Cells(Rows.Count, 1).End(xlUp)) _ .Resize(, Range("A1").End(xlToRight).Column) End With rng.Copy Destination:=wksh.Cells(rw, 1) rw = rw + rng.Rows.Count Next
End Sub
FS -- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
Bonjour à tous(tes) Je récupère un classeur avec 5 feuilles avec un nombre de ligne différent.
Mon pb est de remettre toute les lignes sur une nouvelle feuille. D'avance Merci Patrick
merci, je vais tester aujourd'hui
cordialement
"Frédéric Sigonneau" <frederic.sigonne@u wanadoo.fr> a écrit dans le message
de news:%23o476nDwDHA.1872@TK2MSFTNGP09.phx.gbl...
Bonsoir,
Une solution parmi d'autres, signée T. Ogilvy :
Sub Tester3()
'Tom Ogilvy, mpep
Dim wksh As Worksheet
Set wksh = Worksheets.Add
wksh.Name = "Composite_sheet"
Dim rw As Long
Dim i As Long
Dim rng As Range
rw = 1
'3 feuilles à recopier
For i = 2 To 4
With Worksheets(i)
Set rng = .Range(.Range("A1"), _
.Cells(Rows.Count, 1).End(xlUp)) _
.Resize(, Range("A1").End(xlToRight).Column)
End With
rng.Copy Destination:=wksh.Cells(rw, 1)
rw = rw + rng.Rows.Count
Next
End Sub
FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !
Bonjour à tous(tes)
Je récupère un classeur avec 5 feuilles avec un nombre de ligne
différent.
Mon pb est de remettre toute les lignes sur une nouvelle feuille.
D'avance Merci
Patrick
merci, je vais tester aujourd'hui cordialement "Frédéric Sigonneau" wanadoo.fr> a écrit dans le message de news:%
Bonsoir,
Une solution parmi d'autres, signée T. Ogilvy :
Sub Tester3() 'Tom Ogilvy, mpep Dim wksh As Worksheet
Set wksh = Worksheets.Add wksh.Name = "Composite_sheet"
Dim rw As Long Dim i As Long Dim rng As Range
rw = 1 '3 feuilles à recopier For i = 2 To 4 With Worksheets(i) Set rng = .Range(.Range("A1"), _ .Cells(Rows.Count, 1).End(xlUp)) _ .Resize(, Range("A1").End(xlToRight).Column) End With rng.Copy Destination:=wksh.Cells(rw, 1) rw = rw + rng.Rows.Count Next
End Sub
FS -- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
Bonjour à tous(tes) Je récupère un classeur avec 5 feuilles avec un nombre de ligne différent.
Mon pb est de remettre toute les lignes sur une nouvelle feuille. D'avance Merci Patrick
