Indexation et valeurs

Résolu
Signaler
Messages postés
93
Date d'inscription
samedi 11 octobre 2003
Statut
Membre
Dernière intervention
30 septembre 2008
-
Messages postés
792
Date d'inscription
vendredi 4 mars 2005
Statut
Membre
Dernière intervention
12 juin 2012
-
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

Messages postés
792
Date d'inscription
vendredi 4 mars 2005
Statut
Membre
Dernière intervention
12 juin 2012
5
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>
Messages postés
883
Date d'inscription
vendredi 3 novembre 2000
Statut
Membre
Dernière intervention
3 mars 2009
7
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.