[VISUAL BASIC] [GÉNÉRAL] COMMENT REDIMENSIONNER UN TABLEAU EN VB ?

Commentaire de MaximHom le 31/08/2005 17:26:05

OK, ceci m'amène à une autre question :
Je déclare "Dim Montableau(100)"
A l'utilisation, je n'occupe que 50 cases, que j'enregistre simplement dans un fichier txt.
Au démarrage suivant, je lis mon fichier txt, je retrouve mes 50 données, et je charge 50 cases de mon tableau.
Etc......
Puis un jour, j'ai 99 données, et là, je me dis qu'il serait bon de redimensionner....  Comment je fais ?
Je pourrais prévoir un "If NombreDeDonnees > 98 then "Dim Preserve Montableau(150)" par exemple...
En supposant que je rajoute àlors deux nouvelles entrées, j'aurai alors 101 données, il faudra que mon tableau soit dimensionné correctement avant, sinon, j'aurai une erreur...
Y-a-t-il un autre formule plus simple que la ligne que j'ai écrite ci-dessus ?

Quand vous dites, "PreserveMontableau(150)", est-ce que cela rajoute  150 cases aux 50 déjà existantes, ou est-ce que ça n'en crée en fait que 100 nouvelles ?

Merci.

Commentaire de MaximHom le 31/08/2005 22:50:57

Bonsoir,

Merci, c'est effectivemnet une solution.
Evidement, une fois que mon code est compilé et mon exe terminé, je ne peux plus revenir sur la déclaration.
Il me semble qu'à un moment donné, j'avais essayé de déclarer un tableau dans le style :
Nombre = 50
Dim Montableau(nombre)
mais que ça ne marchait pas. Dommage.

Donc, et si j'ai bien compris, je déclare Montableau(50) à la conception du programme, et ensuite, dans les exécutions futures, si j'ai + de 50 articles, c'est la fonction preserve qui sera utilisée automatiquement, à chaque lancement du logiciel :
ai-je bien tout compris ?

Maintenant, c'est bien joli "Preserve". Mais si je compte mes éléments dans mon fichier txt (au départ de l'application p.e. - dans la Form_Load, j'aurai encore une variable (Nombre = 60 p.e)et dans ce cas pourrais-je mettre :
Dim Preserve Montableau(Nombre)
Là,j'ai bien le sentiment d'être dansle même cas de figure...
Purquoi ça marcherait avec Preserve et pas sans ?..
Bien entendu, je peux toujours mettre un Select Case pour renseigner ma déclaration ( par pas de 10 ou 20 ou 50), mais ça me paraît assez rébarbatif, et un peu longuet...
Finalement, ce n'est pas encore totalement clair dans mon esprit...

Merci pour ces renseignements

Commentaire de MaximHom le 01/09/2005 08:45:04

Bonjour !

Désolé,  mais je commence à être vieux, et il est clair qu'on comprend moins bien et moins vite mais ma foi, comme je ne peux pas faire autrement, je vis avec !

Au fond, mon problème est simple, et je vais (re)faire l'essai tout à l'heure :
Peu importe le nombre d'éléments dans le fichier et à mettre dans  le tableau, ce nombre apparaîtra forcément sous forme d'une variable à la lecture du fichier. Ma question est : "Est-ce que je puis déclarer ensuite MonTableau AVEC cette variable ?
En clair, déclarer Montableau(50), c'est facile, par contre, déclarer Montableau(Nombre), avec Nombre qui vaut 50, c'est plus incertain, à ce qui m'avait semblé.
Maintenant, il est possible que  ma variable (Nombre) ait été déclarée sous un mauvais type (Dim Nombre As Integer me semblait pourtant convenable !
Bon, je vais essayer tout à l'heure, je vais voir...

Merci beaucoup pour votre aide

Commentaire de us_30 le 01/09/2005 22:33:22

Bonsoir,

Okay MaximHom. Pas trop vieux tout de même... -:);

Peut-être un complèment sur la syntaxe qui n'apparait pas dans les quelques lignes du Tuto, suite à ta remarque dans le listing :

=

Dim MonTableau() As String 'string ou autre...
'Attention :
'Il ne faut surtout pas renseigner le nombre entre parenthèses !
'ça génèrerait une erreur par la suite

=

IL y a deux façon de déclarer un Tableau, aussi valable l'une que l'autre. La différence se situe uniquement sur la présentation et l'organisation du code... Voici ces 2 façons commentées dans le code :

=

Sub Premierefacon()

'Déclaration générale pour définir le type
'On dit à VB que MonTableau est un tableau à indice
'ET on dit aussi que MonTableau contiendra une donnée alphanumérique (textes & nombres)
Dim MonTableau() As String

'On dimensionne le nombre d'élément
ReDim MonTableau(50)

'Puis on redimensionne à 100 éléments en gardant les anciennes
ReDim Preserve MonTableau(100)

End Sub

=

Sub Deuxiemefacon()

'Si on veut dimensionner directement 50 éléments
ReDim MonTableau(50) As String

'Puis on redimensionne à 100 éléments en gardant les anciennes
ReDim Preserve MonTableau(100)

End Sub

=

Je pense que la première façon est préférable, car elle permet une relecture d'un ancien code beaucoup plus facilement... Il y a aussi d'autres petites raisons pratiques, mais bon...

En espèrant que ces précisions seront utiles...

Amicalement,
Us.

Commentaire de blinix123 le 08/04/2006 01:02:42

tableau dynamique... :x