Sub appelle Sub recup valeur

Bonjour

J'ai deux macros, Sub macro_Combs() appelle Combin_6N()


Dans macro_Combs je dois récupérer les valeurs de la ligne en cours 500 step 28 pour les
mettre dans vN(J) tableau de 10 élements.

la ligne en cours peut aller de 4 a 10 chiffres

si je fais vN(J) = Sheets("feuil3").Cells(J).Value fonctionne pour 500 step 28
mais avec les même renseignements de la ligne 1 de feuil3


si je fais vN(j)=cells(lig,col).value cela ne fonctionne pas

merci

Code:

---

1 2	Public lig As Integer Public Col As Integer

---

>>>>1 ère macro

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub macro_Combs()   For Lig = 1 To 100 Step 28 For Col = 1 To 1     Next   Cells(Lig, 17).Select Call Combin_6N   Next End Sub

---

>>> 2 ème macro

Code:

---

1 2 3 4 5 6 7

Sub Combin_6N() For J = 1 To 8   vN(J) = Sheets("feuil3").Cells(J).Value   Next End sub

---

Franchement, c'est assez déroutant ton code. je dirais même qu'il ne rime a rien, mais bon, il a le mérite d'exister. je te donne ce code pour récuperer les cellulles d'une ligne. je l'ai fait pour 4 cellule, tu n'a qu'as l'adapter pour 10

Code:

---

1 2 3 4 5 6 7

Sub macro_Combs() For lig = 1 To 100 Step 28 'ici, c'est bizarre ce step 28 ne va guere avec le chiffre 100 i = 1 vn(i) = Array(Cells(lig, 1), Cells(lig, 2), Cells(lig, 3), Cells(lig, 4)) i = i + 1 Next lig End Sub

---

Comme dit alsimblad, c'est assez déroutant et je suis même surpris que "quelque chose" fonctionne
Une autre proposition d'un gugus qui a compris aut'chose...

Code:

---

1 2 3 4 5 6 7

Sub macro_Combs() For NoLig = 1 To 100 Step 28 For NoCol = ColDebut To DerniereCol 'step cétoikivois vN(j)=Cells(NoLig, NoCol).value Next Next End Sub

---

Sans filet et donc sans garantie

A propos d'une sub qui renvoie une valeur, c'est une fonction. L'aide en ligne t'en dira plus ;)