Creation de tableaux dynamiquement VBA

Bonsoir,

On ne peut pas créer de noms de variable indicés dynamiquement:
En revanche, on peut créer dynamiquement des noms indicés qui vont
contenir des valeurs.{2.3.4..}

Sub CreeNomsDynamiques()
For i = 1 To 4
ActiveWorkbook.Names.Add Name:= _
"tableau" & i, RefersToR1C1:=Range(Cells(i, 1), Cells(i,
255).End(xlToLeft)).Value
Next i
End Sub

Sub essai()
i = 2
x = "tableau" & i
a = Evaluate([x]) ' Tableau2 est transféré dans le tableau a()
MsgBox a(1)
End Sub

Transfert d'un champ dans un tableau à 2 dimensions a() puis
extraction d'une ligne dans un autre tableau b().

Sub essai2()
a = [A1:H10] ' tableau a() à 2 dimensions
i=2
b = Application.Index(a, i) ' 2eme ligne de a() dans tableau b()
à 1 dimension
MsgBox b(1)
End Sub

http://cjoint.com/?ieuPGnHy3e

JB

On 4 août, 19:42, PST <pgjigno...@wanadoo.fr> wrote:

Creation de tableaux dynamiquement VBA

------------------------------------------------------------------------- --­-----

Bonjour

Soit 100 lignes ou plus de longueur différentes
Que des chiffres

Chaque ligne et ses chiffres doit corespondre à un tableau créer
dynamiquement

Tableau_ & Numéro de la ligne

ex :

ligne 1 : 1 2 3 4 5>>Tableau_1(1,2,3,4,5)
ligne 2: 2 3 4 5 6 7 8 >>Tableau_2(1,2,3,4,5,6,7,8)

etc...

merci

Je vais essayer de suivre,très instructif

Dans le dernier mesage, je n'avais pas vu les liens

Certains onglets du FTP sont vides, est ce normal ou c'est mon
parametrage (Java désactivé)

merci pour les deux tableaux ,avec toutes les démos.

Bonsoir,

On ne peut pas créer de noms de variable indicés dynamiquement:
En revanche, on peut créer dynamiquement des noms indicés qui vont
contenir des valeurs.{2.3.4..}

Sub CreeNomsDynamiques()
For i = 1 To 4
ActiveWorkbook.Names.Add Name:= _
"tableau" & i, RefersToR1C1:=Range(Cells(i, 1), Cells(i,
255).End(xlToLeft)).Value
Next i
End Sub

Sub essai()
i = 2
x = "tableau" & i
a = Evaluate([x]) ' Tableau2 est transféré dans le tableau a()
MsgBox a(1)
End Sub

Transfert d'un champ dans un tableau à 2 dimensions a() puis
extraction d'une ligne dans un autre tableau b().

Sub essai2()
a = [A1:H10] ' tableau a() à 2 dimensions
i=2
b = Application.Index(a, i) ' 2eme ligne de a() dans tableau b( )
à 1 dimension
MsgBox b(1)
End Sub

http://cjoint.com/?ieuPGnHy3e

JB

On 4 août, 19:42, PST <pgjigno...@wanadoo.fr> wrote:

Creation de tableaux dynamiquement VBA

---------------------------------------------------------------------- -----­-----

Bonjour

Soit 100 lignes ou plus de longueur différentes
Que des chiffres

Chaque ligne et ses chiffres doit corespondre à un tableau créer
dynamiquement

Tableau_ & Numéro de la ligne

ex :

ligne 1 : 1 2 3 4 5>>Tableau_1(1,2,3,4,5)
ligne 2: 2 3 4 5 6 7 8 >>Tableau_2(1,2,3,4,5,6,7,8)

etc...

merci