Ecrire des onglets en 1 seul
Bonjour,
Existe t'il une formule qui permet de copier 3 onglets d'un fichier en un seul onglet.
je veux mettre en automatique les données de l'onglet 1, de l'onglet 2, de l'onglet 3 a la suite dans l'onglet 4 et éviter ainsi une action manuelle de copier/coller.
Merci pour la réponse
Existe t'il une formule qui permet de copier 3 onglets d'un fichier en un seul onglet.
je veux mettre en automatique les données de l'onglet 1, de l'onglet 2, de l'onglet 3 a la suite dans l'onglet 4 et éviter ainsi une action manuelle de copier/coller.
Merci pour la réponse
6 réponses
-
ContributeurAttention aux mots que tu utilises : l'onglet, c'est la petite excroissance, en bas de la feuille, où est inscrit le nom de celle-ci.
-
ContributeurIl n'y a pas de formule pour ça.
Il faudrait écrire une macro en VBA.
-
Salut,
Toutes tes feuilles ont-elles les mêmes en-têtes ?
-
Bonsoir ARKEYH
Les 3 ONGLETS à copier ne comportent qu'une colonne mais avec un nombre de lignes variables, de même le contenu des lignes est variable en nombre de caractères.
A noter qu'avec la fonction manuelle copier/coller ça marche très bien. Toutefois je souhaiterais automatiser cette opération de copie.
Merci pour l'aide. -
-
-
-
Version : EXEL STARTER 2010
oui, après le copier/coller j'ai un ONGLET qui contient les 3 ONGLETS copiés.
Les données se retrouvent dans la colonne A avec 275 lignes, (72 du 1er onglet,
200 du 2éme et 3 du 3éme). -
Ok, cela peut parfaitement s'automatiser grâce à la consolidation des données.
En créant un modèle déjà tout prêt, tu n'auras plus aucune manipulation à effectuer ou presque.
Plus d'infos ici : https://support.microsoft.com/fr-fr/office/consolider-les-donn%c3%a9es-dans-plusieurs-feuilles-de-calcul-007ce8f4-2fae-4fea-9ee5-a0b2c9e36d9b?ocmsassetid=hp010342300&correlationid=85a9a1bd-ad75-4cc3-9930-faeb4f4916a4&ui=fr-fr&rs=fr-fr&ad=fr#BM3
N'hésite pas si tu as besoin d'aide.
-
Bonjour
voila une petite macro copier/coller
a toi de changer le non des Feilles
Sub TestRecape()
Application.ScreenUpdating = False
Sheets("Recap").Select
Range("A2:A" & Rows.Count).Delete 'ClearContents
Sheets("Base1").Select
Nlig = Range("A" & Rows.Count).End(xlUp).Row
Range("A2:A" & Nlig).Copy
Sheets("Recap").Range("A2").PasteSpecial xlPasteValues
Sheets("Base2").Select
Nlig = Range("A" & Rows.Count).End(xlUp).Row
Range("A2:A" & Nlig).Copy
Sheets("Recap").Select
L = Range("A" & Rows.Count).End(xlUp).Row + 1
Sheets("Recap").Range("A" & L).PasteSpecial xlPasteValues
Sheets("Base3").Select
Nlig = Range("A" & Rows.Count).End(xlUp).Row
Range("A2:A" & Nlig).Copy
Sheets("Recap").Select
L = Range("A" & Rows.Count).End(xlUp).Row + 1
Sheets("Recap").Range("A" & L).PasteSpecial xlPasteValues
Application.CutCopyMode = False
Application.ScreenUpdating = True
Range("A1").Select
End Sub
A+
Maurice
