Fusion de 3 onglets en un seul-EXCEL- Fermé

Question

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

pépé35530 · Answer

bonjour,

A priori c'est du copier-coller...?

A+

pépé

bety63 · Answer

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

pépé35530 · Answer

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é

bety63 · Answer

Le probléme c'est que je ne m y connais pas trop en macro.... :-s
Cordialement

bety63 · Answer

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

bety63 · Answer

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é .. :-))

Fusion de 3 onglets en un seul-EXCEL-

6 réponses

Discussions similaires