Combobox sans blanc

[Temjeh]

Bonjour à tous

Je cherche une option pour alimenter un Combo par l'utilisateur car par .addithem il faut que j'entre pour lui donc si je lui met Row source A1:A20 il peut l'alimenter lui-même.
Le prob est que je cherche un code ou une option pour enlever les blancs dans combo si il y a un item en A1 et un en A2 il me met un long menu avec des blanc (18).

Merci beaucoup

Temjeh

 

[Robert]

Bonsoir Temjeh, bonsoir le forum,

Une solution à ton problème mais justement avec une méthode additem. Ce code, à l'initialisation de l'userform, repère la dernière cellule éditée de la colonne 1, balaye la plage A1:Axx (xx = dernière ligne éditée) et rajoute à la ComboBox1 uniquement les cellules non vides. En fait c'est quand même l'utilisateur qui va l'alimenter puisque le code s'actualise à chaque lancement de l'UserForm.

Private Sub UserForm_Initialize() 'à l'initialisation de l'UserForm
Dim lf As Long 'déclare la variable lf (Ligne de Fin)
lf = Range('A65536').End(xlUp).Row 'définit la variable lf
ComboBox1.Clear 'vide la ComboBox1
'remplit la ComboBox1
For Each cel In Range('A1:A' & lf) 'boucle sur toutes les cellule de A1 à A_lf
'condition : si la cellule n'est pas vide ajoute son contenu à la ComboBox1
If cel.Value <> '' Then ComboBox1.AddItem cel.Value
Next cel 'prochaine cellule
End Sub

 

[Temjeh]

Merci beaucoup c'est super

J'ai modifié pour 2 combo:

Private Sub UserForm_Initialize()

Dim lf As Long 'déclare la variable lf (Ligne de Fin)
lf = Sheets('Liste').Range('A65536').End(xlUp).Row 'définit la variable lf
ComboBox1.Clear
ComboBox2.Clear 'vide la ComboBox1
'remplit la ComboBox1
For Each cel In Sheets('Liste').Range('A1:A' & lf) 'boucle sur toutes les cellule de A1 à A_lf
'condition : si la cellule n'est pas vide ajoute son contenu à la ComboBox1
If cel.Value <> '' Then ComboBox1.AddItem cel.Value
If cel.Value <> '' Then ComboBox2.AddItem cel.Value
Next cel 'prochaine cellule

End Sub

Merci c'est génial!!

Temjeh