Combobox ce que vous préférez

[suistrop]

Salut,

Je commence a me familiariser avec les combobox et j aurais voulu savoir quelles étaient vos macro "indispensable" lorsque vous utilisez un combobox.
Perso: Je trouve la commande DropButtonClick trop bien !
pour ce qui est de la macro j ai trouvé sur le net et sur ce forum ce petit code qui permet de retirer les doublons un must de condensé !!!

Private Sub ComboBox1_DropButtonClick()
For i = 1 To Sheets("BASE").Range("D65536").End(xlUp).Row
    ComboBox1 = Sheets("BASE").Range("D" & i)
    If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem Sheets("BASE").Range("D" & i)
Next i
End Sub

j attend vos reponse !!

Salut temjeh j edit pour pas polluer !
je ne veux rien en faire de spécial mais ceux qui dans votre travail vous sont le plus utile que vous trouver indispensable....

 

[Temjeh]

Re : Combobox ce que vous préférez

Bonjour

Tout dépend ce que tu veut y faire mais il y a des centaines de codes! possibles
Ici additem sans avec restriction:

Private Sub UserForm_Initialize()
With Sheets("feuil1")
For i = 1 To .Range("A65536").End(xlUp).Row
'si tu ne veux pas avoir les 7 et les 3 dans la liste
If Not .Cells(i, 1).Value = "7" And Not .Cells(i, 1).Value = "3" Then
Me.ComboBox1.AddItem (.Cells(i, 1).Value)
End If
Next i
End With
End sub

A+

Temjeh