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
Philippe.R
Bonsoir Ulysse, Données / Consolider ne convient pas ? -- Amicales Salutations et bon voyage Retirer A_S_ pour répondre. XL 97 / 2000 / 2002 Pour suivre le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"" a écrit dans le message de news:1ffa301c458f5$eb6f53b0$ Comment copier plusieurs onglets dans un seul onglet? merci de votre réponse
Bonsoir Ulysse,
Données / Consolider ne convient pas ?
--
Amicales Salutations et bon voyage
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)
"ulysse69008@laposte.net" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:1ffa301c458f5$eb6f53b0$a301280a@phx.gbl...
Comment copier plusieurs onglets dans un seul onglet?
merci de votre réponse
Bonsoir Ulysse, Données / Consolider ne convient pas ? -- Amicales Salutations et bon voyage Retirer A_S_ pour répondre. XL 97 / 2000 / 2002 Pour suivre le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"" a écrit dans le message de news:1ffa301c458f5$eb6f53b0$ Comment copier plusieurs onglets dans un seul onglet? merci de votre réponse
Frédéric Sigonneau
Bonjour,
Pour faire de la copie "au kilomètre", tu devrais pouvoir adapter cette procédure de T. Ogilvy conçue pour recopier 3 feuilles dans une 4ème :
'================= 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 !
Comment copier plusieurs onglets dans un seul onglet? merci de votre réponse
Bonjour,
Pour faire de la copie "au kilomètre", tu devrais pouvoir adapter cette
procédure de T. Ogilvy conçue pour recopier 3 feuilles dans une 4ème :
'================= 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 !
Comment copier plusieurs onglets dans un seul onglet?
merci de votre réponse
Pour faire de la copie "au kilomètre", tu devrais pouvoir adapter cette procédure de T. Ogilvy conçue pour recopier 3 feuilles dans une 4ème :
'================= 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 !
Comment copier plusieurs onglets dans un seul onglet? merci de votre réponse
