Diviser tableau en plusieurs tableaux

Le
PST
Bonjour

Diviser tableau en plusieurs tableaux

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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #4639271
Bonjour,

w1 = [A1:A10] ' tableau 10x1
w2 = [B1:B10]
w3 = [C1:C10]
x = w1(4, 1)


myarray = [A1:J10] ' tableau 10x10
y = myarray(4, 2)
c = Application.Index(myarray, , 2) ' 2e colonne de myarray ->
tableau c
z = c(5, 1)

JB

On 3 août, 08:36, PST
Bonjour

Diviser tableau en plusieurs tableaux

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


PST
Le #4639121
J'ai mis a1:J10 comme référence,pour me servir d'exemple, mais le
tableau peut faire plus de 200 lignes et est variable en lignes.

c'est pour cela que cherche une boucle qui, ligne par ligne me met W_&
N° ligne = N° tableau

Le systeme d'indexe, pas compris

Bonjour,

w1 = [A1:A10] ' tableau 10x1
w2 = [B1:B10]
w3 = [C1:C10]
x = w1(4, 1)


myarray = [A1:J10] ' tableau 10x10
y = myarray(4, 2)
c = Application.Index(myarray, , 2) ' 2e colonne de myarray ->
tableau c
z = c(5, 1)

JB

On 3 août, 08:36, PST
Bonjour

Diviser tableau en plusieurs tableaux

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






Publicité
Poster une réponse
Anonyme