Modifier un filtre dico ( sans doublons ) pour classement par ordre alphabétique

jlp035

XLDnaute Occasionnel
Bonjour au Forum,
Quelqu'un peut 'il m'indiquer la modification à effectuer au programme ci dessous qui fonctionne, quelle modification il faut effectuer pour réaliser realiser en plus du filtre sans doublons( actuel ) un classement par ordre alphabétique.

Merci par avance pour vos réponses.

Jean-Luc

Code:
Private Sub Remplir_Type_Affaire_Avec_Filtre_Avancé()
    Dim Recherche As String
    Dim Ligne As Long, i As Long
    Dim Plage
    
    'Type_Affaire.Clear
    'Recherche = Type_Affaire.Value
    Ligne = Sheets("Affaires").Range("G" & "65536").End(xlUp).Row
    Plage = Sheets("Affaires").Range("G2:G" & Ligne).Value
    Set dico_Affaire = CreateObject("scripting.dictionary")
    
    For i = 1 To Ligne - 1
        If UCase(Recherche) = UCase(Left(Plage(i, 1), Len(Recherche))) Then dico_Affaire(Plage(i, 1)) = Plage(i, 1)
    Next i
    '
    Type_Affaire.List = dico_Affaire.Keys
    '
  End Sub
 

BOISGONTIER

XLDnaute Barbatruc
Repose en paix
Re : Modifier un filtre dico ( sans doublons ) pour classement par ordre alphabétique

Bonjour,

Objet dictionary

Code:
  temp = dico_Affaire.Keys
  Call tri(temp, LBound(temp), UBound(temp))
  Type_Affaire.List = temp
End Sub

Sub tri(a, gauc, droi) ' Quick sort
  ref = a((gauc + droi) \ 2)
  g = gauc: d = droi
  Do
    Do While a(g) < ref: g = g + 1: Loop
    Do While ref < a(d): d = d - 1: Loop
    If g <= d Then
      temp = a(g): a(g) = a(d): a(d) = temp
      g = g + 1: d = d - 1
    End If
  Loop While g <= d
  If g < droi Then Call tri(a, g, droi)
  If gauc < d Then Call tri(a, gauc, d)
End Sub

JB
 
Dernière édition:

jlp035

XLDnaute Occasionnel
Re : Modifier un filtre dico ( sans doublons ) pour classement par ordre alphabétique

Bonjour Mr BOISGONTIER,
Je vous remercie pour votre prompte réponse et suis honoré d'obtenir un contact de votre part car j'ai souvent parcouru avec intérêt votre site.
Cependant j'ai maintenant l'erreur ci dessous.
Est 'il possible de m'indiquer comment doivent être déclarées les variables du programme "Tri"

Merci

Jean-Luc
 

Pièces jointes

  • erreur de type 13.JPG
    erreur de type 13.JPG
    37 KB · Affichages: 53

Discussions similaires

Statistiques des forums

Discussions
311 733
Messages
2 082 019
Membres
101 872
dernier inscrit
Colin T