compréhension code avec ubound

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:

---

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 ?
Pièce jointe 641158

Merci

Bonjour,

Citation:

---

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

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:

---

1 2	tblBD = [Tab_1].Value

---

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

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:

---

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.

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:

---

VarTab = [Tablo].Value

---

Code:

---

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 :mrgreen:

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.

et çà

Code:

---

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 ? :calim2:

Bonjour,

Citation:

---

Je suis au II-C. Les tableaux multidimensionnels,
C'est quoi une dimension, à part ligne et colonne je vois pas.

---

La lecture de ce tutoriel de Didier Gonard Conceptualisation des variables tableau en VBA et Application à l'optimisation du code sous Excel illustre bien ce que sont les dimensions.

Citation:

---

Envoyé par frunch

et çà

Code:

---

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 ? :calim2:

---

Pas tout à fait.
UBound(tblBD, 2) représente la limite supérieure de la 2è dimension, donc 7 colonnes de A à G, d'ailleurs, si dans ton code tu remplaces UBound(tblBD, 2) par 7, le résultat sera le même.
A chaque fois qu'un mot-clé est trouvé, une ligne est ajoutée grâce à la variable n qui est incrémentée de 1, et le tableau est redimensionné pour prendre en compte la nouvelle ligne. PRESERVE est utilisé pour conserver les données existantes de Tbl.
Donc au premier mot-clé trouvé, ReDim Preserve Tbl(1 To UBound(tblBD, 2), 1 To n) donnera un Tbl(7,1) puis Tbl(7,2) et ainsi de suite. On conserve toutes les colonnes et on ajoute une ligne.

Pour info, on ne peut modifier que la dernière dimension avec Redim Preserve =>

Citation:

---

Redimensionnement avec Preserve. Si vous utilisez Preserve, vous pouvez uniquement redimensionner la dernière dimension du tableau. Pour chaque autre dimension, vous devez spécifier la limite du tableau existant.

---

https://learn.microsoft.com/fr-fr/do...edim-statement

Bonjour à tous,
@ Phlippe,
Je suis un peu dans le cas de ton ami

Citation:

---

Mon ami, Benoît Sansarray, lors d'une discussion sur le VBA, m'a révélé qu'il ne touchait jamais aux variables tableau, car elles lui paraissaient très compliquées et dès qu'il y pensait il avait un blocage comme si, pour lui, on appuyait sur la touche des neurones Pièce jointe 641231Il a reconnu que c'était bien dommage car il avait déjà copié-collé des morceaux de codes qui s'avéraient bien utiles, mais il n'arrivait pas à les manier ne pouvant se les représenter. Je lui ai répliqué que ce n'était pas si complexe que ça et lui ai fait un croquis vite fait qui l'a laissé perplexe…:mouarf: Il n'empêche que ça a dû me perturber car cette nuit là, j'ai rêvé que j'étais tranquillement en train de coder sur mon portable assis dans le désert quand Benoît surgissait et me demandait : dessines-moi une touche Pièce jointe 641232

---

@Franc,
Merci çà m'éclaircit un peu
Donc on a tblBD() pour la feuille et tbl() pour la listbox.
Mais la place des lignes et colonnes est normalement tablo(lignes, colonnes), et pas pour Tbl(1 To UBound(tblBD, 2), 1 To n)
Et là on dirait qu'on change de sens Tbl(k, n) = tblBD(i, k)
Enfin dans Me.ListBox1.Column = Tbl , column me choque, et tbl sans parenthèses aussi 8O

Merci

Dans tbl, on a inversé les lignes/colonnes car comme je l'ai dit on ne peut redimensionner que la dernière dimension d'un tableau (array),
le nombre de colonnes étant fixé contrairement au nombre de ligne, on doit mettre l'indice des lignes dans la dernière dimension pour pouvoir en modifier le nombre.
Le sens de stockage des infos est peut important du moment que l'on sait ce qu'on manipule

De plus on retombe sur nos pattes en utilisant Listbox1.Column qui transpose le tableau qu'on lui passe (cf la note de la doc https://learn.microsoft.com/en-us/of...olumn-property )

pas de parenthèses parce que les 2 objets sont de même type (Variant, et en l'occurrence Array)