Discussion :

[daniel78800]

Bonjour,
J'essaie d'alimenter une combobox de 9 colonnes à partir d'un tableau de 9 colonnes, mais seulement les lignes dont la colonne G contient une date précisée dans une listbox qui est dans le même formulaire.
J'essaie avec un tableau, mais je finis par me perdre, si vous pouviez m'aider, ce serait sympa.
j'ai regardé plusieurs exemples, mais je n'arrive pas bien comprendre le tableau et la combo à 9 colonnes.
Merci par avance

[boisgontierjacques]

Bonjour,

Exemple avec 4 colonnes filtré sur une colonne(C)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Dim f, Bd()
Option Compare Text
 
Private Sub UserForm_Initialize()
  Set f = Sheets("bd")
  Bd = f.Range("A2:D" & f.[A65000].End(xlUp).Row).Value
  NbCol = UBound(Bd, 2)
  Me.ComboBox1.ColumnCount = NbCol
  Me.ComboBox1.ColumnWidths = "30;30;30;30"
  ville = "paris": n = 0
  Dim Tbl()
  For i = 1 To UBound(Bd)
    If Bd(i, 3) = ville Then
        n = n + 1: ReDim Preserve Tbl(1 To NbCol, 1 To n)
        For k = 1 To UBound(Bd, 2): Tbl(k, n) = Bd(i, k): Next k
     End If
  Next i
  Me.ComboBox1.Column = Tbl
End Sub

Boisgontier

[daniel78800]

Bonjour,
Merci pour le code et le fichier, je regarde régulièrement sur votre site, mais si vous pouviez commenter en même temps les lignes de code. Je ne comprends pas certaines lignes. Par exemple :

Code :

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

1
2
n = n + 1: ReDim Preserve Tbl(1 To NbCol, 1 To n)
For k = 1 To UBound(Bd, 2): Tbl(k, n) = Bd(i, k): Next k

Merci par avance de votre aide.