Discussion :

[dbgdbg]

Bonjour,

J'utilise une tableau (3,2) sous vba.
Pour coller les données sous Excel, il existe :

Code :

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

range("A1:B3").value=tableau

Pour que ce soit plus rapide, je voudrais savoir si il était possible de sélectionner qu'une ligne du tableau pour la coller sous Excel? Doit-on passer obligatoirement par une boucle?

Merci beaucoup!

[ouskel'n'or]

Comprends pas ta question. Tu pourrais donner un exemple ?

[dbgdbg]

ok, je m'explique :

imaginons le tableauvba contenant :
1 4 7
2 5 8
3 6 9

je voudrais coller sous Excel seulement la 2eme ligne :

2 5 8

Dois-je obligatoirement passer par la boucle :

Code :

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

1
2
3
For i=1to3
   cells(i,10).value =tableauvba(2,i)
Next i

OU puis faire une manip plus rapide?

Le problème est que j'ai plutôt un tableau avec plusieurs milliers de lignes que j'appelle une cinquantaine de fois.... donc c'est bien long...


Merci bien.

[ouskel'n'or]

Si je te dis de mettre

cells(2,10).value =tableauvba(2,2)

ça répond à ta question ?
Mais je ne pense pas... alors je ne sais pas

[dbgdbg]

en fait non,

Je voudrais faire ceci pour une plage de données et non qu'une seule cellule...

Je vais chercher mais j'ai l'impression que c'est pas possible


Merci quand même de ton aide.

[ouskel'n'or]

Alors j'ai fait ça

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub test5()
Dim Tableau(3, 2)
Tableau(0, 0) = 1
Tableau(1, 0) = 2
Tableau(2, 0) = 3
Tableau(0, 1) = 4
Tableau(1, 1) = 5
Tableau(2, 1) = 6
Tableau(0, 2) = 7
Tableau(1, 2) = 8
Tableau(2, 2) = 9
 
ActiveSheet.Range("A1:C3").Value = Tableau()
 
End Sub

Et là ça fonctionne... Mais là, tu devras adapter... et je ne suis pas certain de pouvoir t'aider