Creation de tableaux dynamiquement VBA

Le
PST
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #4812561
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
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


PST
Le #4812421
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
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






Publicité
Poster une réponse
Anonyme