VBA Optimisation de code, Select Case et requete SQL

Version imprimable

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:

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

Hello,

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

Code:

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

et ensuite un code dans ce genre là

Code:

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

06/05/2008, 17h47
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 :)
06/05/2008, 18h30
cafeine
Il suffit que tu aies une table :
Code:

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

puis

Code:

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

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

Code:

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...)

Eh bien moi je ferais comme ca

Code:

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

Oui !
;)

Citation:

Envoyé par Secco

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

Code:

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

06/05/2008, 21h05
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)