Changer la première dimension d'un Array?

[pacoako]

Bonjour à tous,

je suis devant un petit problème présentement avec une variable «Array» (désolé, je ne connais pas le terme exacte en français) qui est dimensionné ainsi au début de mon code :

Dim ListeResultatCritere(0 To 65535, 0 To 20) As Variant

Et j'ajoute cette variable à la propriété «List» de ma «ListBox» comme ceci :

ListBoxResultats.List = ListeResultatCritere

Mon problème est que le menu déroulant verticale de ma «Listbox» est configuré pour 65535 lignes vu que ma variable est dimensioné jusqu'à 65535, donc elle affiche tous les valeurs 0 dans ma 1ère dimension... mais ma variable ne contient que très rarement autant de lignes...

Je me demandais s'il était possible d'ajuster soit le menu déroulant de ma «Listbox» ou bien d'afficher seulement les lignes qui ont des valeurs... je ne sais trop... je suis vraiment bloqué ici

Merci beaucoup pour vos réflexions!

Bonne journée!

 

[skoobi]

Re : Changer la première dimension d'un Array?

Bonsoir Pacoako,

Pour tout savoir (ou presque) sur les tableaux VBA, regarde ceci.
Et en particulié ce chapitre.
Bonne lecture.

 

[BOISGONTIER]

Re : Changer la première dimension d'un Array?

Bonsoir,

-y a til besoin d'un tableau?
-on ne peut redimensionner que la dernière dimension

Dim b()
ReDim Preserve b(1 To 5, 1 To 2)
ReDim Preserve b(1 To 5, 1 To 3)

http://boisgontierjacques.free.fr/fichiers/jb-tableaux.zip

JB
Formation Excel VBA JB

 

[ROGER2327]

Re : Changer la première dimension d'un Array?

Bonsoir

Pour augmenter de un la première dimension d'un tableau à deux dimensions oTab dont la deuxième dimension est au moins deux, j'utilise la séquence suivante :

    oTab = Application.Transpose(oTab)
    ReDim Preserve oTab(LBound(oTab, 1) To UBound(oTab, 1), LBound(oTab, 2) To UBound(oTab, 2) + 1)
    oTab = Application.Transpose(oTab)

Bonne nuit !
ROGER2327

 

[BOISGONTIER]

Re : Changer la première dimension d'un Array?

Dans le cas présent:

intervertir 1ere et 2e dimension:

Boucle
...
n=n+1
ReDim Preserve a(1 to 2, 1 to n) si 2 colonnes dans ListBox
...
Fin Boucle

ListBoxResultats.List = Application.Transpose(a)

JB

 

[pacoako]

Re : Changer la première dimension d'un Array?

Merci à tous pour vos réponses, je prendrai le temps d'essayer le tout sous peu!

Merci encore & bonne journée!