bonjour
alors je vais esayer d etre simple:
j ai un fichier avec plusieurs onglets...
les seuls onglets qui m interessent sont ceux qui comment par "P_xxxx"
je voudrais qu'il me mettent la liste de ces onglets commencant par "P_xxxx"
dans une feuille nommée par exemple "toto" et ensuite dans une deuxieme
colonne à coté mettre des numéros allant de & au nombre de onglets
commencant par "P_xxxx"et ensuite souhaite pouvoir modifier ce numéro et les
onglets se classe automatiquement dans l ordre des numéros que j aurais
choisi.
exemple
4 onglets
P_aaaaa
p_bbbbb
p_ccccc
p_ddddd
donc dans onglets toto automatiquement crée en colonne A et B
P_aaaaa 1
p_bbbbb 2
p_ccccc 3
p_ddddd 4
si je change un des numéros a la main
P_aaaaa 3
p_bbbbb 4
p_ccccc 1
p_ddddd 2
CELA DONNERA UN CLASSEMENT DE MES ONGLETS DANS MON FICHIER
p_ccccc p_ddddd P_aaaaa p_bbbbb
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
MichDenis
Tu peux t'inspirer de ceci :
'---------------------------------- Sub Relever() ' Macro à exécuter en premier
Dim F As Worksheet, A As Integer Dim Sh As Worksheet Set F = Worksheets.Add(after:=Sheets(Sheets.Count)) F.Name = "D_Tri_Feuille" For Each Sh In Worksheets If UCase(Left(Sh.Name, 1)) = "P" Then A = A + 1 F.Range("A" & A) = Sh.Name F.Range("B" & A) = Sh.Index End If Next
End Sub
'---------------------------------- Sub Deplacer() 'Après avoir renseigner la colonne 3
'en supposant que les nouveau numéro 'sont en colonne C 'Les feuilles vont être déplacé avant le 'Numéro indiqué Dim Rg As Range, Cell As Range With Worksheets("D_Tri_Feuille") Set Rg = .Range("C1:C" & .Range("C65536").End(xlUp)) For Each Cell In Rg NomFeuille = Cell.Offset(, -2) Worksheets(NomFeuille).Move before:=Worksheets(Cell) Next End With End Sub '----------------------------------
"maud s" a écrit dans le message de news:
bonjour alors je vais esayer d etre simple: j ai un fichier avec plusieurs onglets...
les seuls onglets qui m interessent sont ceux qui comment par "P_xxxx" je voudrais qu'il me mettent la liste de ces onglets commencant par "P_xxxx" dans une feuille nommée par exemple "toto" et ensuite dans une deuxieme colonne à coté mettre des numéros allant de & au nombre de onglets commencant par "P_xxxx"et ensuite souhaite pouvoir modifier ce numéro et les onglets se classe automatiquement dans l ordre des numéros que j aurais choisi.
exemple
4 onglets P_aaaaa p_bbbbb p_ccccc p_ddddd
donc dans onglets toto automatiquement crée en colonne A et B P_aaaaa 1 p_bbbbb 2 p_ccccc 3 p_ddddd 4
si je change un des numéros a la main P_aaaaa 3 p_bbbbb 4 p_ccccc 1 p_ddddd 2
CELA DONNERA UN CLASSEMENT DE MES ONGLETS DANS MON FICHIER p_ccccc p_ddddd P_aaaaa p_bbbbb
merci d avance
Tu peux t'inspirer de ceci :
'----------------------------------
Sub Relever() ' Macro à exécuter en premier
Dim F As Worksheet, A As Integer
Dim Sh As Worksheet
Set F = Worksheets.Add(after:=Sheets(Sheets.Count))
F.Name = "D_Tri_Feuille"
For Each Sh In Worksheets
If UCase(Left(Sh.Name, 1)) = "P" Then
A = A + 1
F.Range("A" & A) = Sh.Name
F.Range("B" & A) = Sh.Index
End If
Next
End Sub
'----------------------------------
Sub Deplacer() 'Après avoir renseigner la colonne 3
'en supposant que les nouveau numéro
'sont en colonne C
'Les feuilles vont être déplacé avant le
'Numéro indiqué
Dim Rg As Range, Cell As Range
With Worksheets("D_Tri_Feuille")
Set Rg = .Range("C1:C" & .Range("C65536").End(xlUp))
For Each Cell In Rg
NomFeuille = Cell.Offset(, -2)
Worksheets(NomFeuille).Move before:=Worksheets(Cell)
Next
End With
End Sub
'----------------------------------
"maud s" <maud2604@neuf.fr> a écrit dans le message de news:
OEmjYblOIHA.1164@TK2MSFTNGP02.phx.gbl...
bonjour
alors je vais esayer d etre simple:
j ai un fichier avec plusieurs onglets...
les seuls onglets qui m interessent sont ceux qui comment par "P_xxxx"
je voudrais qu'il me mettent la liste de ces onglets commencant par "P_xxxx"
dans une feuille nommée par exemple "toto" et ensuite dans une deuxieme
colonne à coté mettre des numéros allant de & au nombre de onglets
commencant par "P_xxxx"et ensuite souhaite pouvoir modifier ce numéro et les
onglets se classe automatiquement dans l ordre des numéros que j aurais
choisi.
exemple
4 onglets
P_aaaaa
p_bbbbb
p_ccccc
p_ddddd
donc dans onglets toto automatiquement crée en colonne A et B
P_aaaaa 1
p_bbbbb 2
p_ccccc 3
p_ddddd 4
si je change un des numéros a la main
P_aaaaa 3
p_bbbbb 4
p_ccccc 1
p_ddddd 2
CELA DONNERA UN CLASSEMENT DE MES ONGLETS DANS MON FICHIER
p_ccccc p_ddddd P_aaaaa p_bbbbb
'---------------------------------- Sub Relever() ' Macro à exécuter en premier
Dim F As Worksheet, A As Integer Dim Sh As Worksheet Set F = Worksheets.Add(after:=Sheets(Sheets.Count)) F.Name = "D_Tri_Feuille" For Each Sh In Worksheets If UCase(Left(Sh.Name, 1)) = "P" Then A = A + 1 F.Range("A" & A) = Sh.Name F.Range("B" & A) = Sh.Index End If Next
End Sub
'---------------------------------- Sub Deplacer() 'Après avoir renseigner la colonne 3
'en supposant que les nouveau numéro 'sont en colonne C 'Les feuilles vont être déplacé avant le 'Numéro indiqué Dim Rg As Range, Cell As Range With Worksheets("D_Tri_Feuille") Set Rg = .Range("C1:C" & .Range("C65536").End(xlUp)) For Each Cell In Rg NomFeuille = Cell.Offset(, -2) Worksheets(NomFeuille).Move before:=Worksheets(Cell) Next End With End Sub '----------------------------------
"maud s" a écrit dans le message de news:
bonjour alors je vais esayer d etre simple: j ai un fichier avec plusieurs onglets...
les seuls onglets qui m interessent sont ceux qui comment par "P_xxxx" je voudrais qu'il me mettent la liste de ces onglets commencant par "P_xxxx" dans une feuille nommée par exemple "toto" et ensuite dans une deuxieme colonne à coté mettre des numéros allant de & au nombre de onglets commencant par "P_xxxx"et ensuite souhaite pouvoir modifier ce numéro et les onglets se classe automatiquement dans l ordre des numéros que j aurais choisi.
exemple
4 onglets P_aaaaa p_bbbbb p_ccccc p_ddddd
donc dans onglets toto automatiquement crée en colonne A et B P_aaaaa 1 p_bbbbb 2 p_ccccc 3 p_ddddd 4
si je change un des numéros a la main P_aaaaa 3 p_bbbbb 4 p_ccccc 1 p_ddddd 2
CELA DONNERA UN CLASSEMENT DE MES ONGLETS DANS MON FICHIER p_ccccc p_ddddd P_aaaaa p_bbbbb
merci d avance
maud s
merci beaucoup ca a l'air de marcher mais comment faire pour qu il me supprime automatiquement à la fin de la macro la feuille D_tri_Feuille....
merci d avance
"MichDenis" a écrit dans le message de news:
Tu peux t'inspirer de ceci :
'---------------------------------- Sub Relever() ' Macro à exécuter en premier
Dim F As Worksheet, A As Integer Dim Sh As Worksheet Set F = Worksheets.Add(after:=Sheets(Sheets.Count)) F.Name = "D_Tri_Feuille" For Each Sh In Worksheets If UCase(Left(Sh.Name, 1)) = "P" Then A = A + 1 F.Range("A" & A) = Sh.Name F.Range("B" & A) = Sh.Index End If Next
End Sub
'---------------------------------- Sub Deplacer() 'Après avoir renseigner la colonne 3
'en supposant que les nouveau numéro 'sont en colonne C 'Les feuilles vont être déplacé avant le 'Numéro indiqué Dim Rg As Range, Cell As Range With Worksheets("D_Tri_Feuille") Set Rg = .Range("C1:C" & .Range("C65536").End(xlUp)) For Each Cell In Rg NomFeuille = Cell.Offset(, -2) Worksheets(NomFeuille).Move before:=Worksheets(Cell) Next End With End Sub '----------------------------------
"maud s" a écrit dans le message de news:
bonjour alors je vais esayer d etre simple: j ai un fichier avec plusieurs onglets...
les seuls onglets qui m interessent sont ceux qui comment par "P_xxxx" je voudrais qu'il me mettent la liste de ces onglets commencant par "P_xxxx" dans une feuille nommée par exemple "toto" et ensuite dans une deuxieme colonne à coté mettre des numéros allant de & au nombre de onglets commencant par "P_xxxx"et ensuite souhaite pouvoir modifier ce numéro et les onglets se classe automatiquement dans l ordre des numéros que j aurais choisi.
exemple
4 onglets P_aaaaa p_bbbbb p_ccccc p_ddddd
donc dans onglets toto automatiquement crée en colonne A et B P_aaaaa 1 p_bbbbb 2 p_ccccc 3 p_ddddd 4
si je change un des numéros a la main P_aaaaa 3 p_bbbbb 4 p_ccccc 1 p_ddddd 2
CELA DONNERA UN CLASSEMENT DE MES ONGLETS DANS MON FICHIER p_ccccc p_ddddd P_aaaaa p_bbbbb
merci d avance
merci beaucoup ca a l'air de marcher mais comment faire pour qu il me
supprime automatiquement à la fin de la macro la feuille D_tri_Feuille....
merci d avance
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
ulnI2GnOIHA.2308@TK2MSFTNGP05.phx.gbl...
Tu peux t'inspirer de ceci :
'----------------------------------
Sub Relever() ' Macro à exécuter en premier
Dim F As Worksheet, A As Integer
Dim Sh As Worksheet
Set F = Worksheets.Add(after:=Sheets(Sheets.Count))
F.Name = "D_Tri_Feuille"
For Each Sh In Worksheets
If UCase(Left(Sh.Name, 1)) = "P" Then
A = A + 1
F.Range("A" & A) = Sh.Name
F.Range("B" & A) = Sh.Index
End If
Next
End Sub
'----------------------------------
Sub Deplacer() 'Après avoir renseigner la colonne 3
'en supposant que les nouveau numéro
'sont en colonne C
'Les feuilles vont être déplacé avant le
'Numéro indiqué
Dim Rg As Range, Cell As Range
With Worksheets("D_Tri_Feuille")
Set Rg = .Range("C1:C" & .Range("C65536").End(xlUp))
For Each Cell In Rg
NomFeuille = Cell.Offset(, -2)
Worksheets(NomFeuille).Move before:=Worksheets(Cell)
Next
End With
End Sub
'----------------------------------
"maud s" <maud2604@neuf.fr> a écrit dans le message de news:
OEmjYblOIHA.1164@TK2MSFTNGP02.phx.gbl...
bonjour
alors je vais esayer d etre simple:
j ai un fichier avec plusieurs onglets...
les seuls onglets qui m interessent sont ceux qui comment par "P_xxxx"
je voudrais qu'il me mettent la liste de ces onglets commencant par
"P_xxxx"
dans une feuille nommée par exemple "toto" et ensuite dans une deuxieme
colonne à coté mettre des numéros allant de & au nombre de onglets
commencant par "P_xxxx"et ensuite souhaite pouvoir modifier ce numéro et
les
onglets se classe automatiquement dans l ordre des numéros que j aurais
choisi.
exemple
4 onglets
P_aaaaa
p_bbbbb
p_ccccc
p_ddddd
donc dans onglets toto automatiquement crée en colonne A et B
P_aaaaa 1
p_bbbbb 2
p_ccccc 3
p_ddddd 4
si je change un des numéros a la main
P_aaaaa 3
p_bbbbb 4
p_ccccc 1
p_ddddd 2
CELA DONNERA UN CLASSEMENT DE MES ONGLETS DANS MON FICHIER
p_ccccc p_ddddd P_aaaaa p_bbbbb
merci beaucoup ca a l'air de marcher mais comment faire pour qu il me supprime automatiquement à la fin de la macro la feuille D_tri_Feuille....
merci d avance
"MichDenis" a écrit dans le message de news:
Tu peux t'inspirer de ceci :
'---------------------------------- Sub Relever() ' Macro à exécuter en premier
Dim F As Worksheet, A As Integer Dim Sh As Worksheet Set F = Worksheets.Add(after:=Sheets(Sheets.Count)) F.Name = "D_Tri_Feuille" For Each Sh In Worksheets If UCase(Left(Sh.Name, 1)) = "P" Then A = A + 1 F.Range("A" & A) = Sh.Name F.Range("B" & A) = Sh.Index End If Next
End Sub
'---------------------------------- Sub Deplacer() 'Après avoir renseigner la colonne 3
'en supposant que les nouveau numéro 'sont en colonne C 'Les feuilles vont être déplacé avant le 'Numéro indiqué Dim Rg As Range, Cell As Range With Worksheets("D_Tri_Feuille") Set Rg = .Range("C1:C" & .Range("C65536").End(xlUp)) For Each Cell In Rg NomFeuille = Cell.Offset(, -2) Worksheets(NomFeuille).Move before:=Worksheets(Cell) Next End With End Sub '----------------------------------
"maud s" a écrit dans le message de news:
bonjour alors je vais esayer d etre simple: j ai un fichier avec plusieurs onglets...
les seuls onglets qui m interessent sont ceux qui comment par "P_xxxx" je voudrais qu'il me mettent la liste de ces onglets commencant par "P_xxxx" dans une feuille nommée par exemple "toto" et ensuite dans une deuxieme colonne à coté mettre des numéros allant de & au nombre de onglets commencant par "P_xxxx"et ensuite souhaite pouvoir modifier ce numéro et les onglets se classe automatiquement dans l ordre des numéros que j aurais choisi.
exemple
4 onglets P_aaaaa p_bbbbb p_ccccc p_ddddd
donc dans onglets toto automatiquement crée en colonne A et B P_aaaaa 1 p_bbbbb 2 p_ccccc 3 p_ddddd 4
si je change un des numéros a la main P_aaaaa 3 p_bbbbb 4 p_ccccc 1 p_ddddd 2
CELA DONNERA UN CLASSEMENT DE MES ONGLETS DANS MON FICHIER p_ccccc p_ddddd P_aaaaa p_bbbbb
"maud s" a écrit dans le message de news: exa% merci beaucoup ca a l'air de marcher mais comment faire pour qu il me supprime automatiquement à la fin de la macro la feuille D_tri_Feuille....
merci d avance
"MichDenis" a écrit dans le message de news:
Tu peux t'inspirer de ceci :
'---------------------------------- Sub Relever() ' Macro à exécuter en premier
Dim F As Worksheet, A As Integer Dim Sh As Worksheet Set F = Worksheets.Add(after:=Sheets(Sheets.Count)) F.Name = "D_Tri_Feuille" For Each Sh In Worksheets If UCase(Left(Sh.Name, 1)) = "P" Then A = A + 1 F.Range("A" & A) = Sh.Name F.Range("B" & A) = Sh.Index End If Next
End Sub
'---------------------------------- Sub Deplacer() 'Après avoir renseigner la colonne 3
'en supposant que les nouveau numéro 'sont en colonne C 'Les feuilles vont être déplacé avant le 'Numéro indiqué Dim Rg As Range, Cell As Range With Worksheets("D_Tri_Feuille") Set Rg = .Range("C1:C" & .Range("C65536").End(xlUp)) For Each Cell In Rg NomFeuille = Cell.Offset(, -2) Worksheets(NomFeuille).Move before:=Worksheets(Cell) Next End With End Sub '----------------------------------
"maud s" a écrit dans le message de news:
bonjour alors je vais esayer d etre simple: j ai un fichier avec plusieurs onglets...
les seuls onglets qui m interessent sont ceux qui comment par "P_xxxx" je voudrais qu'il me mettent la liste de ces onglets commencant par "P_xxxx" dans une feuille nommée par exemple "toto" et ensuite dans une deuxieme colonne à coté mettre des numéros allant de & au nombre de onglets commencant par "P_xxxx"et ensuite souhaite pouvoir modifier ce numéro et les onglets se classe automatiquement dans l ordre des numéros que j aurais choisi.
exemple
4 onglets P_aaaaa p_bbbbb p_ccccc p_ddddd
donc dans onglets toto automatiquement crée en colonne A et B P_aaaaa 1 p_bbbbb 2 p_ccccc 3 p_ddddd 4
si je change un des numéros a la main P_aaaaa 3 p_bbbbb 4 p_ccccc 1 p_ddddd 2
CELA DONNERA UN CLASSEMENT DE MES ONGLETS DANS MON FICHIER p_ccccc p_ddddd P_aaaaa p_bbbbb
"maud s" <maud2604@neuf.fr> a écrit dans le message de news:
exa%23oXoOIHA.4752@TK2MSFTNGP05.phx.gbl...
merci beaucoup ca a l'air de marcher mais comment faire pour qu il me
supprime automatiquement à la fin de la macro la feuille D_tri_Feuille....
merci d avance
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
ulnI2GnOIHA.2308@TK2MSFTNGP05.phx.gbl...
Tu peux t'inspirer de ceci :
'----------------------------------
Sub Relever() ' Macro à exécuter en premier
Dim F As Worksheet, A As Integer
Dim Sh As Worksheet
Set F = Worksheets.Add(after:=Sheets(Sheets.Count))
F.Name = "D_Tri_Feuille"
For Each Sh In Worksheets
If UCase(Left(Sh.Name, 1)) = "P" Then
A = A + 1
F.Range("A" & A) = Sh.Name
F.Range("B" & A) = Sh.Index
End If
Next
End Sub
'----------------------------------
Sub Deplacer() 'Après avoir renseigner la colonne 3
'en supposant que les nouveau numéro
'sont en colonne C
'Les feuilles vont être déplacé avant le
'Numéro indiqué
Dim Rg As Range, Cell As Range
With Worksheets("D_Tri_Feuille")
Set Rg = .Range("C1:C" & .Range("C65536").End(xlUp))
For Each Cell In Rg
NomFeuille = Cell.Offset(, -2)
Worksheets(NomFeuille).Move before:=Worksheets(Cell)
Next
End With
End Sub
'----------------------------------
"maud s" <maud2604@neuf.fr> a écrit dans le message de news:
OEmjYblOIHA.1164@TK2MSFTNGP02.phx.gbl...
bonjour
alors je vais esayer d etre simple:
j ai un fichier avec plusieurs onglets...
les seuls onglets qui m interessent sont ceux qui comment par "P_xxxx"
je voudrais qu'il me mettent la liste de ces onglets commencant par
"P_xxxx"
dans une feuille nommée par exemple "toto" et ensuite dans une deuxieme
colonne à coté mettre des numéros allant de & au nombre de onglets
commencant par "P_xxxx"et ensuite souhaite pouvoir modifier ce numéro et
les
onglets se classe automatiquement dans l ordre des numéros que j aurais
choisi.
exemple
4 onglets
P_aaaaa
p_bbbbb
p_ccccc
p_ddddd
donc dans onglets toto automatiquement crée en colonne A et B
P_aaaaa 1
p_bbbbb 2
p_ccccc 3
p_ddddd 4
si je change un des numéros a la main
P_aaaaa 3
p_bbbbb 4
p_ccccc 1
p_ddddd 2
CELA DONNERA UN CLASSEMENT DE MES ONGLETS DANS MON FICHIER
p_ccccc p_ddddd P_aaaaa p_bbbbb
"maud s" a écrit dans le message de news: exa% merci beaucoup ca a l'air de marcher mais comment faire pour qu il me supprime automatiquement à la fin de la macro la feuille D_tri_Feuille....
merci d avance
"MichDenis" a écrit dans le message de news:
Tu peux t'inspirer de ceci :
'---------------------------------- Sub Relever() ' Macro à exécuter en premier
Dim F As Worksheet, A As Integer Dim Sh As Worksheet Set F = Worksheets.Add(after:=Sheets(Sheets.Count)) F.Name = "D_Tri_Feuille" For Each Sh In Worksheets If UCase(Left(Sh.Name, 1)) = "P" Then A = A + 1 F.Range("A" & A) = Sh.Name F.Range("B" & A) = Sh.Index End If Next
End Sub
'---------------------------------- Sub Deplacer() 'Après avoir renseigner la colonne 3
'en supposant que les nouveau numéro 'sont en colonne C 'Les feuilles vont être déplacé avant le 'Numéro indiqué Dim Rg As Range, Cell As Range With Worksheets("D_Tri_Feuille") Set Rg = .Range("C1:C" & .Range("C65536").End(xlUp)) For Each Cell In Rg NomFeuille = Cell.Offset(, -2) Worksheets(NomFeuille).Move before:=Worksheets(Cell) Next End With End Sub '----------------------------------
"maud s" a écrit dans le message de news:
bonjour alors je vais esayer d etre simple: j ai un fichier avec plusieurs onglets...
les seuls onglets qui m interessent sont ceux qui comment par "P_xxxx" je voudrais qu'il me mettent la liste de ces onglets commencant par "P_xxxx" dans une feuille nommée par exemple "toto" et ensuite dans une deuxieme colonne à coté mettre des numéros allant de & au nombre de onglets commencant par "P_xxxx"et ensuite souhaite pouvoir modifier ce numéro et les onglets se classe automatiquement dans l ordre des numéros que j aurais choisi.
exemple
4 onglets P_aaaaa p_bbbbb p_ccccc p_ddddd
donc dans onglets toto automatiquement crée en colonne A et B P_aaaaa 1 p_bbbbb 2 p_ccccc 3 p_ddddd 4
si je change un des numéros a la main P_aaaaa 3 p_bbbbb 4 p_ccccc 1 p_ddddd 2
CELA DONNERA UN CLASSEMENT DE MES ONGLETS DANS MON FICHIER p_ccccc p_ddddd P_aaaaa p_bbbbb