Tableau duynamique redim

Le
PST
Bonjour

J'ai deux tableaux :

MyArray_1 (1 to 1,1 to 6)>> 1 ligne, 6 colonnes

MyArray_2 Dynamique

Je voudrais chaque fois la condition est réussie, ajouter 1 ligne et 6=

colonnes
et y placer Myarray_1 la suite .

Sans aure boucle si possible

Sélectioner FEUIL_TEST et y placer Myarray_2, à partir de A1


Merci




Sub Test_rediml_2()


Dim MyArray_2()


MyArray_1 = Array(1, 2, 3, 4, 5, 6)



compteur = 0

For i = 1 To 100


If i >= 10 Then

compteur = compteur + 1


ReDim Preserve MyArray_2(1 To 6, 1 To compteur)

MyArray_2 = MyArray_1

End If

Next

Sheets("FEUIL_TEST").Select

[A1:F & compteur].Value = MyArray_2

End Sub
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 #4799251
Bonjour,

On ne peut redimensionner que la dernière dimension.

http://boisgontierjacques.free.fr/pages_site/tableaux.htm#Redimentionnement

JB
http://boisgontierjacques.free.fr/

On 26 août, 21:10, PST
Bonjour

J'ai deux tableaux :

MyArray_1 (1 to 1,1 to 6)>> 1 ligne, 6 colonnes

MyArray_2 Dynamique

Je voudrais chaque fois la condition est réussie, ajouter 1 ligne et 6
colonnes
et y placer Myarray_1 la suite .

Sans aure boucle si possible

Sélectioner FEUIL_TEST et y placer Myarray_2, à partir de A1

Merci

Sub Test_rediml_2()

Dim MyArray_2()

MyArray_1 = Array(1, 2, 3, 4, 5, 6)

compteur = 0

For i = 1 To 100

If i >= 10 Then

compteur = compteur + 1

ReDim Preserve MyArray_2(1 To 6, 1 To compteur)

MyArray_2 = MyArray_1

End If

Next

Sheets("FEUIL_TEST").Select

[A1:F & compteur].Value = MyArray_2

End Sub


Publicité
Poster une réponse
Anonyme