Transfert de donnees dans un tableau

Re : Transfert de donnees dans un tableau

Bonjour filouj, bonjour le forum,

L'analyse de votre code est assez complexe compte tenu du nommage des variables et du manque de commentaire.
Aussi je me suis permis d'écrire une version la plus documentée possible.

Attention, il y a une faille: il faudrait vérifier avant le lancement de l'intégration des données que toutes les épaisseurs existent dans le tableau de destination.

En espérant que ce code sera pour vous une source d'inspiration
Nous faire part de vos commentaires et questions...
++

Re : Transfert de donnees dans un tableau

Bonjour info 69, bonjour à tous

Merci beaucoup d'avoir pris le temps de m'aider.
Le code fonctionne parfaitement. Je n'aurai jamais pu écrire ce que vous avez fait.
Juste pour information j'ai quelques questions pour mieux comprendre la macro:

- Dans le paragraphe de récupération des données, vous faites appel à Redim preserve. Quel est sa fonction?
- Dans le paragraphie insertdata, lorsque vous optimisez la gestion des thickness, je n'arrive pas à comprendre cette ligne de code:
Call lcThickToCol.Add(zPosThickness.Column, CStr(Format(zPosThickness.Value, "#0.#0")))

Sinon, au niveau de la faille, comme c'est souvent les mêmes valeurs, je pense que cela ne devrait pas poser problème.

Encore merci

Re : Transfert de donnees dans un tableau

Bonjour filouj,

Content que cela réponde à ton besoin.

filouj à dit:

- Dans le paragraphe de récupération des données, vous faites appel à Redim preserve. Quel est sa fonction?

Cliquez pour agrandir...

Redim permet de modifier les dimensions d'un tableau. Le mot clef preserve permet de conserver les données du tableau. Classiquement quand on déclare un tableau "dynamique", avant de le remplir il faut indiquer ses dimensions.
Dans ce cas (mon code), le mot clef preserve ne sert à rien puisque le tableau était vide.
Bien vu!

filouj à dit:

- Dans le paragraphie insertdata, lorsque vous optimisez la gestion des thickness, je n'arrive pas à comprendre cette ligne de code:
Call lcThickToCol.Add(zPosThickness.Column, CStr(Format(zPosThickness.Value, "#0.#0")))i

Cliquez pour agrandir...

C'est une astuce, je charge dans une collection, les relations entre les épaisseurs et les numéro de colonnes de ces épaisseurs. En effet, dans la boucle j'ai constamment besoin à partir d'une valeur d'épaisseur de déterminer le n° de colonne associé.
Aussi la collection me permet de gérer cette relation. Les valeurs stockées sont le numéro de colonne et la clef de recherche c'est l'épaisseur.
Mais, MAIS, la clef de recherche doit être une chaine, aussi je formate la valeur (double) de l'épaisseur sous forme d'une chaine.
Dans ce cas, le CSTR() ne sert à rien car le Format renvoi déjà une chaine. Bien vu!

(je fais trop de programmation défensive... c'est un peu mon tord)

C'est pour ça que je suis sur ce forum, c'est pour m'améliorer en rendant service...
++