[VBA-E] Copier des données d'un tableau a une feuille

Bonjour a tous,
Mon problème est dans le titre, c'est à dire que j'ai un tableau qui contient des chaines de caractères.
Je désire les copier les unes sous les autres, donc en revenant à la ligne à chaque fois.
Je n'ai pas réussis à trouver comment faire, quelqu'un pourrait il m'aider ?

En réalité, je ne sais pas comment automatisé le saut de ligne aprés chaque itération ( je copie donc les données grâce à une boucle ).

Merci d'avance.

Comprend pas : ton tableau est ou dans une autre feuille ? ou c'est un TCD ?

Bonjour
Mon tableau est dans une procédure, il a été remplie par des chaines de caractères dans cette procédure, et, je dois, toujours à partir de cette procédure, copier chaque case de mon tableau dans une ligne de la feuille, en allant a la ligne a chaque fois.
En faite par tableau j'entends tableau au sens programmation du terme.

Ton tableau est défini comment ? il commance a 0 ou a 1 ?

Parce qu eje pense qu'en faisant une double boucle imbriquée ça doit etre faisable :)

Je crois que la fonction ubound permet de compte le nombre d'éléments dans un tableau :)


Donc en faisant 2 For imbriquées, je pense que tu t'en sortira facilement non ?

Euh il commence a 0
Mais le probleme c'est que je vois pas comment passer a la ligne du dessous
Ex :

Code:

---

1 2 3 4 5

For i=0 to lastindexdemontablo Range("Ai").select ActiveCell.FormulaR1C1 = montablo(i) Next i

---

A : étant la colonne

Le probleme se pose au niveau du "Ai", il n'incrementera pas le i puisqu'il est dans une chaine de caractere ( " " ).

Je ne sais pas si je suis trés clair mais le problème se pose la.

Nickel !
J'ai trouvé, quel boulet j'aurais du y penser directement !!!

Code:

---

1 2 3 4 5 6 7

For i = 1 To lastindexdemontablo Dim conv As String conv = i Range("A" + conv).Select ActiveCell.FormulaR1C1 = montablo(i) Next i

---

Et voila une petite concatenation et c'est bon !!
Merci ;)

Il est nettement plus simple de travailler avec Cells et sans Select:

Code:

---

1 2 3

For i = 1 To lastindexdemontablo Cells(i, 1).Value = montablo(i) Next i

---

Et, si ton problème est résolu, il y a un bouton en bas de page qui sert à le signaler, à ceux qui essayent d'aider les autres, sans qu'ils doivent tout lire pour s'en rendre compte.

Bonjour,
Oui, je suis sincèrement désolé, mais je n'ai pas mis le sujet comme résolu car j'étais convaincu qu'il y avait une méthode beaucoup plus naturelle / professionnelle, viable.
Visiblement c'est le cas, et je vous remercie de m'avoir éclairé sur ce sujet : je suis totalement néophyte en vba, et jusqu'ici je ne me servais que des select.
En tout cas, maintenant je vais mettre le sujet comme résolu, encore merci.
A+