insertion feuille de calcul

Le
Francinette
Bonsoir à tous !
A chaque fois que j'insère des feuilles de calcul supplémentaires elles ne
sont pas à la suite des 3 premières (1-2-3-10-9-8-7-6-5-4). Comment faire
pour qu'elles soient dans l'orde croissant ?
Merci
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
JB
Le #4938191
Bonsoir,

Sub tri_ongletDirect()
Application.ScreenUpdating = False
For i = 1 To Sheets.Count
For j = i To Sheets.Count
If UCase(Sheets(j).Name) < UCase(Sheets(i).Name) Then
Sheets(i).Move before:=Sheets(j)
Sheets(j).Move before:=Sheets(i)
End If
Next j
Next i
End Sub

JB


On 11 juin, 21:37, Francinette wrote:
Bonsoir à tous !
A chaque fois que j'insère des feuilles de calcul supplémentaires ell es ne
sont pas à la suite des 3 premières (1-2-3-10-9-8-7-6-5-4). Comment f aire
pour qu'elles soient dans l'orde croissant ?
Merci


Francinette
Le #4938161
Merci mais je ne comprends rien ! Avez-vous un moyen plus simple pour
m'expliquer ?


Bonsoir,

Sub tri_ongletDirect()
Application.ScreenUpdating = False
For i = 1 To Sheets.Count
For j = i To Sheets.Count
If UCase(Sheets(j).Name) < UCase(Sheets(i).Name) Then
Sheets(i).Move before:=Sheets(j)
Sheets(j).Move before:=Sheets(i)
End If
Next j
Next i
End Sub

JB


On 11 juin, 21:37, Francinette wrote:
Bonsoir à tous !
A chaque fois que j'insère des feuilles de calcul supplémentaires elles ne
sont pas à la suite des 3 premières (1-2-3-10-9-8-7-6-5-4). Comment faire
pour qu'elles soient dans l'orde croissant ?
Merci







JB
Le #4938051
http://cjoint.com/?gmha7TjwdI

JB

On 11 juin, 22:24, Francinette wrote:
Merci mais je ne comprends rien ! Avez-vous un moyen plus simple pour
m'expliquer ?




Bonsoir,

Sub tri_ongletDirect()
Application.ScreenUpdating = False
For i = 1 To Sheets.Count
For j = i To Sheets.Count
If UCase(Sheets(j).Name) < UCase(Sheets(i).Name) Then
Sheets(i).Move before:=Sheets(j)
Sheets(j).Move before:=Sheets(i)
End If
Next j
Next i
End Sub

JB

On 11 juin, 21:37, Francinette wrote:
Bonsoir à tous !
A chaque fois que j'insère des feuilles de calcul supplémentaires elles ne
sont pas à la suite des 3 premières (1-2-3-10-9-8-7-6-5-4). Comme nt faire
pour qu'elles soient dans l'orde croissant ?
Merci- Masquer le texte des messages précédents -



- Afficher le texte des messages précédents -




Francinette
Le #4918421
Bonjour et merci mais je ne comprends toujours pas ! Pouvez-vous me dire à
quoi sert et correspond ce fichier à téléccharger ?
Merci encore



http://cjoint.com/?gmha7TjwdI

JB

On 11 juin, 22:24, Francinette wrote:
Merci mais je ne comprends rien ! Avez-vous un moyen plus simple pour
m'expliquer ?




Bonsoir,

Sub tri_ongletDirect()
Application.ScreenUpdating = False
For i = 1 To Sheets.Count
For j = i To Sheets.Count
If UCase(Sheets(j).Name) < UCase(Sheets(i).Name) Then
Sheets(i).Move before:=Sheets(j)
Sheets(j).Move before:=Sheets(i)
End If
Next j
Next i
End Sub

JB

On 11 juin, 21:37, Francinette wrote:
Bonsoir à tous !
A chaque fois que j'insère des feuilles de calcul supplémentaires elles ne
sont pas à la suite des 3 premières (1-2-3-10-9-8-7-6-5-4). Comment faire
pour qu'elles soient dans l'orde croissant ?
Merci- Masquer le texte des messages précédents -



- Afficher le texte des messages précédents -









AV
Le #4918361
Pour ceux qui veulent "approfondir" le tri de feuilles, le top est là :

http://www.excelabo.net/excel/compteclic.php?nom=dma-trieronglets

AV
Publicité
Poster une réponse
Anonyme