petit tableau

Salut Laurent,
Où se trouve ces 20 numéros ?
- dans une cellule ? séparés par un espace ? une virgule ? .... ?
- dans plusieures cellules ?
Quand on saura cela, on pourra t'aider.
--
Amicalement

Jean-François Aubert
{Vaudois de la Côte Lémanique}


"laurent" <spamprtech@free.fr> a écrit dans le message de
news:eNrsn0ISDHA.2316@tk2msftngp13.phx.gbl...

bonjour

J'ai plusieurs suites de 20 numéros chacunes.
Je cherche le moyen de les placer chacune dans un tableau de facon
automatique ,en respectant l'order suivant.
le 1er numero en A1 le 2em en A2. le 3em en A3... le 6em en B1 le 7em en
B2.... le 11em en C1...12em en C2 le 16em en D1...
le 20em en D5 ce qui fait un tableau de 5 colonnes et 4 lignes.

merci pour votre aide

laurent

bonjour

J'ai plusieurs suites de 20 numéros chacunes.
Je cherche le moyen de les placer chacune dans un tableau de facon
automatique ,en respectant l'order suivant.
le 1er numero en A1 le 2em en A2. le 3em en A3... le 6em en B1 le 7em en
B2.... le 11em en C1...12em en C2 le 16em en D1...
le 20em en D5 ce qui fait un tableau de 5 colonnes et 4 lignes.

merci pour votre aide

laurent

Bonsoir,

Vois du cote de rang(...) et index(...;equiv(...);..)

@+
FxM

1/ Une liste de 20 valeurs en feuil7, de A1 à A20
2/ Une feuil8 vierge

Procédure dans un module standard :

Sub CopieListeDansTableau()

Dim TabA(5) As Long
Dim TabB(5) As Long
Dim TabC(5) As Long
Dim TabD(5) As Long

Dim cA As Range
Dim cB As Range
Dim cC As Range
Dim cD As Range

Dim i As Byte

ThisWorkbook.Worksheets("Feuil7").Activate
For i = 1 To 5
Range("A1").Select
TabA(i) = ActiveCell.Offset(i - 1, 0)
TabB(i) = ActiveCell.Offset(i - 1 + 5, 0)
TabC(i) = ActiveCell.Offset(i - 1 + 10, 0)
TabD(i) = ActiveCell.Offset(i - 1 + 15, 0)
Next i
'Contrôle du fonctionnement des tables
'For i = 1 To 5
'MsgBox (TabA(i) & vbCr & TabB(i) & vbCr & TabC
(i) & vbCr & TabD(i))
'Next i
ThisWorkbook.Worksheets("Feuil8").Activate
For i = 1 To 5
For Each cA In Range("A" & i & ":" & "A" & i)
Range("A" & i) = TabA(i)
Next cA
For Each cB In Range("B" & i & ":" & "B" & i)
Range("B" & i) = TabB(i)
Next cB
For Each cC In Range("C" & i & ":" & "C" & i)
Range("C" & i) = TabC(i)
Next cC
For Each cD In Range("D" & i & ":" & "D" & i)
Range("D" & i) = TabD(i)
Next cD
Next i
End Sub

Tu adaptes.

André

le 1er numero en A1 le 2em en A2. le 3em en A3... le 6em en B1 le 7em en
B2.... le 11em en C1...12em en C2 le 16em en D1...
le 20em en D5 ce qui fait un tableau de 5 colonnes et 4 lignes.

Heu... ne serait-ce point 4 colonnes/5 lignes ??

Sub zzzz()
[B1:B5] = [A6:A10].Value: [C1:C5] = [A11:A15].Value: [D1:D5] = [A16:A20].Value
[A6:A20] = ""
End Sub

AV

Merci à vous tous

Effectivement j'ai oublie la colonne E dans mon message pour avoir 5
colonnes ( oups )
et je me suis planté dans la pose de mon probléme.
le 1er numero en A1 le 2eme en B1 le 3eme C1 le 4eme en D1 le 5eme en C1 et
le 6eme en A2
désolé , peut-etre la chaleur ...

LAURENT

"AV" <alain.vallon@wanadoo.fr> a écrit dans le message de
news:ui0ZizOSDHA.3192@tk2msftngp13.phx.gbl...

le 1er numero en A1 le 2em en A2. le 3em en A3... le 6em en B1 le 7em
en

B2.... le 11em en C1...12em en C2 le 16em en D1...
le 20em en D5 ce qui fait un tableau de 5 colonnes et 4 lignes.

Heu... ne serait-ce point 4 colonnes/5 lignes ??

Sub zzzz()
[B1:B5] = [A6:A10].Value: [C1:C5] = [A11:A15].Value: [D1:D5] [A16:A20].Value
[A6:A20] = ""
End Sub

AV