Bonjour, je travaille sur office 2003. J'ai un fichier avec 4 onglets (chacun
correspond à un devis). Chaque devis comporte environ 250 lignes de données.
Sur ces 250 lignes de données, il y a environ 200 lignes qui sont communes à
chaque devis et 50 lignes spécifiques à chaque devis éparpillées un peu
partout dans chaque devis.
Je souhaite regrouper ces 4 devis en un seul tableau qui aura donc environ
400 lignes (les 200 lignes communes à chaque devis + 4*50 lignes spécifiques).
Savez-vous si il y a un moyen automatique d'obtenir ce tableau car si
j'essaye de retrouver toutes les lignes spécifiques de chaque devis pour
compiler mes tableaux, je vais vraiment perdre un temps fou.
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
Jacky
Bonsoir, Ceci copie les feuilles présentent dans le classeur dans la feuille "Compilation" les unes à la suite des l'autres. La feuille "Compilation" doit exister.
'---------------- Sub jj() Dim sh As Worksheet Application.ScreenUpdating = False Cells.Clear For Each sh In ActiveWorkbook.Worksheets If sh.Name <> "Compilation" Then sh.Range("A1:IV" & sh.[a65536].End(3).Row).Copy Sheets("Compilation").Range("a" & Sheets("Compilation").[a65536].End(3).Row) End If Next Application.CutCopyMode = False End Sub '---------------- Voir ici: http://cjoint.com/?kpailBI0YK -- Salutations JJ
"eric" a écrit dans le message de news:
Bonjour, je travaille sur office 2003. J'ai un fichier avec 4 onglets (chacun correspond à un devis). Chaque devis comporte environ 250 lignes de données. Sur ces 250 lignes de données, il y a environ 200 lignes qui sont communes à chaque devis et 50 lignes spécifiques à chaque devis éparpillées un peu partout dans chaque devis.
Je souhaite regrouper ces 4 devis en un seul tableau qui aura donc environ 400 lignes (les 200 lignes communes à chaque devis + 4*50 lignes spécifiques).
Savez-vous si il y a un moyen automatique d'obtenir ce tableau car si j'essaye de retrouver toutes les lignes spécifiques de chaque devis pour compiler mes tableaux, je vais vraiment perdre un temps fou.
Merci d'avance pour votre aide.
Bonsoir,
Ceci copie les feuilles présentent dans le classeur dans la feuille
"Compilation" les unes à la suite des l'autres.
La feuille "Compilation" doit exister.
'----------------
Sub jj()
Dim sh As Worksheet
Application.ScreenUpdating = False
Cells.Clear
For Each sh In ActiveWorkbook.Worksheets
If sh.Name <> "Compilation" Then
sh.Range("A1:IV" & sh.[a65536].End(3).Row).Copy
Sheets("Compilation").Range("a" & Sheets("Compilation").[a65536].End(3).Row)
End If
Next
Application.CutCopyMode = False
End Sub
'----------------
Voir ici:
http://cjoint.com/?kpailBI0YK
--
Salutations
JJ
"eric" <eric@discussions.microsoft.com> a écrit dans le message de news:
D5F618E9-A763-485E-90A7-C711B1F6F280@microsoft.com...
Bonjour, je travaille sur office 2003. J'ai un fichier avec 4 onglets
(chacun
correspond à un devis). Chaque devis comporte environ 250 lignes de
données.
Sur ces 250 lignes de données, il y a environ 200 lignes qui sont communes
à
chaque devis et 50 lignes spécifiques à chaque devis éparpillées un peu
partout dans chaque devis.
Je souhaite regrouper ces 4 devis en un seul tableau qui aura donc environ
400 lignes (les 200 lignes communes à chaque devis + 4*50 lignes
spécifiques).
Savez-vous si il y a un moyen automatique d'obtenir ce tableau car si
j'essaye de retrouver toutes les lignes spécifiques de chaque devis pour
compiler mes tableaux, je vais vraiment perdre un temps fou.
Bonsoir, Ceci copie les feuilles présentent dans le classeur dans la feuille "Compilation" les unes à la suite des l'autres. La feuille "Compilation" doit exister.
'---------------- Sub jj() Dim sh As Worksheet Application.ScreenUpdating = False Cells.Clear For Each sh In ActiveWorkbook.Worksheets If sh.Name <> "Compilation" Then sh.Range("A1:IV" & sh.[a65536].End(3).Row).Copy Sheets("Compilation").Range("a" & Sheets("Compilation").[a65536].End(3).Row) End If Next Application.CutCopyMode = False End Sub '---------------- Voir ici: http://cjoint.com/?kpailBI0YK -- Salutations JJ
"eric" a écrit dans le message de news:
Bonjour, je travaille sur office 2003. J'ai un fichier avec 4 onglets (chacun correspond à un devis). Chaque devis comporte environ 250 lignes de données. Sur ces 250 lignes de données, il y a environ 200 lignes qui sont communes à chaque devis et 50 lignes spécifiques à chaque devis éparpillées un peu partout dans chaque devis.
Je souhaite regrouper ces 4 devis en un seul tableau qui aura donc environ 400 lignes (les 200 lignes communes à chaque devis + 4*50 lignes spécifiques).
Savez-vous si il y a un moyen automatique d'obtenir ce tableau car si j'essaye de retrouver toutes les lignes spécifiques de chaque devis pour compiler mes tableaux, je vais vraiment perdre un temps fou.
Merci d'avance pour votre aide.
Jacky
Re... Une petite erreur de ligne s'est glissée dans le code Ceci copie les feuilles présentent dans le classeur dans la feuille "Compilation" les unes à la suite des l'autres de la ligne A1 à la dernière ligne occupée en colonne A de chaque feuille. La feuille "Compilation" doit exister. '-------------- Sub jj() Dim sh As Worksheet Application.ScreenUpdating = False Cells.Clear For Each sh In ActiveWorkbook.Worksheets If sh.Name <> "Compilation" Then sh.Range("A1:IV" & sh.[a65536].End(3).Row).Copy Sheets("Compilation").Range("a" & Sheets("Compilation").[a65536].End(3).Row + 1) End If Next Application.CutCopyMode = False End Sub '----------------------- Voir ici: http://cjoint.com/?kpar6JHBv3
-- Salutations JJ
"Jacky" a écrit dans le message de news:
Bonsoir, Ceci copie les feuilles présentent dans le classeur dans la feuille "Compilation" les unes à la suite des l'autres. La feuille "Compilation" doit exister.
'---------------- Sub jj() Dim sh As Worksheet Application.ScreenUpdating = False Cells.Clear For Each sh In ActiveWorkbook.Worksheets If sh.Name <> "Compilation" Then sh.Range("A1:IV" & sh.[a65536].End(3).Row).Copy Sheets("Compilation").Range("a" & Sheets("Compilation").[a65536].End(3).Row) End If Next Application.CutCopyMode = False End Sub '---------------- Voir ici: http://cjoint.com/?kpailBI0YK -- Salutations JJ
"eric" a écrit dans le message de news:
Bonjour, je travaille sur office 2003. J'ai un fichier avec 4 onglets (chacun correspond à un devis). Chaque devis comporte environ 250 lignes de données. Sur ces 250 lignes de données, il y a environ 200 lignes qui sont communes à chaque devis et 50 lignes spécifiques à chaque devis éparpillées un peu partout dans chaque devis.
Je souhaite regrouper ces 4 devis en un seul tableau qui aura donc environ 400 lignes (les 200 lignes communes à chaque devis + 4*50 lignes spécifiques).
Savez-vous si il y a un moyen automatique d'obtenir ce tableau car si j'essaye de retrouver toutes les lignes spécifiques de chaque devis pour compiler mes tableaux, je vais vraiment perdre un temps fou.
Merci d'avance pour votre aide.
Re...
Une petite erreur de ligne s'est glissée dans le code
Ceci copie les feuilles présentent dans le classeur dans la feuille
"Compilation" les unes à la suite des l'autres de la ligne A1 à la dernière
ligne occupée en colonne A de chaque feuille.
La feuille "Compilation" doit exister.
'--------------
Sub jj()
Dim sh As Worksheet
Application.ScreenUpdating = False
Cells.Clear
For Each sh In ActiveWorkbook.Worksheets
If sh.Name <> "Compilation" Then
sh.Range("A1:IV" & sh.[a65536].End(3).Row).Copy
Sheets("Compilation").Range("a" & Sheets("Compilation").[a65536].End(3).Row
+ 1)
End If
Next
Application.CutCopyMode = False
End Sub
'-----------------------
Voir ici:
http://cjoint.com/?kpar6JHBv3
--
Salutations
JJ
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news:
OKJ29mkLJHA.2760@TK2MSFTNGP06.phx.gbl...
Bonsoir,
Ceci copie les feuilles présentent dans le classeur dans la feuille
"Compilation" les unes à la suite des l'autres.
La feuille "Compilation" doit exister.
'----------------
Sub jj()
Dim sh As Worksheet
Application.ScreenUpdating = False
Cells.Clear
For Each sh In ActiveWorkbook.Worksheets
If sh.Name <> "Compilation" Then
sh.Range("A1:IV" & sh.[a65536].End(3).Row).Copy
Sheets("Compilation").Range("a" &
Sheets("Compilation").[a65536].End(3).Row)
End If
Next
Application.CutCopyMode = False
End Sub
'----------------
Voir ici:
http://cjoint.com/?kpailBI0YK
--
Salutations
JJ
"eric" <eric@discussions.microsoft.com> a écrit dans le message de news:
D5F618E9-A763-485E-90A7-C711B1F6F280@microsoft.com...
Bonjour, je travaille sur office 2003. J'ai un fichier avec 4 onglets
(chacun
correspond à un devis). Chaque devis comporte environ 250 lignes de
données.
Sur ces 250 lignes de données, il y a environ 200 lignes qui sont
communes à
chaque devis et 50 lignes spécifiques à chaque devis éparpillées un peu
partout dans chaque devis.
Je souhaite regrouper ces 4 devis en un seul tableau qui aura donc
environ
400 lignes (les 200 lignes communes à chaque devis + 4*50 lignes
spécifiques).
Savez-vous si il y a un moyen automatique d'obtenir ce tableau car si
j'essaye de retrouver toutes les lignes spécifiques de chaque devis pour
compiler mes tableaux, je vais vraiment perdre un temps fou.
Re... Une petite erreur de ligne s'est glissée dans le code Ceci copie les feuilles présentent dans le classeur dans la feuille "Compilation" les unes à la suite des l'autres de la ligne A1 à la dernière ligne occupée en colonne A de chaque feuille. La feuille "Compilation" doit exister. '-------------- Sub jj() Dim sh As Worksheet Application.ScreenUpdating = False Cells.Clear For Each sh In ActiveWorkbook.Worksheets If sh.Name <> "Compilation" Then sh.Range("A1:IV" & sh.[a65536].End(3).Row).Copy Sheets("Compilation").Range("a" & Sheets("Compilation").[a65536].End(3).Row + 1) End If Next Application.CutCopyMode = False End Sub '----------------------- Voir ici: http://cjoint.com/?kpar6JHBv3
-- Salutations JJ
"Jacky" a écrit dans le message de news:
Bonsoir, Ceci copie les feuilles présentent dans le classeur dans la feuille "Compilation" les unes à la suite des l'autres. La feuille "Compilation" doit exister.
'---------------- Sub jj() Dim sh As Worksheet Application.ScreenUpdating = False Cells.Clear For Each sh In ActiveWorkbook.Worksheets If sh.Name <> "Compilation" Then sh.Range("A1:IV" & sh.[a65536].End(3).Row).Copy Sheets("Compilation").Range("a" & Sheets("Compilation").[a65536].End(3).Row) End If Next Application.CutCopyMode = False End Sub '---------------- Voir ici: http://cjoint.com/?kpailBI0YK -- Salutations JJ
"eric" a écrit dans le message de news:
Bonjour, je travaille sur office 2003. J'ai un fichier avec 4 onglets (chacun correspond à un devis). Chaque devis comporte environ 250 lignes de données. Sur ces 250 lignes de données, il y a environ 200 lignes qui sont communes à chaque devis et 50 lignes spécifiques à chaque devis éparpillées un peu partout dans chaque devis.
Je souhaite regrouper ces 4 devis en un seul tableau qui aura donc environ 400 lignes (les 200 lignes communes à chaque devis + 4*50 lignes spécifiques).
Savez-vous si il y a un moyen automatique d'obtenir ce tableau car si j'essaye de retrouver toutes les lignes spécifiques de chaque devis pour compiler mes tableaux, je vais vraiment perdre un temps fou.
