Discussion :

[Bonero]

Bonjour,
je suis neophite en programmation en VBA. je tiens tout d'abord a remercier tous ceux qui animent ce site et contribuent à l'alimenter de reponses aux questions posées par les uns et les autres.

mon probleme est le suivant:

jai un tableau en vba x(1 to 5) dont je peux transferer les elements vers une plage de feuille de calcul de 5 cellules.
Mais seul le 1er element du tableau x(1) est reellement transferé vers toutes les cellules de ma plage.
je precise que je ne veux pas utiliser de loop pour ce transfert .
SVP aidez moi.

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
16
17
18
Sub TableauVbaVersFeuilleDeCalcul()
'je veux transferer les elements de mon tableau VBA vers une plage _
de feuille de calcul.
    
    Dim x(1 To 5) As Double  'mon tableau VBA.
    Dim i As Integer
    For i = 1 To 5
        x(i) = Rnd
        Debug.Print x(i) 'juste pour visualiser.
    Next i
    
    Worksheets("feuil5").Activate
    
    Dim Plage As range
    Set Plage = range("B1:B5")
    Plage.Value = x  ' Mais seul le 1er element du tableau ie x(1)est  recopié dans les cellules de ma plage.
    
End Sub

[Pierrot93]

Bonjour Bonero

essaye peut être en modifiant ton code ainsi :

Code :

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

Plage.Value = Application.Transpose(x)

bonne soirée
@+

[pgz]

Bonjour.

Pour copier un tableau dans une feuille celui-ci doit avoir 2 dimensions. Tu peux essayer

Code :

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

1
2
3
4
5
6
7
8
9
Dim x(1 To 5, 1 to 1) As Double 'mon tableau VBA.
Dim i As Integer
 
For i = 1 To 5
x(i,1) = Rnd
Debug.Print x(i,1) 'juste pour visualiser.
Next i
 
ThisWorkbook.Worksheets("feuil5").range("B1:B5").Value = x

Cordialement,

PGZ