Copie tableau vers Excel

[yalefe]

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

[Philippe JOCHMANS]

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

[yalefe]

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

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

[Ormonth]

Bonjour,

Dans ce cas précis, en 1 ligne :

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

[yalefe]

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

[Ormonth]

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

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

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

[yalefe]

un grand merci
ca marche