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