Fusion de 3 onglets en un seul-EXCEL-
bety63
Messages postés
5
Date d'inscription
Statut
Membre
Dernière intervention
-
bety63 Messages postés 5 Date d'inscription Statut Membre Dernière intervention -
bety63 Messages postés 5 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
C'est la premiere fois que je demande de l'aide sur un Forum,donc SVP HELP ME. :-))
J'ai 3 onglets dans un dossier excel,Même entêtes.Et je voudrais fusionner les 3 onglets en sachant que j'ai les têtes de colonnes sur chaque onglet et que je voudrais garder la 1ere feuille telle qu'elle est et mettre les données de la 2éme feuille(sans les entêtes) en dessous et pareil pour la 3éme feuille.
C'est peut être pas un probléme pour vous ,mais pour moi SI... :-s
Je vous remercie d'avance. :-D
C'est la premiere fois que je demande de l'aide sur un Forum,donc SVP HELP ME. :-))
J'ai 3 onglets dans un dossier excel,Même entêtes.Et je voudrais fusionner les 3 onglets en sachant que j'ai les têtes de colonnes sur chaque onglet et que je voudrais garder la 1ere feuille telle qu'elle est et mettre les données de la 2éme feuille(sans les entêtes) en dessous et pareil pour la 3éme feuille.
C'est peut être pas un probléme pour vous ,mais pour moi SI... :-s
Je vous remercie d'avance. :-D
6 réponses
-
bonjour,
A priori c'est du copier-coller...?
A+
pépé -
Merci pour votre réponse,mais excel n'aime pas trop qd je fais du copier-coller.
Je pensais plutot à une macro j'en aurais forcément besoin pour mes futurs travaux.
Merci bcp -
Le probléme c'est que je ne m y connais pas trop en macro.... :-s
Cordialement -
J'ai trouver ce code sur internet,pensez vous que ca marchera?
Y'a t il des modifications a faire?Et a quel niveau?
Sub consolide_onglets()
Sheets("synthese").Cells.ClearContents
Sheets("synthese").Cells.ClearFormats
n = 0
For Each s In Sheets
If s.Name <> "synthese" Then
If n = 0 Then
s.Cells.Copy Destination:=Sheets("synthese").Range("A1")
Else
s.Range("A13:K" & s.Range("A65536").End(xlUp).Row).Copy Destination:=Sheets("synthese").Range("A65536").End(xlUp).Offset(1, 0)
End If
End If
n = n + 1
Next s
End Sub
Merci bien -
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
Rebonjour,
J'ai trouvé la solution:c'est qu'il y en a pas .Car j'ai beaucoup trop de ligne.Donc il aime pas trop.
Sinon effectivement un copier/coller suffisait.
Merci pour tout pépé .. :-)) -
Bonjour,
tu peux lancer l'éditeur de macro. Il suffit de réaliser les opérations manuellement et de donner un nom à la macro.
A+
pépé
