Recover value of active row

[Hoareau]

hello

I would like to recover the values of the active row( lig, col) with a loop to put them in an Array Array_1()

Public Lig as long
Public Col as long

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

 

[ninbihan]

Re : Recover value of active row

Hello Hoareau,

I don't understand your message, what do you want ?
Do you want to put all values from cells A1,A29,A57,A85 in an array ?

Sorry for my poor english,

Regards

 

[Hoareau]

Re : Recover value of active row

je voudrais recuper les valeurs lig et col de la ligne active et les mettre dans un tableau Array_1()

merci

 

[ninbihan]

Re : Recover value of active row

Re,

Voila un petit exemple:

Sub test()
Dim tablo As Variant

tablo = Array(ActiveCell.Row, ActiveCell.Column)
MsgBox (tablo(0)) 'Affiche la ligne de la cellule active
MsgBox (tablo(1)) 'affiche la colonne dela cellule active

End Sub

Dis moi si cela peut t'aider...

@+

Ninb