Récupérer les valeurs d'un tableau à 2 dimensions

**SpaceX** · 26/03/2018, 08h58

Bonjour,

Je cherche un moyen de récupérer les valeurs contenant la variable "X" pour les coller par la suite, sur une feuille Excel à part.

Cependant, ma variable est un tableau à deux dimensions : X = Single(1 to 201, 1 To 3), j'aimerai par exemple récupérer toutes les lignes (soit 201 lignes) de la 1ère colonne.

J'ai testé de cette manière la, mais ça ne fonctionne pas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
NBR_POINTS = 201
 
Sheets("Feuil3").Range("A1").Resize(UBound(X(NBR_POINTS, 1))) = Application.Transpose(X(NBR_POINTS, 1))

Il me renvois sur une erreur de type tableau.

Avez vous des idées svp ? Merci d'avance.

**Marc-L** · 26/03/2018, 09h06

Bonjour,

via la fonction de feuille de calculs INDEX, en VBA c'est Application.Index …

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Nigeria, New-York, Mogadicio, Barcelone, London, Manchester, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

**SpaceX** · 26/03/2018, 09h19

Salut,

Même problème, erreur : tableau attendu.

Petite question, je rempli ma variable grâce à deux boucle for, dois-je mettre cette instruction dans ma boucle ou à l'extérieur ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("Feuil3").Range("A1").Resize(UBound(R_total_dB(NBR_POINTS, 1))) = Application.Index(R_total_dB(NBR_POINTS, 1))

**Marc-L** · 26/03/2018, 09h22

Là tu as codé INDEX pour une ligne au lieu d'une colonne (cf aide Excel) …

**patricktoulon** · 26/03/2018, 10h18

bonjour
c'est quoi cette syntaxe ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Resize(UBound(X(NBR_POINTS, 1)))

pour resize il y a 2 arguments lignes /colonnes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Resize(UBound(NBR_POINTS), 1))

re autant pour moi je devais avoir la tete dans le ... ce matin
c'est encore plus simple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Resize(NBR_POINTS, 1))

et pour transferer la colonne 1 du tableau dans ce resize utiliser application.index

**Marc-L** · 26/03/2018, 10h45

Salut Patrick !

Le second paramètre de Resize étant optionnel …

**Pierre Fauconnier** · 26/03/2018, 10h38

Salut.

Tu peux utiliser ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("a1").Resize(UBound(tableau, 1), 1) = tableau

Comme tu dimensionnes ta plage sur une seule colonne, tu obtiendras en A la première colonne du tableau.

Toutefois, il est plus "propre" d'écrire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("a1").Resize(UBound(tableau, 1), 1) = Application.Index(tableau, , 1)

**SpaceX** · 26/03/2018, 12h02

Envoyé par Pierre Fauconnier

Salut.

Tu peux utiliser ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("a1").Resize(UBound(tableau, 1), 1) = tableau

Comme tu dimensionnes ta plage sur une seule colonne, tu obtiendras en A la première colonne du tableau.

Toutefois, il est plus "propre" d'écrire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("a1").Resize(UBound(tableau, 1), 1) = Application.Index(tableau, , 1)

Salut,

J'ai toujours un message d'erreur : l'indice n'appartient pas à la sélection.

Cette ligne d'instruction je dois la mettre dans ma boucle for (la ou je remplis mon tableau en VBA) ou à l'extérieur ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("Feuil3").Range("A1").Resize(UBound(X, 1), 1) = Application.Index(X, , 1)

Sachant que ma variable X fait 201 lignes et 1 colonne

**Pierre Fauconnier** · 26/03/2018, 12h15

Salut

Envoyé par SpaceX

[...]
Cependant, ma variable est un tableau à deux dimensions : X = Single(1 to 201, 1 To 3)[...]

Envoyé par SpaceX

[...]
Sachant que ma variable X fait 201 lignes et 1 colonne

Finalement, elle fait combien de colonnes, ta variable, et comment ton tableau est-il déclaré?

Si elle n'a qu'une dimension (1 to 201), tu peux utiliser:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("a1").Resize(UBound(tableau, 1), 1) = Application.Transpose(tableau)

Et si elle a deux dimensions, même avec une seule colonne dans la deuxième dimension (1 to 201, 1 to 1), tu dois utiliser un des codes donnés dans mon précédent message (de préférence le second, plus explicite de ce que tu souhaites réaliser).

**SpaceX** · 26/03/2018, 13h56

Salut,

Ah oui pardon j'ai oublié de préciser !

Ma variable est déclaré de la manière suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ReDim X(1 To 201, 1 To 3) As Single

Elle dispose de 3 colonnes, mais celle qui m'intéresse est la colonne 1.

**Pierre Fauconnier** · 26/03/2018, 13h59

Je t'ai déjà donné le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("a1").Resize(UBound(tableau, 1), 1) = Application.Index(tableau, , 1)

Il n'y a pas de boucle à utiliser. Cette ligne crée une plage qui commence en A1 et elle contient le nombre de lignes contenues dans le tableau. Si tu as 201 lignes, elles sont transférées en A1:A201 d'un seul coup.

**SpaceX** · 26/03/2018, 14h05

Envoyé par Pierre Fauconnier

Je t'ai déjà donné le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("a1").Resize(UBound(tableau, 1), 1) = Application.Index(tableau, , 1)

Il n'y a pas de boucle à utiliser. Cette ligne crée une plage qui commence en A1 et elle contient le nombre de lignes contenues dans le tableau. Si tu as 201 lignes, elles sont transférées en A1:A201 d'un seul coup.

D'accord, mais j'ai toujours un message d'erreur : L'indice n'appartient pas à la sélection