Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Diviser tableau en plusieurs tableaux

Diviser tableau en plusieurs tableaux

2 réponses
Avatar
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=E9 de faire mais ...


Sub Divise_Tab()

Dim Myarray(1 To 10, 1 To 10)

For Lig =3D 1 To 10
For Col =3D 1 To 10

Myarray(Lig, Col).Value =3D Sheets("Feuil2").Cells(Lig, Col).Value

Next

Next

End Sub


merci
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
JB
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 wrote:
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


Avatar
PST
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 wrote:
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