Bonjour à tous,

J'ai fait une listbox qui cherche par rapport a ce qui est trouvé dans une textbox.
J'ai essayé de faire un tri alphabétique mais 2 erreurs se fait.

Quand je tape un mot qui n'existe pas dans ma recherche mon with bug. (exemple: si je tape frein c'est oki mais si je tape freon cela me fait un bogage sur For I = 0 To .ListCount - 1)
De plus, mes 2 colonnes de ma listbox se mettent par ordre alphabétique alors que j'aimerais que seul ma colonne 1 le fasse avec en colonne 2 la ligne correspondante.

Voici mon code:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Private Sub DonnéesF_Change()
    Dim NbLigne As Integer
    Dim Ligne As Integer
    Dim I As Byte
    Dim J As Byte
    Dim strTemp As String
 
    TraductionF.Clear
    TraductionF.ColumnCount = 2
 
    NbLigne = WorksheetFunction.CountA(Worksheets("Donnéex").Range("A:A"))
 
    If DonnéesF <> "" Then
 
        For Ligne = 2 To NbLigne
            If SupprimerAccents(Feuil6.Cells(Ligne, 1)) Like SupprimerAccents(DonnéesF) & "*" Then
                TraductionF.AddItem Feuil6.Cells(Ligne, 1)
                TraductionF.List(TraductionF.ListCount - 1, 1) = Feuil6.Cells(Ligne, 2)
            End If
        Next
 
        With TraductionF
            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
 
    End If
End Sub
J'en profite aussi pour savoir si les doublons peuvent être écris d'une autre couleur ? En gros faire WorksheetFunction.CountIF <> 1 = Font.ColorIndex = 4

Bonne soirée et encore merci pour votre aide.