Bonjour à tous,
J'aimerais comprendre le code allant avec le résultat d'une combobox qui affiche dans une liste du formulaire les lignes ou il y a le mot dans la colonne F en onglet.
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
 
Private Sub ComboBox1_Change()
Dim ColRecherche As Byte
Dim cle, n
Dim i As Integer, k As Integer
  ColRecherche = 6 'mots clés
  cle = "*" & ComboBox1.Value & "*": n = 0
 
  Dim Tbl()
  For i = 1 To UBound(tblBD)
    If tblBD(i, ColRecherche) Like cle Then
       n = n + 1: ReDim Preserve Tbl(1 To UBound(tblBD, 2), 1 To n)
       For k = 1 To UBound(tblBD, 2): Tbl(k, n) = tblBD(i, k): Next k
    End If
  Next i
  If n > 0 Then Me.ListBox1.Column = Tbl Else Me.ListBox1.Clear
End Sub
D'abord il n'y a qu'une colonne en propriétés de la listbox1, pkoi ne pas en fixer le nombre à 5
il y a 2 Tableaux Tbl() et tbl(BD) à quoi ils correspondent.
et ensuite n c'est le nombre de colonnes ?
tichtuch-test1.xlsm

Merci