Discussion :

[Hoareau]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Public lig As Integer
Public Col As Integer

>>>>1 ère macro

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[alsimbad]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ouskel'n'or]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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