Discussion :

[VieuxCamarade]

Bonjour tout le monde,

Je suis en train de faire un petit dictionnaire français anglais.
J'ai donc dans un multipage 26 pages (une pour chaque lettre de l'alphabet), et dans chacune d'elle une listbox que j'alimente à partir d'un onglet où tout les mots sont stockés.
Pour cela j'utilise un tableau de n lignes (en fonction du nombre de mot commençant par la lettre) et de deux colonnes (fr et anglais) que j'introduis dans la liste.

Tout va bien lorsque les dimensions du tableau sont fixés, mais je souhaitais rendre la première dimension dynamique en fonction du nombre de mots trouvés pour ne pas avoir plein de lignes vide.

Dois-je parcourir une première fois toute la colonne pour connaitre la dimension à appliquer sans perdre de donner ?

Ou bien y-a-t-il une astuce pour utliser Redim Preserv sur la première dimension :

Code :

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

1
2
3
4
5
6
7
8
For j = 1 To 50
        If Left(Worksheets("words").Cells(j, 2).Value, 1) = "a" Then
            ReDim Preserve VarTab(1 To k, 1 To 2)
            VarTab(k, 1) = Worksheets("words").Cells(j, 2).Value
            VarTab(k, 2) = Worksheets("words").Cells(j, 3).Value
            k = k + 1
        End If
    Next j

Merci par avance (et merci pour le tuto sur les tableaux )

[VieuxCamarade]

J'ai poursuivi mes recherches après avoir posté mon message et j'ai trouvé comme un grand.

Pour information (pour les débutant comme moi) il suffit :
1) d'inverser les dimensions du tableau
2) d'utiliser la fonction Transpose pour transposer le tableau lors de l'alimentation
Application.WorksheetFunction.Transpose(VarTab)

Merci

[casefayere]

Bonjour,
Tu aurais pu aussi redimensionner comme ça :

Code :

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

1
2
3
4
5
6
7
8
9
With Worksheets("words")
  k = WorksheetFunction.CountIf(.Range("B1:B50"), "=a*")
  ReDim Preserve vartab(1 To k, 1 To 2)
  'For ..................
    'If......................
    '.....
    'End If
  'Next j
End With

[Marc-L]

Bonjour,

ou bien en alimentant directement le tableau via la fonction VBA Filter …

[VieuxCamarade]

Bonjour,

Merci tout d'abord pour vos réponses.

casefayere, il y a un point que je ne comprends pas cependant. J'ai lu qu'on ne pouvait faire un Redim Preserve que sur la dernière dimension.
Dans votre exemple vous le faites sur la première.
Pouvez vous m'éclairer svp ?

[casefayere]

Re,

comme le tableau n'est pas encore dimensionné, tu peux donc le faire, j'aurais pu écrire, pour le même résultat :

Code :

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

ReDim  vartab(1 To k, 1 To 2)

,c'est comme si je dimensionnais le tableau au départ :

Code :

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

ReDim  vartab(1 To 550, 1 To 2)'au hasard