Indexation et valeurs

Résolu
nagstef Messages postés 93 Date d'inscription samedi 11 octobre 2003 Statut Membre Dernière intervention 30 septembre 2008 - 9 sept. 2006 à 22:40
rvblog Messages postés 792 Date d'inscription vendredi 4 mars 2005 Statut Membre Dernière intervention 12 juin 2012 - 19 sept. 2006 à 14:19
Bonjour, je vais essayer de bien exprimer ma demande !

J'ai une base de donnée (format calc de Ooo). Dans cette base, sur une meme colonne de centaines de lignes, des informations string se trouvent être identiques, et je voudrais comptabiliser celles-ci, sous la forme a(string$) et ce, de façon public, afin de pouvoir les utiliser à n'importe quel moment.

En faite, je voudrais, à la fin, qu'en mémoire, il y ait :
a(string1) = 10
a(string2) = 3

Merci de votre aide, toujours aussi précieuse !

2 réponses

rvblog Messages postés 792 Date d'inscription vendredi 4 mars 2005 Statut Membre Dernière intervention 12 juin 2012 7
19 sept. 2006 à 14:19
Salut 177884 nagstef, salut =404581 Julien237,

404581 Julien237 a raison, ce sont les collections qu'il te faut utiliser (enfin, quand on lit la fin de ce que tu dis).

Dim MesStrings As Collection 'sans aucun rapport avec la mode

Set MesStrings = New Collection 'on instancie la collection
MesStrings.Add 10, "string1"'on ajoute des éléments
MesStrings.Add 10, "string2"

Ensuite, tu pourras écrire :

MsgBox MesStrings("string1")

et la boite de dialogue affichera 10.

Maintenant, quand on lit le début, on peut se dire qu'il te faut simplement un tableau. En effet, quel besoin est d'écrire string1, string2 ?
Pourquoi pas 1, 2 ?

Auquel cas :
Dim MesStrings(1 To 2) AsInteger

MesStrings(1)=10
MesStrings(2)=3

et Msgbox MesStrings(1) affichera 10.

voilà, à+

rvblog<sup>n
Je veux ton bien....et je l'aurais....mieux vaut tard...que trop tard!</sup>
3
Julien237 Messages postés 883 Date d'inscription vendredi 3 novembre 2000 Statut Membre Dernière intervention 3 mars 2009 7
9 sept. 2006 à 23:06
En fait si j'ai bien compris, tu veux un tableau dont l'index serait donné par un string ? A ma connaissance, c'est impossible, essaye plutot d'associer un nombre à chaque string (appelons cette fonction Nmbre) et puis de faire
a(Nmbre(string1)) = 10

Je pense aussi a l'instant, mais j'ai jamais utilisé peut-être que ca n'a rien avoir, y'a pas des collections auxquelles ont peut mettre une key à chaque item et puis s'y référencier grâce a cette key ?

Julien.
0
Rejoignez-nous