tri d'onglet

[Francis]

Bonjour le forum
Je me servais toujours pour trier des onglets de la macro suivante et elle fonctionne toujours très bien.

sCount = Worksheets.Count
If sCount = 1 Then Exit Sub
For i = 2 To sCount - 1
For j = i + 1 To sCount - 1
If Worksheets(j).name < Worksheets(i).name Then
Worksheets(j).Move before:=Worksheets(i)
End If
Next j
Next i

Mais je viens de m’apercevoir qu’elle ne fonctionne seulement qu’avec des capitales

Quelle en est la raison ?
Que faut il changer pour que le tri se fasse aussi bien qu’avec les majuscules et les minuscules ?
Merci pour vos explications
Francis

 

[Pierrot93]

Re : tri d'onglet

Bonjour Francis

essaye peut être avec la ligne de code ci desssous, placée sur la première ligne de ton module :

Option Compare Text

bonne journée
@+

 

[wilfried_42]

Re : tri d'onglet

bonjour francis

tu testes les noms en lcase et ca ira normalement

If lcase(Worksheets(j).name) < lcase(Worksheets(i).name) Then

edit: oups : excuse, bonjour pierrot

 

[Francis]

Re : tri d'onglet

Bonjour Wilfried42, Pierrot93 et le forum
Merci pour vos réponses, vos deux solutions fonctionnent très bien.
De plus, j'ai appris l'instruction "Compare" que je ne connaissais pas
Francis