Bonjour,

Je réussis à créer un tableau 3D mais je ne trouve pas une solution pour renvoyer ce tableau dans une plage Excel.

Mon code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Somme3D()
    Dim tableau(6, 2, 3) As Variant
    Sheets(4).Range("b2:c7").ClearContents
    For cpt1 = 1 To 3
        For cpt2 = 1 To 2
            For cpt3 = 1 To 6
                tableau(cpt3, cpt2, cpt1) = Sheets(cpt1).Cells(cpt3 + 1, cpt2 + 1)
                Sheets(4).Cells(cpt3 + 1, cpt2 + 1) = Sheets(4).Cells(cpt3 + 1, cpt2 + 1) + _
                tableau(cpt3, cpt2, cpt1)
            Next
        Next
    Next
    'Sheets(4).Range("b2:c7") = Application.Sum(tableau)
End Sub
La solution actuelle est de renvoyer les valeurs une par une dans la feuille d'arrivée en additionnant avec la valeur déjà existante.

Si quelqu'un a une idée, je suis preneur.

Merci

Ellimac