Numeroteration de variable

[Seb]

Bonjours le forum,

Je cherche à numéroter une variable, je m'explique:
J'ai 8 variables nommées: Annee1, Annee2 ......... Annee8
Me.Controls("Textbox" & Lap).Caption renvois 2014 ou 2015 ainsi de suite et j'aimerais une macro de ce type mais j'arrive pas a la mettre en forme:


For Lap = 1 To 8
If Me.Controls("Checkbox" & Lap) = True Then
Annee & Lap = Me.Controls("Textbox" & Lap).Caption
End If

Next

merci beaucoup !
Seb

 

[youky(BJ)]

Re : Numeroteration de variable

Bonsoir Seb,
Il faut créé un tableau

Dim annee(8)
For Lap = 1 To 8
If Me.Controls("Checkbox" & Lap) = True Then
annee(Lap) = Me.Controls("Textbox" & Lap).Caption
End If
'exemple pour lire la variable
MsgBox annee(2)

Bruno

 

[Seb]

Re : Numeroteration de variable

Bonjour Youky,

Désolé pour la réponse tardive, j'ai du partir quelques jours. Merci beaucoup pour ta réponse j'ai pu l’adapter dans mon tableau ! c'est impeccable !