Discussion :

[Secco]

Bonjour à tous,

j'ai un petit souci, enfin, mon code marche très bien, mais il fait vraiment beaucoup de lignes et ça devient difficile de m'y retrouver...

J'ai beaucoup de lignes, notamment à cause de ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
Select Case rstNom.Fields("classification")
    Case Is = "Actions américaines"
        TabClassNom(0, TailleClasse(0)) = nom
        TabClass(0, TailleClasse(0)) = code
        TabClassVar(0, TailleClasse(0)) = variation
        TabClassBIS(0, TailleClasse(0)) = "Actions américaines"
        TailleClasse(0) = TailleClasse(0) + 1
    Case Is = "Actions européennes"
        TabClassNom(1, TailleClasse(1)) = nom
        TabClass(1, TailleClasse(1)) = code
        TabClassVar(1, TailleClasse(1)) = variation
        TabClassBIS(1, TailleClasse(1)) = "Actions européennes"
        TailleClasse(1) = TailleClasse(1) + 1
    Case Is = "Actions françaises"
        TabClassNom(2, TailleClasse(2)) = nom
        TabClass(2, TailleClasse(2)) = code
        TabClassVar(2, TailleClasse(2)) = variation
        TabClassBIS(2, TailleClasse(2)) = "Actions françaises"
        TailleClasse(2) = TailleClasse(2) + 1
    Case Is = "Actions internationales"
....
 
End Select

Je voudrais savoir si vous aviez une petite astuce, car en fait "Actions françaises" et tout ça, ce sont les résultats de ma requete classification, et donc, j'ai 23 cases ! alors que comme vous le voyez après, je remplie quatres tableaux de la même manière, seulement avec des indices qui changent.

Donc si jamais vous avez une idée à me soumettre je suis preneuse, merci !

Secco

[cafeine]

Hello,

je verrais bien au pire une collection, au mieux une table ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
coll("Valeur machin")=1
coll("Valeur Truc")=2
...

et ensuite un code dans ce genre là

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
varIndex = coll(rstNom.Fields("classification"))
        TabClassNom(varIndex, TailleClasse(varIndex)) = nom
        TabClass(varIndex, TailleClasse(varIndex)) = code
        TabClassVar(varIndex, TailleClasse(varIndex)) = variation
        TabClassBIS(varIndex, TailleClasse(varIndex)) =  rstNom.Fields("classification")
        TailleClasse(varIndex) = TailleClasse(varIndex) + 1

[Secco]

Je ne comprends pas très bien le système de collection que tu montres, aurais tu quelques part un peu d'information sur ça ?

Aujourd'hui je viens de voir que ma liste va s'agrandir à 38 ! Donc, je vais vraiment d'urgences chercher une solution ce soir... Si y'a d'autres propositions

[cafeine]

Il suffit que tu aies une table :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Type                Code
Actions américaines 1
Actions françaises 2

etc...

puis

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

VarIndex = DLookup("code","Table des codes","Type='" & rstNom.Fields("classification") & "'")

[Secco]

En fait VarIndex je le définie puis je ne fais plus de Select Case ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
VarIndex = DLookup("code","Table des codes","Type='" & rstNom.Fields("classification") & "'")
        TabClassNom(varIndex, TailleClasse(varIndex)) = nom
        TabClass(varIndex, TailleClasse(varIndex)) = code
        TabClassVar(varIndex, TailleClasse(varIndex)) = variation
        TabClassBIS(varIndex, TailleClasse(varIndex)) =  rstNom.Fields("classification")
        TailleClasse(varIndex) = TailleClasse(varIndex) + 1

(moi ? être un peu longue à comprendre ??? nan ! Je vois pas ce qui peut faire penser ça...)

[DMboup]

Eh bien moi je ferais comme ca

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Select Case rstNom.Fields("classification")
    Case Is = "Actions américaines"
        varIndex=0
 
    Case Is = "Actions européennes"
        varIndex=1
 
    Case Is = "Actions françaises"
        varIndex=2
 
    Case Is = "Actions internationales"
....
 
End Select
 
 TabClassNom(varIndex, TailleClasse(varIndex)) = nom
        TabClass(varIndex, TailleClasse(varIndex)) = code
        TabClassVar(varIndex, TailleClasse(varIndex)) = variation
        TabClassBIS(varIndex, TailleClasse(varIndex)) =  rstNom.Fields("classification")
        TailleClasse(varIndex) = TailleClasse(varIndex) + 1

[cafeine]

Oui !

En fait VarIndex je le définie puis je ne fais plus de Select Case ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
VarIndex = DLookup("code","Table des codes","Type='" & rstNom.Fields("classification") & "'")
        TabClassNom(varIndex, TailleClasse(varIndex)) = nom
        TabClass(varIndex, TailleClasse(varIndex)) = code
        TabClassVar(varIndex, TailleClasse(varIndex)) = variation
        TabClassBIS(varIndex, TailleClasse(varIndex)) =  rstNom.Fields("classification")
        TailleClasse(varIndex) = TailleClasse(varIndex) + 1

[Secco]

Bon, je n'ai pas ma base sous la main mais je test ça demain à la première heure, merci beaucoup ! (et surtout si ça marche :p)

Bonne soirée à tous,
(je repasse demain vous dire ce qu'il en est)