Bonjour
Soit un tableau de 10 sur 10
A1:J10
Je voudrais que :
la ligne A1:A10 devienne le tableau W_1
la ligne b1:b10 devienne le tableau W_2
la ligne c1:c10 devienne le tableau W_3
etc pour toutes les lignes
J'ai essayé de faire mais ...
Sub Divise_Tab()
Dim Myarray(1 To 10, 1 To 10)
For Lig = 1 To 10
For Col = 1 To 10
Myarray(Lig, Col).Value = Sheets("Feuil2").Cells(Lig, Col).Value
Next
Next
End Sub
merci
Soit un tableau de 10 sur 10
A1:J10
Je voudrais que :
la ligne A1:A10 devienne le tableau W_1
la ligne b1:b10 devienne le tableau W_2
la ligne c1:c10 devienne le tableau W_3
etc pour toutes les lignes
J'ai essayé de faire mais ...
Sub Divise_Tab()
Dim Myarray(1 To 10, 1 To 10)
For Lig = 1 To 10
For Col = 1 To 10
Myarray(Lig, Col).Value = Sheets("Feuil2").Cells(Lig, Col).Value
Next
Next
End Sub
merci