formule de tri

[bonbon76]

Bonjour à tous

Quelqu'un porrait il m'aider à faire une formule de tri soit alphamétrique ou numérique
Je désirerais trier dans une listbox les résultats de recherche d'un classeur excel
Voiçi mon code qui se trouve dans un userform

Option Explicit
Sub RechercheMot()
Dim Mot As String, Trouvé1 As Range, Trouvé2 As Range, Reponse As String
Dim i As Byte
ListBox1.Visible = False
Mot = TextBox1.Value
If Mot = "" Then
TextBox2.Value = "Veuillez entrer une valeur "
Else
TextBox2.Value = " "
For i = 1 To Sheets.Count
Sheets(i).Select: Set Trouvé1 = Cells.Find(What:=Mot)
If Not Trouvé1 Is Nothing Then
Trouvé1.Activate
With ActiveCell.Characters(Start:=InStr(1, Selection, Left(Mot, 1), 1), Length:=Len(Mot))
Selection.Interior.ColorIndex = 4 'colorie en vert
Selection.Font.Bold = True 'met en gras
ListBox1.Visible = True
ListBox1.AddItem Trouvé1

End With
étiq:
Reponse = MsgBox("Poursuivre la recherche ?", vbYesNo) 'nécessaire aussi pour stopper la recherche
If Reponse = 6 Then 'si le bouton yes est utilisé
Selection.Interior.ColorIndex = xlNone 'Couleur d'origine
Selection.Font.Bold = False 'enlever le gras
Else 'idem plus haut si le bouton non est choisi
Selection.Interior.ColorIndex = xlNone 'Couleur d'origine
Selection.Font.Bold = False
Exit Sub 'Sortie de la réponse non
End If
Set Trouvé2 = ActiveSheet.UsedRange.FindNext(After:=ActiveCell)
If Trouvé2.Address <> Trouvé1.Address Then
Trouvé2.Activate
With ActiveCell.Characters(Start:=InStr(1, Selection, Left(Mot, 1), 1), Length:=Len(Mot))
Selection.Interior.ColorIndex = 4 'colorie en vert
Selection.Font.Bold = True 'met en gras
End With
ListBox1.Visible = True
ListBox1.AddItem Trouvé2
GoTo étiq
End If
End If
Next i
Sheets(1).Activate
Range("A1").Select
End If
End Sub
Private Sub CommandButton1_Click()
RechercheMot
End Sub
Private Sub CommandButton2_Click()
ListBox1.Clear
End Sub
Private Sub CommandButton3_Click()
End
End Sub

 

[skoobi]

Re : formule de tri

Bonjour,

avec le fichier ce serait mieux.

 

[bonbon76]

Re : formule de tri

Bonjour
j'ai omis d'envoyer le fichier le voiçi

 

[bonbon76]

Re : formule de tri

Désolé
ce n'était pas le bon fichier j'envois le nouveau

Milles excuses

 

[BOISGONTIER]

Re : formule de tri

Bonsoir,

Private Sub B_tri_Click()
  Sheets.Add
  [A1].Resize(ListBox1.ListCount) = ListBox1.List
  [A1:A10000].Sort Key1:=[A:A], Order1:=xlAscending, Header:=xlGuess
  Me.ListBox1.List = [A1].Resize(ListBox1.ListCount).Value
  Application.DisplayAlerts = False
  ActiveSheet.Delete
End Sub

JB
http://boisgontierjacques.free.fr