Discussion :

[Mors_Ubyte]

Bonjour et Bonne année!!

Je vous contacte car je souhaiterais faire une boucle ou j'incrémenterais le NOM de la variable

Voici une partie de mon code actuel : (rst=Recorset; toute les variables CPT_E_ ont été déclarées

Code :

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

1
2
3
4
5
6
7
8
9
 
            CPT_E_4 = rst.Fields("N°_Protection").Value
            rst.MoveNext
 
            CPT_E_5 = rst.Fields("N°_Protection").Value
            rst.MoveNext
 
            CPT_E_6 = rst.Fields("N°_Protection").Value
            rst.MoveNext

Mais je souhaiterais faire une seule ligne de code et non X ligne.
style :

Code :

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

1
2
3
4
5
For counter = 1 To 99
XX=XX + 1            
CPT_E_XX = rst.Fields("N°_Protection").Value
rst.MoveNext
Next counter

Merci d'avance

PS : je suis ouvert à toutes autres solutions.

[Maxence HUBICHE]

tu ne peux pas incrémenter le NOM d'une variable.
Par contre, tu peux faire une variable tableau

Code :

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

1
2
3
4
5
6
Dim MyVar(99) as string
Dim i as Long
 
For i = 0 to 99
    MyVar(i)="ayé !"
Next