Discussion :

[Maxou 10]

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.

[deedolith]

Pourquoi réinventer la roue ?

Avec Excel, il faut être malin.
Met tes données dans un tableau structuré, et trie ce dernier.
Les données de la listbox se synchroniseront automatiquement.

PS: Ta fonction viole le SRP (https://en.wikipedia.org/wiki/Single...lity_principle).
Divise la en plusieurs sous-fonctions

[Maxou 10]

Bonjour,

Si je comprend bien, il faut que je trouve une function qui tri ma colonne de mon tableau que j'appelle et exécute dans mon code ?
Car j'ai deux recherche avec deux textbox. Je voudrait qu'avec la première la colonne 1 soit en ordre alphabétique et avec la 2eme la colonne 2 soit en ordre alphabétique....
Mon tableau est sur la feuille 6 et s'appelle recherche

[Maxou 10]

Pourquoi réinventer la roue ?

Avec Excel, il faut être malin.
Met tes données dans un tableau structuré, et trie ce dernier.
Les données de la listbox se synchroniseront automatiquement.

PS: Ta fonction viole le SRP (https://en.wikipedia.org/wiki/Single...lity_principle).
Divise la en plusieurs sous-fonctions

J'ai donc essayer de partir sur ta solution. Cela fonctionne avec une function tri et un appel à cette function.
Le problème maintenant est que cette solution me ralenti énormément ma recherche. De plus cela me fait une sélection en B1 que je ne comprend pas.

voici ma function :

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
Function TrierFrancais()
 
    ActiveWorkbook.Worksheets("Donnéex").ListObjects("recherche").Sort.SortFields.Clear
 
    ActiveWorkbook.Worksheets("Donnéex").ListObjects("recherche").Sort.SortFields.Add2 Key:=Range("recherche[FRANÇAIS]"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
 
    With ActiveWorkbook.Worksheets("Donnéex").ListObjects("recherche").Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
 
    Worksheets("En-tête").DonnéesF.Verb
End Function

et mon code avec appel :

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
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
 
    Application.Run TrierFrancais
    TraductionF.Clear
    TraductionF.ColumnCount = 2
 
    NbLigne = WorksheetFunction.CountA(Worksheets("Donnéex").Range("recherche[FRANÇAIS]"))
 
    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
 
    End If
End Sub

[deedolith]

Appelle directement TrierFrancais.
Application.Run est inutile.

Utiliser des reférences (ou With) de façon plus judicieuse ne sera pas superflu, histoire de simplifier ton code.

A part ca, je ne voit pas ce qui peut ralentir, et si oui, dans quelles proportions ?
Il doit y avoir un loup ailleur.

Peux-tu joindre un fichier ?

[Maxou 10]

Appelle directement TrierFrancais.
Application.Run est inutile.

Utiliser des reférences (ou With) de façon plus judicieuse ne sera pas superflu, histoire de simplifier ton code.

A part ca, je ne voit pas ce qui peut ralentir, et si oui, dans quelles proportions ?
Il doit y avoir un loup ailleur.

Peux-tu joindre un fichier ?

J'avoue que ca commence à sortir de mes petites compétences...
Je n'arrive pas à faire avec with.

Comment puis-je te joindre mon fichier ? Il fait 6,22 Mo et je suis limiter à 2Mo.

[deedolith]

Réduit la quantité de données ?