XL 2019 VBA remplir une combobox sous condition

donpopo · 24 Mars 2021

Bonjour le forum,

Pour le moment, j'ai une procédure qui me remplit ma combobox.

VB:

'----------------------------------------------
'Valorisation de la ComboBox avec deux colonnes
'----------------------------------------------
Private Sub SetComboBox()
    Set f = Sheets("Locataires")
    Set Rng = f.Range("A5:B" & f.[A65000].End(xlUp).Row)
    Me.ComboBox1.ColumnCount = 2
    Me.ComboBox1.ColumnWidths = "90;50"
    Me.ComboBox1.List = Rng.Value
End Sub

Mais je souhaiterais que n'apparaissent pas dans cette liste certains 'locataires' si sur cette feuille "Locataires", la colonne 'S' n'est pas vide.

Me suis-je bien fait comprendre?

Merci pour vos conseils,
Donpopo

bof · 25 Mars 2021

Bonjour,
Une solution :

VB:

Private Sub SetComboBox()
Dim Arr, i, f
Set f = Sheets("Locataires")
Arr = f.Range("A5:S" & f.[A65000].End(xlUp).Row).Value
    Me.ComboBox1.ColumnCount = 2
    Me.ComboBox1.ColumnWidths = "90;50"
For i = 1 To UBound(Arr)
   If Arr(i, 19) <> "" Then
      ComboBox1.AddItem Arr(i, 1)
      ComboBox1.List(ComboBox1.ListCount - 1, 1) = Arr(i, 2)
   End If
Next i
End Sub

A+

bof · 25 Mars 2021

Bonjour,
Une solution :

VB:

Private Sub SetComboBox()
Dim Arr, i, f
Set f = Sheets("Locataires")
Arr = f.Range("A5:S" & f.[A65000].End(xlUp).Row).Value
    Me.ComboBox1.ColumnCount = 2
    Me.ComboBox1.ColumnWidths = "90;50"
For i = 1 To UBound(Arr)
   If Arr(i, 19) <> "" Then
      ComboBox1.AddItem Arr(i, 1)
      ComboBox1.List(ComboBox1.ListCount - 1, 1) = Arr(i, 2)
   End If
Next i
End Sub

A+

XL 2019 VBA remplir une combobox sous condition

donpopo

XLDnaute Occasionnel

bof

bof

XLDnaute Occasionnel

Discussions similaires

XL 2019 VBA remplir une combobox sous condition

donpopo

XLDnaute Occasionnel

bof

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency