Laisser des cellules vides dans les combobox

[natorp]

Bjr à tous et toutes
J'aimerais que les cellules vides de la feuil2 (A9 et D4) ne soient pas enlevées lorsque je clique sur la combobox des apéritifs ou des menus
Je ne vois pas où cela se trouve dans le code....

Merci de votre aide.... Gérard

 

[bqtr]

Re : Laisser des cellules vides dans les combobox

Bonjour Gérard

Supprime les lignes bleus à la fin de la procédure :

Private Sub remplircombo(£nomfeuille1 As String, £nucombo As Byte, _
£dimcol As String, £ColTri As String, _
£selection As Boolean, £colpourselection As String, _
£valeurcherche As String, £param As Variant)

For £i = 1 To UBound(£Tableau, 1)
    [COLOR=Blue]If £Tableau(£i, 1) <> "" Then[/COLOR]
            .AddItem £Tableau(£i, 1)
            For £j = 1 To £nbcol - 1
                .List(.ListCount - 1, £j) = £Tableau(£i, £j + 1)
            Next £j
    [COLOR=Blue]End If[/COLOR]
Next £i
End With
' pour récupérer le numéro de ligne de la bdd il faut utiliser le code ci dessous
'Dim lig As Long
'lig = CLng(ComboBox1.List(ComboBox1.ListIndex, ComboBox1.ColumnCount - 1))
End Sub

A+

 

[natorp]

Re : Laisser des cellules vides dans les combobox

merci beaucoup, c'est très sympa....
Bonne journée, Gérard

 

[natorp]

Re : Laisser des cellules vides dans les combobox

dis-moi du coup j'ai 2 lignes blanches en bas des combobox apéritifs et menus, comment les supprimer ???
Merci

 

[bqtr]

Re : Laisser des cellules vides dans les combobox

Re,

Toujours dans la même procédure.
Il y a deux lignes en trop dans le tableau.

- Enlève le +1 à la fin de cette ligne :

£j = .Range(£colpourselection & "65536").End(xlUp).Row  ' taille du tableau

- Enlève le -1 à la fin de cette ligne :

For Each £cellule In .Range(£colpourselection & "2:" & £colpourselection & £j)

- Rajoute -1 à cette ligne :

ReDim £Tableau(1 To £j - 1, 1 To £nbcol)

Ca devrai coller 🙂

A+

 

[natorp]

Re : Laisser des cellules vides dans les combobox

merci beaucoup c'est parfait !!!!
Bonne fin d'après-midi....Gérard