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:
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
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
Bonne soirée et encore merci pour votre aide.
Partager