Discussion :

[Mr l'Ashanti]

Bonjour forum
Je suis confronté à un dilemme. Je m'initie aux variables tableaux. C'est un domaine que j'avais peur d'aborder mais actuellement ça me rattrape. Je voudrais faire une copie collé de mon premier tableau dans le deuxième tableau. Mais lorsque j'ai une grande donnée ça ralenti le processus. J'ai donc choisi les variables tableaux.

J'ai pu écrire ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim Tablo()
Tablo=Feuil1.Range("PrimairePublic").Value
For Compteur=LBound(Tablo) to Ubound(Tablo)
Feuil1.Cells(Compteur,"O")=Tablo(Compteur,1)
Next

mais la transposition se fait sur la première ligne du deuxième tableau.
Je voudrais faire la transposition dans la deuxième ligne de la colonne O du deuxième tableau.

Merci de m'aider

[galopin01]

Bonjour,
tu peux faire comme tu as commencé (mais ça risque d'être un peu lent s'il y a beaucoup de donnée car tu recopies les données une par une)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub test()
Dim Tablo(), Compteur
Tablo = Feuil1.Range("PrimairePublic").Value
For Compteur = LBound(Tablo) To UBound(Tablo)
Feuil1.Cells(Compteur + 1, "O") = Tablo(Compteur, 1)
Next
End Sub

Ou comme celà :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub test()
Dim Tablo, Compteur
Tablo = Feuil1.Range("PrimairePublic").Value
Feuil1.Cells(2, 15).Resize(UBound(Tablo, 1)) = Tablo
End Sub

Tout sur les tableaux c'est ici

A+

[Mr l'Ashanti]

Merci pour la réponse mais :
Quelle est la différence entre resize et redim?

[galopin01]

Resize se rapporte à la plage cible et redimensionne une cellule à la taille que le tableau.
Redim se rapporte à un tableau et en augmente la taille de la dernière dimension...
A+