Indicer une variable

[allegro50]

Bonsoir le forum

C'est sans doute tout simple mais je bute sur les 2 lignes de code ci dessous

For x = k - M To 0 Step -1
Set colT x = Cells(1, k - x).EntireColumn
Prix_AddT(x) = Intersect(colT(x), line2)
Next x

Le jeu consistant à stocker dans les variables Prix_AddT1, Prix_AddT2,...Tn la valeur à l'intersection de ligne 2 et colonne x.

Question :comment dois je ecrire ColTx , Prix_AddTx pour ce faire ?

Merci

 

[Catrice]

Re : Indicer une variable

Bonsoir,

Ci joint une simulation de ce que tu souhaites faire.

 

[allegro50]

Re : Indicer une variable

bonsoir le forum

Merci Catrice,
tu m'as fait avancer d'un grand pas..Mais comment remplacer les Msgbox , par des valeurs recuperables a la sortie de la boucle ?

A plus

 

[Catrice]

Re : Indicer une variable

Bonsoir,

MaVar= Prix(x)

 

[allegro50]

Re : Indicer une variable

Catrice

OK mais j'ai besoin de sommer les x Prix(x) or dans la boucle MaVar va prendre successivement la valeur P1, remplacee par la valeur P2, remplacee par P3 alors que je voudrais faire P1+P2+P3+Pn

 

[Catrice]

Re : Indicer une variable

Tu ne m'as par tout dit ;-) ...

Une solution dans le fichier joint.

Sub test1()
k = 5
M = 1
ReDim Prix(k - M)
For x = k - M To 0 Step -1
Prix(x) = Intersect(Columns(x + 1), Rows(2))
MaSomme = MaSomme + Prix(x)
Next
MsgBox MaSomme
End Sub

 

[allegro50]

Re : Indicer une variable

Re ,

Quelle tache je suis !!!!
Quand je le vois c'est tellement evident !
merci de m'avoir supporte - au deux sens du terme-

A plus - si ca coince plus loin....
Bonne soiree