Discussion :

[mikadoo57]

Bonjour
Je voudrai améliorer ma combobox de manière à ce qu'elle n'affiche que la liste des cellules non vides.
L'organisation est la suivante :
Un userform contenant une combobox et une textbox. La combobox affiche le contenu des cellules c3:c56, numérotée de 1 à 54. Lorsque l'opérateur a fait son choix, le contenu de la cellule colonne A correspondant s'affiche dans la textbox.
Ce que je voudrai, c'est que la liste de la combobox n'affiche que les cellules non vides car le fait de cliquer sur un numéro faisant référence à une cellule vide de la colonne A ouvre le débogeur.
J'ai recherché sur les différents forums, mais il y a autant de solutions que de programmeurs et toutes les solutions essayées débouchent sur des erreurs de compilation.
Voici le code de la combobox dans son état actuel (affiche les n° 1 à 54 quelques soient les cellules A vides ou non)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub ComboBox1_Click()
TextBox1 = ""
TextBox1 = Range("A" & plage.Columns(3).Find(ComboBox1, Range("C" & derlg)).Row)
 
End Sub

[Jean-Philippe André]

salut,

le macro recorder te donne une bonne idée de la syntaxe à utiliser pour les "non vides" via un filtre.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 10/04/2012 par Jean-Philippe ANDRÉ
'
 
'
    Selection.AutoFilter Field:=1, Criteria1:="<>"
End Sub

[mikadoo57]

Je ne suis pas un crack en VBA, aussi dois-je insérer ta ligne 8 (Selection.AutoFilter Field:=1, Criteria1:="<>") dans le code de la combobox? J'ai essayé en l'insérant à la ligne 4 mais sans succès.

[mikadoo57]

Bon, j'ai trouvé une solution moins élégante que du code vba : la formule =si(ax="";"";x) dans chaque cellule de la colonne de numérotation C et là, n'apparaissent dans la liste de la combobox que les cellules C non vides!
...Sauf s'il y a une cellule A vide au milieu, alors cela donne ####.
Faut que je trouve autre chose. Allez hop! (pas) résolu!