Consolidation par catégorie

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

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

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

il faudrait inclure ces nom dans la condition,

If ActiveSheet.Name<>  "Global" or ActiveSheet.Name<>  "RECAP" or Act iveSheet.Name<>  "M.A.J_Donnees" Then

isabelle

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




Re,

>> 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

On 8 fév, 18:34, isabelle<i...@v.org> wrote:

il faudrait inclure ces nom dans la condition,

If ActiveSheet.Name<> "Global" or ActiveSheet.Name<> "RECAP" or ActiveSheet.Name<> "M.A.J_Donnees" Then

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