grisan29
XLDnaute Accro
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
et je ne sais pas comment faire pour remplacer ce qui concene le "dico"
cordialement
Pascal
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
Code:
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
cordialement
Pascal