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 :
Merci par avance (et merci pour le tuto sur les tableaux )
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
Partager