variable et variant [Résolu]

[ericdev67]

Bonjour,

J'ai un code qui planifie des taches, je programme les taches : je fais des combinaisons :

Code :

1
2
3
4
5
6
dim x as variant
x = oSh.Range("A" & premiereligne & ":Ai" & derniereligne).Value
 
'mon code et calculs, puis je "récupère" l'ensemble des valeurs par 
 
oSh.Range("A" & premiereligne & ":Ai" & derniereligne).Value = x

en fait, je souhaite faire une boucle pour récupérer les différentes combinaisons, j'ai donc essayé

Code :

1
2
3
4
dim resu (1000)
for i = 1 to 1000
' je fais tourner mon code 
resu(i)=x

, mais ça ne fonctionne pas...j'ai essayé :

Code :

resu(i)=oSh.Range("A" & premiereligne & ":Ai" & derniereligne).Value

, fonctionne pas non plus....

Pourquoi ?

merci,
A+

[tedo01]

Bonjour,
C'est un peu flou... Qu'est-ce qui ne marche pas ? Quel résultat est attendu, et quel résultat est obtenu ?

[ericdev67]

Merci tedo01,

C'est un planning : j'ai des personnes avec des activités. mon code cherche et propose une combinaison entre les personnes et les activités à réaliser.

donc lorsque le code trouve la solution, grâce à

Code :

oSh.Range("A" & premiereligne & ":Ai" & derniereligne).Value = x

la combinaison trouvée s'affiche, j'aimerai l'historiser, d'où le "resu(i)".

En effet, j'essaye de voir plusieurs combinaisons : admettons je mets 1activité "Accueil" le lundi, j'historise le résultat, ensuite je mets 2 activités "Accueil" le lundi, j'historise le résultat, etc.....Naturellement pour ça, je mettrai une boucle en début et fin de mon code, mais mon souci majeur actuellement, c'est de récupérer les valeurs de mon "x"...

merci,
A+

[tedo01]

Re-bonjour,
C'est toujours difficile à comprendre...
Sous quelle forme le code fournit-il une combinaison personnes / activités ? On dirait un tableau, mais comment est-il alimenté ?
Qu'est-ce que tu appelles "historiser" ? Est-ce que c'est stocké quelque part ?

[ericdev67]

Merci tedo01,

Finalement, j'ai trouvé ma solution : je fais

Code :

1
2
3
4
5
6
7
for i=1 to 1000
for j=1 to 35
for k= 1 to derniereligne
a(i,j,k)=cells(k,j)
next
next
next

cela me permet d'historiser les solutions.

Merci, car tu m'as permis de me poser LA bonne question.

A+ pour de prochaines aventures