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
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
 

Fichiers joints

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas