Forum |  HardWare.fr | News | Articles | PC | Prix | S'identifier | S'inscrire | Aide | Shop Recherche
2096 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  [VBA-Access] Tableau dont on ne connait pas Nb de lignes

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

[VBA-Access] Tableau dont on ne connait pas Nb de lignes

n°1991839
nekikool1
Posté le 10-05-2010 à 15:27:21  profilanswer
 

Bonjour,
 
J'ai encore un petit problème en VBA :
 
J'aimerais créer un tableau puis rajouter un nombre aléatoire de valeurs tirées d'un fichier txt. Par exemple tous les mots qui suivent le mot "Le", vous voyez l'idée ?
 
DIM montableau() AS STRING
 
Seulement je ne peux pas le redimensionner, puisque je ne connais pas le nombre de lignes qui vont être nécessaires !
Existe-t'il des tableaux qui autorisent un remplissage sans avoir défini de taille ?
 
merci :)

mood
Publicité
Posté le 10-05-2010 à 15:27:21  profilanswer
 

n°1991865
dje69r
Arme de distraction massive
Posté le 10-05-2010 à 16:10:09  profilanswer
 

Ca serait pas plus simple de recuperer dans un 1er temps tous les mots du fichier texte et ensuite, dns un 2nd temps, créer ton tableau des mots tirés aleatoirement...?


---------------
C'est en voulant jouir de notre liberté aujourd'hui que nous allons la perdre demain
n°1991883
nekikool1
Posté le 10-05-2010 à 16:39:19  profilanswer
 

Dans ce cas, comment je fais pour lire une 1ere fois le fichier puis remonter au début ?
J'utilise cette méthode de lecture :
 
Dim objet_fso As Scripting.FileSystemObject
Dim fichier_txt As Scripting.TextStream
 
Set objet_fso = New Scripting.FileSystemObject
Set fichier_txt = objet_fso.OpenTextFile(MON_FICHIER_TXT, ForReading)
 
With fichier_txt
 
MANIP POUR COMPTER LE NB DE FOIS LE MOT "MON MOT"
 
fichier_txt.Close  
 
Et ensuite je veux récupérer des données qui sont en même quantité que le nombre de fois où il y a "MON MOT", donc qui pourront être mises dans le tableau (1 to NB "MON MOT" ) en gros

n°1992266
otobox
Maison fondée en 2005
Posté le 11-05-2010 à 19:38:22  profilanswer
 

Il faut utiliser la fonction Redim.
Attention, tu ne peux redimensionner que la dernière dimension du tableau (par exemple tableau(10,15) en tableau(10,20) et pas tableau(20,15).

 

Et si tu veux garder les valeurs déjà présentes dans le tableau, il faut utiliser l'option Preserve :

 

Redim Preserve tableau(20)


Message édité par otobox le 11-05-2010 à 19:39:44

---------------
OtObOxBlOg - - - Etre seul à avoir tort  c'est plus difficile, mais c'est bien plus beau que d'avoir raison avec une bande de cons
n°1992499
Xxxaaavvv
Posté le 12-05-2010 à 11:15:38  profilanswer
 

Perso je n'aime pas utiliser les tableaux...
 
je préfère les objets collections...


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  [VBA-Access] Tableau dont on ne connait pas Nb de lignes

 

Sujets relatifs
VBA, boucle For i = a to b a>b POSSIBLE ?programmation Excel / VBA
Excel VBA Fonction Somme des (xi - yi)²Supprimer une "colone" dans un tableau
Initialisation de tableauUpdate impossible PHP/ACCESS
Access champ null dans une requêteCovariance VBA: Problème
VBA : débutant, besoind'aide pour une macro[VBA] ouvrir fichiers...
Plus de sujets relatifs à : [VBA-Access] Tableau dont on ne connait pas Nb de lignes


Copyright © 1997-2018 Hardware.fr SARL (Signaler un contenu illicite) / Groupe LDLC / Shop HFR