Si votre email correspond à un compte, vous recevrez un lien de réinitialisation.
BonjourDiviser tableau en plusieurs tableauxSoit un tableau de 10 sur 10A1:J10Je voudrais que :la ligne A1:A10 devienne le tableau W_1la ligne b1:b10 devienne le tableau W_2la ligne c1:c10 devienne le tableau W_3etc pour toutes les lignesJ'ai essayé de faire mais ...Sub Divise_Tab()Dim Myarray(1 To 10, 1 To 10)For Lig = 1 To 10For Col = 1 To 10Myarray(Lig, Col).Value = Sheets("Feuil2").Cells(Lig, Col).ValueNextNextEnd Submerci
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
Bonjour,w1 = [A1:A10] ' tableau 10x1w2 = [B1:B10]w3 = [C1:C10]x = w1(4, 1)myarray = [A1:J10] ' tableau 10x10y = myarray(4, 2)c = Application.Index(myarray, , 2) ' 2e colonne de myarray ->tableau cz = c(5, 1)JBOn 3 août, 08:36, PST wrote:BonjourDiviser tableau en plusieurs tableauxSoit un tableau de 10 sur 10A1:J10Je voudrais que :la ligne A1:A10 devienne le tableau W_1la ligne b1:b10 devienne le tableau W_2la ligne c1:c10 devienne le tableau W_3etc pour toutes les lignesJ'ai essayé de faire mais ...Sub Divise_Tab()Dim Myarray(1 To 10, 1 To 10)For Lig = 1 To 10For Col = 1 To 10Myarray(Lig, Col).Value = Sheets("Feuil2").Cells(Lig, Col).ValueNextNextEnd Submerci
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 <pgjigno...@wanadoo.fr> 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