Bonjour,
Bonjour =E0 tous. Je souhaiterais consolider 20 feuilles ( Jour 1 =E0 Jour
20) ayant la m=EAme architecture mais avec des noms n'occupant pas
toujours la m=EAme position en colonne A et il existe des lignes vierges
en attente de noms
Je pr=E9cises qu'il existe 2 autres feuilles avant le "Jour 1" et qui
n'ont pas pas la m=EAme architecture et ne peuvent donc =EAtre consolid=E9e=
s
J'ai trouv=E9 sur un site (Exceldownload) la proc=E9dure suivante mais
elle ne fonctionne pas pour une raison inconnue. Il doit manquer peu
de choses
Sub Centraliser()
Application.ScreenUpdating =3D False
Sheets("Global").Select
Cells.Select
Selection.ClearContents
For i =3D 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 =3D True
End Sub
Merci =E0 vous tous, si vous aviez une id=E9e...
Michel
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
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
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
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
On 8 fév, 17:46, isabelle wrote:
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
On 8 fév, 17:46, isabelle <i...@v.org> wrote:
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
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
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 :
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 ActiveSheet.Name<> "M.A.J_Donnees" Then
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
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 :
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
On 8 fév, 18:34, isabelle wrote:
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,
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
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 Act iveSheet.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 l es
> résultats de la consolidation
> Merci à toi
> Michel
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,
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
essaie comme ça,
Sub Centraliser() Application.ScreenUpdating = False Sheets("Global").Cells.ClearContents For i = 1 To Sheets.Count If Sheets(i).Name <> "Global" Or Sheets(i).Name <> "RECAP" Or 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 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
essaie comme ça,
Sub Centraliser()
Application.ScreenUpdating = False
Sheets("Global").Cells.ClearContents
For i = 1 To Sheets.Count
If Sheets(i).Name <> "Global" Or Sheets(i).Name <> "RECAP" Or
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<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
Sub Centraliser() Application.ScreenUpdating = False Sheets("Global").Cells.ClearContents For i = 1 To Sheets.Count If Sheets(i).Name <> "Global" Or Sheets(i).Name <> "RECAP" Or 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 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