Variable, dénomination & rappel de variable Fermé

Question

Bonjour, 

    Je cherche une solution (qui doit surement être toute simple) au problème suivant:

J'ai plusieurs variables qui sont dissociées par un chiffre:
Co1D, Co2D, Co3D...

Je souhaite utiliser mes variables comme limites dans une boucle for en allant par exemple de Co1D à Co3D.
Sauf que je souhaite mettre comme donnée d'entrée dans mon tableau seulement les chiffres 1 et 3. Mettons en A1 et A2

J'ai tenté ça:
Co1D=123
Co2D=124
Co3D=300
Debut=cells(1,1).value
Fin=cells(2,1).value
A="Co"& Debut&"D"
B="Co"&Fin&"D"

For i=A to B
...

Le problème, c'est que A et B sont des variables texte. Je ne sais pas comment faire pour que " "Co"& Debut&"D" " corresponde à ma variable!

Merci par avance de votre aide!

Configuration: Windows 7 / Firefox 13.0.1

f894009 · Answer

Bonjour,

Marche pas comme ca. Utilisez un tableau: 

ex:

Option Base 1   'tout en haut de la fenetre

Sub test()    Dim CoD(3) 'tableau de 1 a 3        CoD(1) = 123    CoD(2) = 124    CoD(3) = 300    A = CoD(Cells(1, 1).Value)    B = CoD(Cells(2, 1).Value)    For i = A To B    Next iEnd Sub

pijaku · Answer

Bonjour,

Une variante à la proposition de f894009 (salutations au passage), est de passer par une Ch'tite fonction :

Option ExplicitDim Arret As BooleanSub test()Dim Debut As Integer, Fin As Integer, i As Long, Pas As IntegerArret = TrueDebut = Boucle(Cells(1, 1).Value)Fin = Boucle(Cells(2, 1).Value)Pas = 1If Arret = False Then MsgBox "Au moins une des deux valeurs de boucle est invalide": Exit SubIf Fin < Debut Then Pas = -Pas 'permet de boucler de 300 à 124 par exemple (Step -1)For i = Debut To Fin Step Pas    'Debug.Print i    ' Bla blaNext iEnd SubFunction Boucle(Valeur As Integer)Select Case Valeur    Case 1        Boucle = 123    Case 2        Boucle = 125    Case 3        Boucle = 130    Case 4        Boucle = 135    'etc    Case Else        Arret = FalseEnd SelectEnd Function

Variable, dénomination & rappel de variable

2 réponses

Discussions similaires