Discussion :

[frunch]

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

[Philippe Tulliez]

Bonjour,

il y a 2 Tableaux Tbl() et tbl(BD) à quoi ils correspondent.

Je me pose la même question en ce qui concerne tblBD car sa déclaration n'est pas faite dans la procédure publiée et en ce qui concerne Tbl, cette variable tableau est alimentée dynamiquement si l'instruction tblBD(i, ColRecherche) Like cle renvoie VRAI

Si vous voulez en savoir plus sur le sujet, je ne peux que vous conseiller la lecture de ce tutoriel Utiliser les variables tableaux en VBA Excel

[jurassic pork]

Hello Philippe,
en fait tblBD est défini dans le formulaire en global et il représente les valeurs de l'unique tableau (Tab_1) du classeur

Code :

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

1
2
 
tblBD = [Tab_1].Value

tblBD est initialisé pendant l'initialisation du formulaire.
Ami calmant, J.P

[Franc]

Bonjour, dans une des macros du code tu trouves la réponse à 2 de tes questions.
Tu constateras que ListBox1 a bien 5 colonnes et tblBD correspond en fait à Tab_1 qui désigne ton tableau de données en Feuil1.

Code :

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

1
2
3
4
5
6
Sub InitListBox()
    tblBD = [Tab_1].Value
    Me.ListBox1.List = tblBD
    Me.ListBox1.ColumnCount = 5
    Me.ListBox1.ColumnWidths = "40;180;100;80;20"
End Sub

Ensuite, tbl est un tableau temporaire dans lequel sont stockés les résultats de la recherche de mot clé pour les copier vers la ListBox1.
La variable n est utilisée pour suivre le nombre de lignes qui correspondent au critère de recherche. À chaque fois qu'une correspondance est trouvée, n est incrémentée et le tableau Tbl() est redimensionné pour stocker les données de cette ligne spécifique.

[frunch]

Bonjour à tous,
Merci à tous et franc pour la dernière réponse.
Je suis le cours sur les variables tableaux, avant d'arriver au redim preserve.
Je suis au II-C. Les tableaux multidimensionnels,
C'est quoi une dimension, à part ligne et colonne je vois pas.
Et comment je fais pour attacher un exemple avec la variable

Code :

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

VarTab = [Tablo].Value

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub ExempleTableau_MultiDimensionnel()
    Dim i As Integer, j As Integer
    'Définit le tableau à 2 dimensions ainsi que leur taille.
    Dim VarTab(1 To 3, 1 To 6) As String   
    For i = 1 To UBound(VarTab, 1) 'boucle sur la 1ere dimension
        For j = 1 To UBound(VarTab, 2) 'boucle sur la 2eme dimension
            'Alimente les éléments du tableaux
            VarTab(i, j) = i & j
            'Lit les éléments du tableau
            Debug.Print VarTab(i, j)
        Next j
    Next i
End Sub

Merci

[Franc]

Tu peux avoir autant de dimensions que nécessaires.
Imaginons que je veux un tableau pour y stocker des classeurs, des feuilles, des lignes et des colonnes.
Pour atteindre la valeur d'une cellule il me faudrait alors 4 valeurs qui pourraient être par exemple (Tabl(4,2,1,2), c'est à dire (classeur4,feuil2,ligne1,colonne2) donc la cellule B1 de la Feuil2 du classeur 4.

[frunch]

et çà

Code :

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

ReDim Preserve Tbl(1 To UBound(tblBD, 2), 1 To n)

Cà veut dire on redimensionne la 2eme dimension du tableau, donc la colonne F à "1 to n" qui sont des lignes ?