Copie tableau vers Excel

Bjr

j'ai un petit souci

j'ai un tableau a une dimension que je cherche a copier vers excel

Tab(0)= jaune
Tab(1)= vert
Tab(2)= rouge
....
et voila ce que je voudrais obtenir
A1 jaune
B1 vert
C1 rouge

j'ai fait un truc qui fonctionne mais qui est long ( Une boucle et j'utilise offset pour remplir chaque cellule )

existe-t-il une facon plus rapide ?

Par avance, merci

Bonjour et bienvenue sur le forum Office de DVP.

Peux-tu nous mettre le code du truc qui fonctionne et qui est long, il y a peut-être moyen de l'optimiser.

Philippe

C'est pas que ce soit long ( j'ai ptet un peu exagéré):?
mais je cherche à optimiser cette partie de traitement

Code:

---

1 2 3 4

For j = LBound(tabres) To UBound(tabres) Step 1 ActiveCell.Value = tabres(j) ActiveCell.Offset(0, 1).Activate Next j

---

Bonjour,

Dans ce cas précis, en 1 ligne :

Code:

---

Range("A1:C1") = tabres

---

pour 3 données, si ton tableau en a plus, il n'y aura que 3 cellules remplies, tu peux dimentionner ta plage dynamiquement en fonction de Ubound, si ta plage est plus grande, tu auras des #N/A.

cordialement,

Didier

merci de votre aide
mais dans votre exemple c'est assez statique

dans mon probleme ; le tableau est dynamique
et surtout la celllule de depart (" A1" dans votre exemple ) est également dynamique.

Sans trop rentrer dans les détails , ma macro cherche un n° de telephone dans une feuille et lorsque le n° est trouvé, elle colle les elements du tableau ( nom, rue, cp, ville, etc) dans les cellules adjacentes

Ben oui, pourquoi les réponses sont à côté de la plaque :roll:

Ben parcequ'elles répondent à la question posée et non pas à ce que le demandeur a dans l'idée...;)

J'ai précisé que l'on pouvait mettre des bornes dynamiques, ça dépend du reste du code. Exemple, en faisant intervenir un tirage au sort ;)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub DemoRempliCellRapide2() Dim tablo As Variant Dim I As Integer Dim MaxI As Byte Dim cible As Range   'Selectionnez une cellule vierge qui a 29 cell vierges à droite par exemple   MaxI = Int((30 * Rnd) + 1) ReDim tablo(MaxI) MsgBox MaxI For I = 0 To MaxI - 1 'demande un tableau à 1 dimention tablo(I) = Cells(I + 7, 3) Next I Range(ActiveCell, ActiveCell.Offset(0, MaxI)) = tablo End Sub

---

la partie construction du tableau m'es propre, c'est pour l'exemple, il y a simplement 30 données.

l'emplacement du "collage" dépendra de la cellule active (sélectionnée) et le Ubound variera de 1 à 30

PS : si tu as besoin d'explications sur ce code ou sur la façon d'adapter le tien, tu demandes...
PS2: Je n'utilise pas le même principe pour remplir mon tableau, ça marche aussi, mais me génère un tableau à 2 dimentions..

bon courage,

Didier

un grand merci
ca marche