Variable constantes...et inversement

[CHS]

Bonjour le forum,
Dans le code ci-dessous je voudrais que, dans la boucle, la variable F_COURANTE prenne pour valeur "Extract_Ventes" et pas "F1"....puis "EXTRACT_MB" et pas "F2"...

Sub Retreive_tout()
Dim i, nb_feuilles As Integer
Dim F_COURANTE As Variant
Const F1 = "EXTRACT_Ventes"
Const F2 = "EXTRACT_MB"
Const nb_feuilles = 2

For i = 1 To nb_feuilles
F_COURANTE = "F" & i
Next
End Sub


Merci d'avance pour votre aide !!

 

[Jean-Marie]

Bonjour CHS

Je ne pense que se soit possible, tu devrais passer par un ARRAY.

Sub Retreive_tout()
Dim i, nb_feuilles As Integer
Dim F_COURANTE As String
Dim FNomsheet
'Const nb_feuilles = 2 est déjà déclaré comme integer impossible de le mettre en constante

nb_feuilles = 2

FNomsheet = Array("EXTRACT_Ventes", "EXTRACT_MB")

For i = 0 To nb_feuilles - 1 'Un tableau commence à l'index 0 (en principe
F_COURANTE = FNomsheet(i)
MsgBox F_COURANTE
Next
End Sub

@+Jean-Marie