Nom variable dans une boucle FOR

[Eric Dé]

Bonjour à tous,

J'ai nommé 5 cellules CRITERE_1 à CRITERE_5

Je souhaiterais récupérer les valeurs de ces cellules dans des variables nommées CRI_1 à CRI_5

J'ai donc tenté une boucle FOR pour éviter les répétitions mais je me trouve confronté à un problème de syntaxe (voir ci-dessous un extrait du code)

Auriez-vous un conseil pour débloquer la situation ?

Merci d'avance pour vos réponses.
Eric


Dim CRI_1 As String
Dim CRI_2 As String
Dim CRI_3 As String
Dim CRI_4 As String
Dim CRI_5 As String

For i = 1 To 5
Range("CRITERE_" & i).Select <= cette ligne fonctionne bien 🙂
CRI_& i = ActiveCell.Value <= Pas celle-ci :-(
Next

 

[Pierrot93]

Re : Nom variable dans une boucle FOR

Bonjour,

utilise un tableau...

Dim CRI(1 To 5) As String, i As Integer
For i = 1 To 5
CRI(i) = ActiveCell.Value
Next

bonne journée
@+

 

[Eric Dé]

Re : Nom variable dans une boucle FOR

Merci Pierrot93 pour ta réponse.

J'ai placé un espion sur les valeurs de CRI_1 à CRI_5 mais ces valeurs ne bougent pas.

Ces valeurs ne sont-elles pas mémorisées du fait de la boucle FOR ?

Mon but étant de les rappeler plus loin dans le code.

Merci,
Eric

 

[Pierrot93]

Re : Nom variable dans une boucle FOR

Re,

J'ai placé un espion sur les valeurs de CRI_1 à CRI_5 mais ces valeurs ne bougent pas.

normal si tu ne prends en compte que la cellule active...

CRI(i) = ActiveCell.Value

 

[Eric Dé]

Re : Nom variable dans une boucle FOR

Comment les mémoriser dans ce cas de figure ?

Eric

 

[Pierrot93]

Re : Nom variable dans une boucle FOR

Re,

peut être comme ceci :

Dim CRI(1 To 5) As String, i As Integer
 For i = 1 To 5
 CRI(i) = Range("CRITERE_" & i)
Next

sans plus de détails, difficile d'en dire plus....

 

[Eric Dé]

Re : Nom variable dans une boucle FOR

En résumé, mon but était de réduire ceci :

Range("CRITERE_1").Select
CRI_1 = ActiveCell.Value

Range("CRITERE_2").Select
CRI_2 = ActiveCell.Value

Range("CRITERE_3").Select
CRI_3 = ActiveCell.Value

Range("CRITERE_4").Select
CRI_4 = ActiveCell.Value

Range("CRITERE_5").Select
CRI_5 = ActiveCell.Value


Dans ce cas de figure les valeurs CRI_1 à CRI_5 sont mémorisées et je peux les rappeler à tout moment.

Merci,
Eric

 

[Pierrot93]

Re : Nom variable dans une boucle FOR

Re,

bah... c'est ce que fait le code proposé post #6, ou alors quelque chose que je n'ais pas compris... fort possible...

bon après midi
@+

 

[Eric Dé]

Re : Nom variable dans une boucle FOR

Re,

Je pense que tu as tout compris, bien au contraire 🙂

En fait, pour faire référence aux valeurs CRI_1 à CRI_5 mises en mémoire, je dois les appeler en écrivant CRI_(1) à CRI_(5) avec entre parenthèses le chiffre correspondant !!!

Cette fois, mon programme fonctionne !

Merci pour ta patience...

Bon après-midi.
Eric