Diviser tableau en plusieurs tableaux

[Hoareau]

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

 

[JeanMarie]

Re : Diviser tableau en plusieurs tableaux

Bonjour

Regarde dans la page le kikidezon, dans le rubrique Les Tableaux MultiDimensionnels, voici le lien
Lien supprimé[/URL]

PS : Il se peut que tu aies un message d'erreur, dans ce cas reclique sur le lien

@+Jean-Marie

 

[Excel_lent]

Re : Diviser tableau en plusieurs tableaux

Bonjour à tous,

Regarde si cela t'inspire.
(J'avais déjà recherché ton pb précédent mais tu avais une soltution).

@+

 

[Hoareau]

Re : Diviser tableau en plusieurs tableaux

Merci pour le fichier, je vais voir si ta solution ou celle que je cherche a utiliser est la meilleure, pour afficher le nombre de différents

maro complémentaire de Longre
=COUNTDIFF(Array,Blanks,Exclude)