OVH Cloud OVH Cloud

feuilles de calcul

7 réponses
Avatar
BRUNO G.
Comment fusionner toutes les feuilles de calcul (40) d'un classeur en une
seule?

7 réponses

Avatar
Daniel
Bonjour.
Que veux-tu faire au juste ? additionner les cellules A1 de chaque feuille
etc. recopier les feuilles les unes à la suite des autres ?
Cordialement.
Daniel
"BRUNO G." <BRUNO a écrit dans le message de
news:
Comment fusionner toutes les feuilles de calcul (40) d'un classeur en une
seule?



Avatar
BRUNO.G
Merci de ta réponse.

En fait je souhaite précisément effectuer une simple recopie des données de
chacune des quarantes feuilles dans une feuille unique (les données étant
recopiées à la queue leu leu: les données de la première feuille, puis celles
de la suivante etc ). Toutes ces feuilles sont structurées de la même
manière.

"Daniel" wrote:

Bonjour.
Que veux-tu faire au juste ? additionner les cellules A1 de chaque feuille
etc. recopier les feuilles les unes à la suite des autres ?
Cordialement.
Daniel
"BRUNO G." <BRUNO a écrit dans le message de
news:
Comment fusionner toutes les feuilles de calcul (40) d'un classeur en une
seule?








Avatar
Pounet95
Bonjour,
Bien entendu, la somme des lignes de chacune des feuilles ne dépasse pas
65536 (versions Excel les plus récentes)
ou 16000 et des brouettes pour les plus anciennes ??

--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)

"BRUNO.G" a écrit dans le message de
news:
Merci de ta réponse.

En fait je souhaite précisément effectuer une simple recopie des données
de
chacune des quarantes feuilles dans une feuille unique (les données étant
recopiées à la queue leu leu: les données de la première feuille, puis
celles
de la suivante etc ). Toutes ces feuilles sont structurées de la même
manière.

"Daniel" wrote:

Bonjour.
Que veux-tu faire au juste ? additionner les cellules A1 de chaque
feuille
etc. recopier les feuilles les unes à la suite des autres ?
Cordialement.
Daniel
"BRUNO G." <BRUNO a écrit dans le message
de
news:
Comment fusionner toutes les feuilles de calcul (40) d'un classeur en
une
seule?










Avatar
Daniel
Essaie :

Sub Test()
Sheets("Global").Activate
Range("A1").Select
For i = 1 To Sheets.Count
Sheets(i).Activate
If ActiveSheet.Name <> "Global" Then
Range(Range("A1"), ActiveCell.SpecialCells(xlLastCell)).Copy
Sheets("Global").Activate
ActiveSheet.Paste
'ActiveCell.SpecialCells(xlLastCell).Select
Range("A" & ActiveCell.SpecialCells(xlLastCell).Row + 1).Select
End If
Next i
End Sub

Cordialement.
Daniel

"Pounet95" a écrit dans le message de news:

Bonjour,
Bien entendu, la somme des lignes de chacune des feuilles ne dépasse pas
65536 (versions Excel les plus récentes)
ou 16000 et des brouettes pour les plus anciennes ??

--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)

"BRUNO.G" a écrit dans le message de
news:
Merci de ta réponse.

En fait je souhaite précisément effectuer une simple recopie des données
de
chacune des quarantes feuilles dans une feuille unique (les données étant
recopiées à la queue leu leu: les données de la première feuille, puis
celles
de la suivante etc ). Toutes ces feuilles sont structurées de la même
manière.

"Daniel" wrote:

Bonjour.
Que veux-tu faire au juste ? additionner les cellules A1 de chaque
feuille
etc. recopier les feuilles les unes à la suite des autres ?
Cordialement.
Daniel
"BRUNO G." <BRUNO a écrit dans le message
de
news:
Comment fusionner toutes les feuilles de calcul (40) d'un classeur en
une
seule?













Avatar
BRUNO.G
non bien sur

bruno g.

"Pounet95" wrote:

Bonjour,
Bien entendu, la somme des lignes de chacune des feuilles ne dépasse pas
65536 (versions Excel les plus récentes)
ou 16000 et des brouettes pour les plus anciennes ??

--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)

"BRUNO.G" a écrit dans le message de
news:
Merci de ta réponse.

En fait je souhaite précisément effectuer une simple recopie des données
de
chacune des quarantes feuilles dans une feuille unique (les données étant
recopiées à la queue leu leu: les données de la première feuille, puis
celles
de la suivante etc ). Toutes ces feuilles sont structurées de la même
manière.

"Daniel" wrote:

Bonjour.
Que veux-tu faire au juste ? additionner les cellules A1 de chaque
feuille
etc. recopier les feuilles les unes à la suite des autres ?
Cordialement.
Daniel
"BRUNO G." <BRUNO a écrit dans le message
de
news:
Comment fusionner toutes les feuilles de calcul (40) d'un classeur en
une
seule?














Avatar
BRUNO.G
"BRUNO.G" wrote:

Merci de ta réponse.

En fait je souhaite précisément effectuer une simple recopie des données de
chacune des quarantes feuilles dans une feuille unique (les données étant
recopiées à la queue leu leu: les données de la première feuille, puis celles
de la suivante etc ). Toutes ces feuilles sont structurées de la même
manière.

"Daniel" wrote:

Bonjour.
Que veux-tu faire au juste ? additionner les cellules A1 de chaque feuille
etc. recopier les feuilles les unes à la suite des autres ?
Cordialement.
Daniel
"BRUNO G." <BRUNO a écrit dans le message de
news:
Comment fusionner toutes les feuilles de calcul (40) d'un classeur en une
seule?










Avatar
BRUNO.G
merci beaucoup,

ça devrait aller. Je pensais bien qu'il fallait une macro pour régler ça.

bruno g.

"Daniel" wrote:

Essaie :

Sub Test()
Sheets("Global").Activate
Range("A1").Select
For i = 1 To Sheets.Count
Sheets(i).Activate
If ActiveSheet.Name <> "Global" Then
Range(Range("A1"), ActiveCell.SpecialCells(xlLastCell)).Copy
Sheets("Global").Activate
ActiveSheet.Paste
'ActiveCell.SpecialCells(xlLastCell).Select
Range("A" & ActiveCell.SpecialCells(xlLastCell).Row + 1).Select
End If
Next i
End Sub

Cordialement.
Daniel

"Pounet95" a écrit dans le message de news:

Bonjour,
Bien entendu, la somme des lignes de chacune des feuilles ne dépasse pas
65536 (versions Excel les plus récentes)
ou 16000 et des brouettes pour les plus anciennes ??

--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)

"BRUNO.G" a écrit dans le message de
news:
Merci de ta réponse.

En fait je souhaite précisément effectuer une simple recopie des données
de
chacune des quarantes feuilles dans une feuille unique (les données étant
recopiées à la queue leu leu: les données de la première feuille, puis
celles
de la suivante etc ). Toutes ces feuilles sont structurées de la même
manière.

"Daniel" wrote:

Bonjour.
Que veux-tu faire au juste ? additionner les cellules A1 de chaque
feuille
etc. recopier les feuilles les unes à la suite des autres ?
Cordialement.
Daniel
"BRUNO G." <BRUNO a écrit dans le message
de
news:
Comment fusionner toutes les feuilles de calcul (40) d'un classeur en
une
seule?