Discussion :

[lebonhom06]

Bonjour,
j'ai la macro suivante qui me permet de faire le tri alphabetique d'une listbox cependant celle ci respecte la casse et j'aimerais qu'elle ne le fasse pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
'on trie la liste par ordre alpha
With modifications.clubs
    For i = 0 To .ListCount - 1
        For j = 0 To .ListCount - 1
            If .List(i) < .List(j) Then
                strTemp = .List(i)
                .List(i) = .List(j)
                .List(j) = strTemp
            End If
        Next j
    Next i
End With

Quelqu'un pourrait il m'aider ?

Merci

[Minick]

Salut,

En ajoutant en 1ere ligne du module:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Option Compare Text

[lebonhom06]

Ca marche niquel

Merci

[aalex_38]

Bonjour,

La solution de Minick, fait que dans tous le code du module, on ne tient pas compte de la casse => c'est une solution générale.

Pour une solution spécifique utiliser UCASE ou LCASE dans les contrôles :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
'Tri de la liste par ordre alpha
With modifications.clubs
    For i = 0 To .ListCount - 1
        For j = 0 To .ListCount - 1
            If UCase(.List(i)) < UCase(.List(j)) Then
                strTemp = .List(i)
                .List(i) = .List(j)
                .List(j) = strTemp
            End If
        Next j
    Next i
End With

[lebonhom06]

Oui j'avais bien compris que c'etait général et ca me va bien mais ta solution est intéréssante, je la garde sous le coude

Merci