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
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
JB
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
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 <Francine...@discussions.microsoft.com>
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
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
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
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 <Francine...@discussions.microsoft.com>
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
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
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 -
http://cjoint.com/?gmha7TjwdI
JB
On 11 juin, 22:24, Francinette <Francine...@discussions.microsoft.com>
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 <Francine...@discussions.microsoft.com>
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 -
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
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 -
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 <Francine...@discussions.microsoft.com>
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 <Francine...@discussions.microsoft.com>
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 -
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
Pour ceux qui veulent "approfondir" le tri de feuilles, le top est là :