Consolidation par catégorie

Le
michir
Bonjour,
Bonjour à tous. Je souhaiterais consolider 20 feuilles ( Jour 1 à Jour
20) ayant la même architecture mais avec des noms n'occupant pas
toujours la même position en colonne A et il existe des lignes vierges
en attente de noms
Je précises qu'il existe 2 autres feuilles avant le "Jour 1" et qui
n'ont pas pas la même architecture et ne peuvent donc être consolidée=
s
J'ai trouvé sur un site (Exceldownload) la procédure suivante mais
elle ne fonctionne pas pour une raison inconnue. Il doit manquer peu
de choses

Sub Centraliser()
Application.ScreenUpdating = False
Sheets("Global").Select
Cells.Select
Selection.ClearContents
For i = 1 To Sheets.Count
Sheets(i).Activate
If ActiveSheet.Name <> "Global" Then
Sheets(i).Select
Range("A1").Select
Selection.CurrentRegion.Select
Selection.Copy
Sheets("Global").Select
Range("A" & [A65535].End(xlUp).Row + 1).Select
ActiveSheet.Paste
End If
Next i
Sheets("Global").Select
Range("A" & [A65535].End(xlUp).Row + 1).Select
Application.ScreenUpdating = True
End Sub

Merci à vous tous, si vous aviez une idée
Michel
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
isabelle
Le #23102491
bonjour Michel,

tu dit qu'il y a 2 autres feuilles avant le "Jour 1"
l'une se nomme "Global" mais l'autre se nomme comment ?

isabelle


Le 2011-02-08 11:39, michir a écrit :
Bonjour,
Bonjour à tous. Je souhaiterais consolider 20 feuilles ( Jour 1 à Jour
20) ayant la même architecture mais avec des noms n'occupant pas
toujours la même position en colonne A et il existe des lignes vierges
en attente de noms
Je précises qu'il existe 2 autres feuilles avant le "Jour 1" et qui
n'ont pas pas la même architecture et ne peuvent donc être consolidées
J'ai trouvé sur un site (Exceldownload) la procédure suivante mais
elle ne fonctionne pas pour une raison inconnue. Il doit manquer peu
de choses

Sub Centraliser()
Application.ScreenUpdating = False
Sheets("Global").Select
Cells.Select
Selection.ClearContents
For i = 1 To Sheets.Count
Sheets(i).Activate
If ActiveSheet.Name<> "Global" Then
Sheets(i).Select
Range("A1").Select
Selection.CurrentRegion.Select
Selection.Copy
Sheets("Global").Select
Range("A"& [A65535].End(xlUp).Row + 1).Select
ActiveSheet.Paste
End If
Next i
Sheets("Global").Select
Range("A"& [A65535].End(xlUp).Row + 1).Select
Application.ScreenUpdating = True
End Sub

Merci à vous tous, si vous aviez une idée...
Michel

michir
Le #23102581
On 8 fév, 17:46, isabelle
bonjour Michel,

tu dit qu'il y a 2 autres feuilles avant le "Jour 1"
l'une se nomme "Global" mais l'autre se nomme comment ?

isabelle

Le 2011-02-08 11:39, michir a crit :







> Bonjour,
> Bonjour tous. Je souhaiterais consolider 20 feuilles ( Jour 1 Jour
> 20) ayant la m me architecture mais avec des noms n'occupant pas
> toujours la m me position en colonne A et il existe des lignes vierges
> en attente de noms
> Je pr cises qu'il existe 2 autres feuilles avant le "Jour 1" et qui
> n'ont pas pas la m me architecture et ne peuvent donc tre consolid es
> J'ai trouv sur un site (Exceldownload) la  proc dure suivante mais
> elle ne fonctionne pas pour une raison inconnue. Il doit manquer peu
> de choses

> Sub Centraliser()
> Application.ScreenUpdating = False
> Sheets("Global").Select
>      Cells.Select
>      Selection.ClearContents
> For i = 1 To Sheets.Count
> Sheets(i).Activate
> If ActiveSheet.Name<>  "Global" Then
> Sheets(i).Select
>      Range("A1").Select
>      Selection.CurrentRegion.Select
>      Selection.Copy
>      Sheets("Global").Select
>      Range("A"&  [A65535].End(xlUp).Row + 1).Select
>      ActiveSheet.Paste
> End If
> Next i
> Sheets("Global").Select
> Range("A"&  [A65535].End(xlUp).Row + 1).Select
> Application.ScreenUpdating = True
> End Sub

> Merci vous tous, si vous aviez une id e...
> Michel



Bonsoir Isabelle,
La première feuille se nomme" RECAP du Mois" et l'autre "M.A.J_
Donnees". La feuille "Global" est destinée normalement à recevoir les
résultats de la consolidation
Merci à toi
Michel
isabelle
Le #23102591
il faudrait inclure ces nom dans la condition,

If ActiveSheet.Name
isabelle





Le 2011-02-08 12:22, michir a écrit :

Michel



Bonsoir Isabelle,
La première feuille se nomme" RECAP du Mois" et l'autre "M.A.J_
Donnees". La feuille "Global" est destinée normalement à recevoir les
résultats de la consolidation
Merci à toi
Michel

michir
Le #23102631
On 8 fév, 18:34, isabelle
il faudrait inclure ces nom dans la condition,

If ActiveSheet.Name
isabelle

Le 2011-02-08 12:22, michir a écrit :




Re,


J'ai un bogue au niveau de la ligne:
Sheets(i).Select
...?????




>> Michel

> Bonsoir Isabelle,
> La première feuille se nomme" RECAP du Mois" et l'autre "M.A.J_
> Donnees". La feuille "Global" est destinée normalement à recevoir l es
> résultats de la consolidation
> Merci à toi
> Michel
isabelle
Le #23102741
essaie comme ça,

Sub Centraliser()
Application.ScreenUpdating = False
Sheets("Global").Cells.ClearContents
For i = 1 To Sheets.Count
If Sheets(i).Name Sheets(i).Name <> "M.A.J_Donnees" Then
Sheets(i).Select
Range("A1").CurrentRegion.Copy _
Sheets("Global").Range("A" &
Sheets("Global").[A65535].End(xlUp).Row + 1)
End If
Next i
Application.ScreenUpdating = True
End Sub


isabelle

Le 2011-02-08 12:52, michir a écrit :
On 8 fév, 18:34, isabelle
il faudrait inclure ces nom dans la condition,

If ActiveSheet.Name
isabelle

Le 2011-02-08 12:22, michir a écrit :




Re,



J'ai un bogue au niveau de la ligne:
Sheets(i).Select
...?????





Michel






Bonsoir Isabelle,
La première feuille se nomme" RECAP du Mois" et l'autre "M.A.J_
Donnees". La feuille "Global" est destinée normalement à recevoir les
résultats de la consolidation
Merci à toi
Michel






Publicité
Poster une réponse
Anonyme