problème rapide, copier un tableau dans une plage

[nicolase78]

Bonjour à tous,

Je galère sur un problème et je suis sûr que c'est un truc bête mais j'arrive pas à trouver la réponse sur internet. en fait j'ai un tableau que j'ai créé, je voudrais copier ce tableau dans une feuille calcul.

J'ai essayé ça

Sub test()
Dim tTab() As Variant

ReDim tTab(1 To 20)
For i = 1 To 20
    tTab(i) = i * i
Next

Range("A1:A20") = tTab

End Sub

Mais cela me copie dans la plage A1:A20 toujours la valeur 1, et non 4,9... je vois pas pourquoi du tout je suis à deux doigts de balancer mon écran par la fenêtre.

SI quelqu'un peut m'aider... Merci d'avance!

 

[gilbert_RGI]

Re : problème rapide, copier un tableau dans une plage

bonsoir

peut-être ça

Sub test()
 Dim tTab() As Variant
 
ReDim tTab(1 To 20)
 For i = 1 To 20
     tTab(i) = i * i
     Cells(i, 1) = tTab(i)
 Next
End Sub

 

[nicolase78]

Re : problème rapide, copier un tableau dans une plage

Le problème c'est que mon tableau fait 30 000 lignes et ça prend trop de temps comme ça... c'est pour ça que je voulais tout copier d'un coup, il me semblait avoir déjà réussi à faire un truc du genre

 

[nicolase78]

Re : problème rapide, copier un tableau dans une plage

Alors personne pour copier un tableau dans une plage Excel directement sans passer par une boucle for, pour que je puisse gagner du temps ??

merci d'avance

 

[gilbert_RGI]

Re : problème rapide, copier un tableau dans une plage

Alors personne pour copier un tableau dans une plage Excel directement sans passer par une boucle for, pour que je puisse gagner du temps ??

merci d'avance

si c'est une copie que vous désirez il faut passer par la methode "COPY"
dans l'exemple c'est un calcul

sinon il y a ceci

https://www.excel-downloads.com/threads/copier-tableau-vba-dans-plage-excel.174579/

 

[BOISGONTIER]

Re : problème rapide, copier un tableau dans une plage

Bonsoir,

Transfert d'un tableau dans un champ

Sub test()
Dim tTab() As Variant

ReDim tTab(1 To 20)
For i = 1 To 20
    tTab(i) = i * i
Next

Range("A1").Resize(UBound(tTab)) = Application.Transpose(tTab)

End Sub

JB

 

[nicolase78]

Re : problème rapide, copier un tableau dans une plage

Merci pour ton site et pour la réponse, c'est exactement ce que je voulais.