Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Tableau duynamique redim

Tableau duynamique redim

1 réponse
Avatar
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=E9ussie, ajouter 1 ligne et 6=
=20
colonnes
et y placer Myarray_1 la suite .

Sans aure boucle si possible

S=E9lectioner FEUIL_TEST et y placer Myarray_2, =E0 partir de A1


Merci




Sub Test_rediml_2()


Dim MyArray_2()


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



compteur =3D 0

For i =3D 1 To 100


If i >=3D 10 Then

compteur =3D compteur + 1


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

MyArray_2 =3D MyArray_1

End If

Next

Sheets("FEUIL_TEST").Select

[A1:F & compteur].Value =3D MyArray_2

End Sub
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
JB
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 wrote:
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