![]() |
|
Forum
|
|
|
#1 (permalink) |
|
XLDnaute Nouveau
Date d'inscription: septembre 2007
Messages: 16
|
Pour remplir une combobox sans doublon et simplement, placer ce code dans le code de l'userform concerné
Dans l'exemple, il faut remplir la combobox1 avec les données de la colonne A de la feuille "Base". Code:
Private Sub UserForm_Initialize()
Dim i As Integer
For i = 1 To Sheets("Base").Range("A65536").End(xlUp).Row
ComboBox1 = Sheets("Base").Range("A" & i)
If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem Sheets("Base").Range("A" & i)
Next i
End Sub
Merci à Spitnolan08 et Staple1600 pour leur participation Dernière modification par PascalXLD 24/10/2007 à 08h28. |
|
|
|
| ANNONCES | |
![]() |
| Outils de la discussion | |
|
|
Discussions similaires
|
||||
| Discussion | Auteur | Forum | Réponses | Dernier message |
| Alim Combobox avec condition sans doublon | xvella | Forum Excel | 4 | 05/04/2007 21h57 |
| remplir combobox sans doublon | Cora | Forum Excel | 4 | 18/05/2006 15h26 |
| remplir combobox sans doublon | Cora | Forum Excel | 2 | 18/05/2006 11h30 |
| Liste sans doublon, sans blanc, sous condition | Ludo | Forum Excel | 0 | 25/01/2006 16h58 |
| Combobox sans doublon | Temjeh | Forum Excel | 3 | 23/04/2005 00h42 |