Instructions pour écriture d'un tableau en mémoire dans une Colonne.

D

david84

XLDnaute Barbatruc

• 17 Décembre 2015

• #2

Re : Instructions de copie de Tab mémoire dans une Colonne.

Bonjour,

Code:

[A2].Resize(UBound(mem1)) = mem1

A+

 

Vote positif 0 Vote négatif

néné06

XLDnaute Accro

• 17 Décembre 2015

• #3

Re : Instructions pour écriture de tableau en mémoire dans une Colonne.

Bonjour David,

J'ai placé ce code et entré nbval = 20, mais l'exécution de cette ligne ma écrit 20 fois la première valeur du tableau "mem1(1)", de la ligne 2 à 21 en colonne A?

Merci!

René

 

Dernière édition: 18 Décembre 2015

Vote positif 0 Vote négatif

néné06

XLDnaute Accro

• 17 Décembre 2015

• #4

Re : Instructions pour écriture d'un tableau en mémoire dans une Colonne.

re,

Si je place cette instruction, j'ai bien l'affichage correcte qui arrive, mais pas dans la colonne A2 ,mais sur la ligne 2, col A,B,C,D...etc...

Range(Cells(2, 1), Cells(2, UBound(mem1))) = mem1

Que modifier pour l'écriture en colonne A ?

A+

René

 

Dernière édition: 18 Décembre 2015

Vote positif 0 Vote négatif

D

david84

XLDnaute Barbatruc

• 17 Décembre 2015

• #5

Re : Instructions de copie d'un tableau en mémoire dans une Colonne.

Sans le code et un petit fichier exemple difficile de t'aider... non testé mais essaie en utilisant Application.Transpose.
soit

Code:

[A2].Resize(UBound(mem1)) = Application.Transpose(mem1)

soit

Code:

Range(Cells(2, 1), Cells(2, UBound(mem1))) = Application.Transpose(mem1)

A+

 

Vote positif 0 Vote négatif

néné06

XLDnaute Accro

• 17 Décembre 2015

• #6

Re : Instructions pour écriture d'un tableau en mémoire dans une Colonne.

Re,
Voici un petit fichier

Merci!

René

 

Pièces jointes

• Tab en colonne.xlsm

  19.8 KB · Affichages: 29

Dernière édition: 18 Décembre 2015

Vote positif 0 Vote négatif

D

david84

XLDnaute Barbatruc

• 17 Décembre 2015

• #7

Re : Instructions de copie d'un tableau en mémoire dans une Colonne.

Re

je reprends donc l'idée proposée dans mon 1er message :

Code:

Cells(2, 1).Resize(UBound(mem1)) = Application.Transpose(mem1)

Est-ce ce que tu attends ?
Avais-tu testé ma proposition ?
A+

 

Vote positif 0 Vote négatif

néné06

XLDnaute Accro

• 17 Décembre 2015

• #8

Re : Instructions pour écriture d'un tableau en mémoire dans une Colonne.

Re,
j'ai testé aussi la proposition

Cells(2, 1).Resize(UBound(mem1)) = Application.Transpose(mem1)
elle ne fonctionne, mais jusqu'a 65536.
A+

René

 

Dernière édition: 18 Décembre 2015

Vote positif 0 Vote négatif

néné06

XLDnaute Accro

• 17 Décembre 2015

• #9

Re : Instructions pour écriture d'un tableau en mémoire dans une Colonne.

Re,

Par contre avec un tableau à 2 dimensions , il n'y a pas de problème même jusqu'à un chiffre de 1 000 000.

Comment convertir ce tableau à 2 dimensions en une seule ?

A+

René

 

Pièces jointes

• Tableau en colonne A.xlsm

  20.3 KB · Affichages: 36
• Tableau en colonne A.xlsm

  20.3 KB · Affichages: 30

Dernière édition: 18 Décembre 2015

Vote positif 0 Vote négatif

D

david84

XLDnaute Barbatruc

• 18 Décembre 2015

• #10

Re : Instructions pour écriture d'un tableau en mémoire dans une Colonne.

Bonjour,

effectivement Transpose a ses limites. Le mieux est donc de charger les données dans un tableau à 2 dimensions. Ce tableau pourra être ensuite directement transféré dans la feuille de calcul.

Comment convertir ce tableau à 2 dimensions en une seule ?

Cliquez pour agrandir...

Quel en est l'intérêt ? Si le but est de transférer les données dans la feuille de calcul ce n'est pas la peine.
Ceci dit si tu y tiens vraiment repasse par une boucle (ce n'est pas cela qui augmentera le temps de calcul).

A+

 

Vote positif 0 Vote négatif

néné06

XLDnaute Accro

• 18 Décembre 2015

• #11

Re : Instructions pour écriture d'un tableau en mémoire dans une Colonne.

Re,

J'ai fais un test avec :
Range(Cells(2, 1), Cells(2, UBound(mem1))) = mem1 qui me donne pour 1 000 000 environ 3 secondes 6/10.
et
For i = 1 to nbval (1 000 000) qui me donne pour 1 000 000 plus de 25 secondes.


Je préfère la méthode "Range"🙂

A+

René

 

Pièces jointes

• Tableau en colonne A.xlsm

  20.8 KB · Affichages: 30
• Tableau en colonne A.xlsm

  20.8 KB · Affichages: 34

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 18 Décembre 2015

• #12

Re : Instructions pour écriture d'un tableau en mémoire dans une Colonne.

BONJOUR tous 🙂🙂🙂
si je peus me permettre !!

normal que For i = 1 to nbval (1 000 000) plus lent tu refais une boucle pour restituer ton tablo

autrement
le code de David🙂🙂 doit marcher

Code:

[A2].Resize(UBound(mem1)) = mem1

on pourrait ecrire

Code:

[a2].Resize(UBound(mem1, 1)).Value = mem1

mais bon dans cas une dimension pas utile

 

Vote positif 0 Vote négatif

néné06

XLDnaute Accro

• 18 Décembre 2015

• #13

Re : Instructions pour écriture d'un tableau en mémoire dans une Colonne.

Bonsoir Laetitia et le forum,

C'est exact, avec un tableau à deux dimensions, ce code fonctionne mais pas sur un tableau à une dimension.

si je peus me permettre !!

Cliquez pour agrandir...

Venant de ta part🙄, tu peux tous te permettre!😱

A+

René

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 19 Décembre 2015

• #14

Re : Instructions pour écriture d'un tableau en mémoire dans une Colonne.

Bonsoir

La propriété Value d'un Range de plusieurs cellules est toujours un tableau 2D de Variant base 1. S'il est dans une seule ligne T(1 To 1, 1 To x), s'il est dans une seule colonne T(1 To x, 1 To 1). En sortie vers des cellule un tableau à autre base est toléré, de même qu'un tableau à une dimension pour des cellules dans une seule ligne seulement. Mais si on recharge la plage dans le tableau on le retrouve 2D base 1.

 

Vote positif 0 Vote négatif

néné06

XLDnaute Accro

• 19 Décembre 2015

• #15

Re : Instructions pour écriture d'un tableau en mémoire dans une Colonne.

Bonjour Dranreb,

Merci pour le renseignement technique sur la propriété Range!

René

 

Vote positif 0 Vote négatif