Fusion de 3 onglets en un seul-EXCEL-
bety63
Messages postés
5
Statut
Membre
-
bety63 Messages postés 5 Statut Membre -
bety63 Messages postés 5 Statut Membre -
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
A voir également:
- Fusion de 3 onglets en un seul-EXCEL-
- Liste déroulante excel - Guide
- Comment imprimer un tableau excel sur une seule page - Guide
- Word et excel gratuit - Guide
- Ai suite 3 - Télécharger - Optimisation
- Mise en forme conditionnelle excel - Guide
6 réponses
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
Je pensais plutot à une macro j'en aurais forcément besoin pour mes futurs travaux.
Merci bcp
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
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