[VBA-E] Pb sur la key d'une collection

Version imprimable

24/10/2005, 14h28
niro75

[VBA-E] Pb sur la key d'une collection
Bonjour,

Je debute en VB et je voudrais créer une collection avec comme key, la ligne de mon fichier excel.

Alors pour le moemnt je fais :
Code:

1 2 3 key = Cells(Ligne, PARAMETERNAMECOLUMN).Row ... paramValues.Add Item:=valeur, key:=key
Mais, il n'en veux pas, comment faire?

Merci, de votre aide.
24/10/2005, 15h38
Megaxel
Premièrement, je ne comprend pas la différence entre tes variables "Ligne" et "key".
Deuxièmement, je ne crois pas qu'on puisse "numéroter" les éléments d'une collection comme ça, mais je ne suis pas sûr de moi du tout. Pourquoi n'utilises-tu pas un simple tableau, dans lequel les éléments sont repérés par leur numéro?
Code:

1 2 3 4 5 MonTableau(0) = 14 MonTableau(1) = 5 MonTableau(2) = 12 ...
24/10/2005, 16h08
niro75

En fait je souhaite recuperer des donnees de mon classeur vers une collection (parce que je connais la facon dont on y accede) pour, apres action, les sortir dans un fichier texte.
Mais je ne sais pas comment utiliser le tableau en vb. J'ai regarder la faq, mais ce n'est pas bien clair,

Si jamais tu avais la bonte de me dire comment ça s'utilise, ce serait super.
24/10/2005, 16h15
Megaxel
Y'a pas plus simple, tu le déclares comme ça:
Code:

1 2 Dim MonTableau(10) As String
Là, par exemple, tu réserves 11 places (de 0 à 10) pour y mettre des chaîne de caractères. Tu peux bien sûr choisir la taille, et y mettre tous les types de données.
Et tu accèdes aux éléments, en lecture comme en écriture, comme ça:
Code:

1 2 3 MonTableau(4) = "Taratata" MsgBox(MonTableau(4))

Pour mémo, tu peux utiliser une collection, voici un exemple de syntaxe :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
    Dim paramValues As New Collection
    Dim valeur(2) As String
    Dim cle(2) As String
 
    valeur(0) = "Visual"
    valeur(1) = "Basic"
    valeur(2) = "6.0"
 
    cle(0) = "0"
    cle(1) = "1"
    cle(2) = "2"
 
    For i = 0 To 2
        paramValues.Add valeur(i), cle(i)
    Next i
 
    For i = 0 To 2
        'Attention, l'index d'une collection démarre à 1
        Debug.Print paramValues.Item(i + 1)
    Next i

En général, je préfère les tableaux aussi ;) ...

24/10/2005, 20h06
HPJ

Re: Pb sur la key d'une collection
Citation:
Envoyé par niro75

Bonjour,

Je debute en VB et je voudrais créer une collection avec comme key, la ligne de mon fichier excel.

Alors pour le moemnt je fais :

Code:

1 2 3 key = Cells(Ligne, PARAMETERNAMECOLUMN).Row ... paramValues.Add Item:=valeur, key:=key

Mais, il n'en veux pas, comment faire?

Merci, de votre aide.
C'est normal qu'il n'en veuille pas...
Cells.Rows est un entier.
Si la clé d'un élément d'une collection était un entier tu ne pourrais pas l'utiliser car maCollection(3) aurait un double sens: est-ce le troisième élement de ta collection ou bien l'élément qui a la valeur 3 pour clé ?
C'est pour ça que la clé d'un élément d'une collection doit commencer par une lettre pour lever l'ambiguité entre index et clé.