Alimenter comboBox d'une userform a partir d'une feuille du classeur

[Youpsy]

Bonjour a tous !!
j'ai un petit problemeet je n'ai pas une grande notion de programmation...
Ce que je voudrai réussir a faire est à alimenter mes combobox qui sont sur l'userform1 depuis
la feuilles "LISTES" qui regroupe toutes les données..

Merci d'avance 🙂

 

[kinel]

Re : Alimenter comboBox d'une userform a partir d'une feuille du classeur

bonjour à tous

voici une idée

kinel

 

[Pierrot93]

Re : Alimenter comboBox d'une userform a partir d'une feuille du classeur

Bonjour,

regarde ce lien dans la FAQ, espérant qu'il puisse t'aider :
https://www.excel-downloads.com/threads/vba-alimentation-dune-combobox-ou-dune-listbox.81037/
bon après midi
@+

 

[Youpsy]

Re : Alimenter comboBox d'une userform a partir d'une feuille du classeur

C'est presque parfait !
La seul remarque c'est que quand j'agrandi la plage ou sont selectionné mes données elle sont comblée par un vide...
Sinon déjà un grand merci !

Private Sub UserForm_Initialize()
With ComboBox1
    .List = Sheets(4).Range("B2:B10").Value
    .MatchRequired = True
End With
With ComboBox2
    .List = Sheets(4).Range("H2:H10").Value
    .MatchRequired = True
End With
End Sub

 

[kinel]

Re : Alimenter comboBox d'une userform a partir d'une feuille du classeur

oui le vide c'est normal puisqu'on fait référence à des cellules vides
mais il y a peut être moyen de sélectionner large en retenant seulement les cellules non vides
tout doit se situer dans la ligne .list
un petit génie du forum doit bien avoir ça sous le coude !

 

[kinel]

Re : Alimenter comboBox d'une userform a partir d'une feuille du classeur

bonsoir à tous
effectivement dans le lien de Pierrot93 il y a la solution pour ne faire apparaître que les cellules occupées dans le comboBox

merci Pierrot

 

[kinel]

Re : Alimenter comboBox d'une userform a partir d'une feuille du classeur

perso j'ai choisi celle là (et ça marche):

Dim Plage As Range
With Sheets("nom de ta feuille") ' à personnaliser
Set Plage = .Range("A2:A" & .Range("A65536").End(xlUp).Row) 'liste se trouvant dans la colonne A à partir de la seconde ligne
End With

ComboBox1.List = Plage.Value