ordre onglets classement selon liste

Le
maud s
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
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
MichDenis
Le #5384681
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"
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
Le #5384461
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"
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"
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








MichDenis
Le #5384441
Tu ajoutes à la fin de la macro :

Application.DisplayAlerts = False
worksheets("D_Tri_Feuille").delete
Application.DisplayAlerts = true




"maud s" 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"
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"
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








Publicité
Poster une réponse
Anonyme