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
electron
Bonjour,
'pour copier la plage utile de la Feuille1 Sheets("Feuil1").Select Selection.SpecialCells(xlCellTypeLastCell).Select Fin_de_document = ActiveCell.Address Range("A1:" & Fin_de_document).Select Selection.Copy
'pour coller dans la feuille "Synthèse" à la suite Sheets("Synthèse").Select Selection.SpecialCells(xlCellTypeLastCell).Select Ligne_de_collage = ActiveCell.Row + 1 Range("A" & Ligne_de_collage).Activate ActiveSheet.Paste
Il te suffit de créer une boucle pour copier/coller toutes tes feuilles ...
Bon développement
Bonjour,
je souhaite copier le contenu de toutes les feuilles d'un document excell dans une nouvelle feuille (toujours dans ce document).
j'arrive bien à copier et coller le contenu de chaque feuille, mais elles se collent l'une par dessus l'autre...
Je pense donc qu'il faudrait que je me positionne une ligne en dessous du dernier collage. Je ne sais pas comment faire cela.
merci d'avance
Bonjour,
'pour copier la plage utile de la Feuille1
Sheets("Feuil1").Select
Selection.SpecialCells(xlCellTypeLastCell).Select
Fin_de_document = ActiveCell.Address
Range("A1:" & Fin_de_document).Select
Selection.Copy
'pour coller dans la feuille "Synthèse" à la suite
Sheets("Synthèse").Select
Selection.SpecialCells(xlCellTypeLastCell).Select
Ligne_de_collage = ActiveCell.Row + 1
Range("A" & Ligne_de_collage).Activate
ActiveSheet.Paste
Il te suffit de créer une boucle pour copier/coller toutes tes feuilles ...
Bon développement
Bonjour,
je souhaite copier le contenu de toutes les feuilles d'un document
excell dans une nouvelle feuille (toujours dans ce document).
j'arrive bien à copier et coller le contenu de chaque feuille, mais
elles se collent l'une par dessus l'autre...
Je pense donc qu'il faudrait que je me positionne une ligne en dessous
du dernier collage.
Je ne sais pas comment faire cela.
'pour copier la plage utile de la Feuille1 Sheets("Feuil1").Select Selection.SpecialCells(xlCellTypeLastCell).Select Fin_de_document = ActiveCell.Address Range("A1:" & Fin_de_document).Select Selection.Copy
'pour coller dans la feuille "Synthèse" à la suite Sheets("Synthèse").Select Selection.SpecialCells(xlCellTypeLastCell).Select Ligne_de_collage = ActiveCell.Row + 1 Range("A" & Ligne_de_collage).Activate ActiveSheet.Paste
Il te suffit de créer une boucle pour copier/coller toutes tes feuilles ...
Bon développement
Bonjour,
je souhaite copier le contenu de toutes les feuilles d'un document excell dans une nouvelle feuille (toujours dans ce document).
j'arrive bien à copier et coller le contenu de chaque feuille, mais elles se collent l'une par dessus l'autre...
Je pense donc qu'il faudrait que je me positionne une ligne en dessous du dernier collage. Je ne sais pas comment faire cela.
