modif code module de feuille pour adapter a usf

[grisan29]

bonjour a vous tous
j'ai trouvé ce code module qui est intéressant mais il est activé a partir d'un bouton sur feuille, moi je voudrais que ce bouton soit sur un usf afin de l'utiliser différement, mais qu'il prenne ses infos dans la 1ère colonne de la feuillea partir de la 3ème ligne

Sub Remplir_Combobox()

    Dim SourceSheet
    Dim L As Long, MonDico As Object
    Dim B As Range
    Dim B1
 Set MonDico = CreateObject("Scripting.Dictionary")
 B1 = "TOUS"
 If Not MonDico.Exists(B1) Then MonDico.Add B1, B1
 For Each B In Range("B3:B" & Cells(65535, 2).End(xlUp).Row)
    If Not MonDico.Exists(B.Value) Then MonDico.Add B.Value, B.Value
  Next B
 ComboBox1.List = MonDico.items
 'ComboBox1.AddItem "TOUS"
  '  ComboBox1.Text = "TOUS"
 'tri
Dim x, i, j, temp
With ComboBox1
    ' trie alphabetiques de noms
    For i = 1 To .ListCount - 1
        For j = 1 To .ListCount - 1
            If UCase(.List(i)) < UCase(.List(j)) Then
                temp = .List(j)
                .List(j) = .List(i)
                .List(i) = temp
            End If
        Next j
    Next i
End With

 
         

    Set MonDico = Nothing
    ComboBox1.Text = "TOUS"
End Sub

et je ne sais pas comment faire pour remplacer ce qui concene le "dico"

cordialement

Pascal

 

[laetitia90]

Re : modif code module de feuille pour adapter a usf

bonjour grisan29

comme je comprends a adapter sujet traite hier code de l'ami david84

 

[grisan29]

Re : modif code module de feuille pour adapter a usf

bonjour Laetitia
merci de ta réponse qui est pertinente comme a ton habitude, mais hier pas été sur excel-dowloads car absent(je vais voir)

merci beaucoup

Pascal
je viens de rechercher ,tu dois faire allusion a cette discussion 'Re : Simplifier le Tri Alphabétique d'un ComboBox"lancée par yann_56
tres similaire en effet, pas vu avant sinon pas fait de demande

cordialement

Pascal