Bonjour à tous
J' utiliser un tableau à 3 dimensions ( lignes,colonnes,feuilles)
dont voici la 1ère partie du code
Sub X
Dim Tableau(1 To 10, 1 To 9, 1 To 12)
Dim y As Integer, x As Integer, z As Integer
For x = 1 To 10
For y = 1 To 9
For z = 1 To 12
Tableau(x, y, z) = feuil(z).Cells(x + 1, y + 1)
Next z
Next y
Next x
et je voudrais appeler une fonction SommeTableau qui me retournerait des montants selon les valeurs de x, y z
exemples
SommeTableau(Tableau,2,3,4) qui me retournerait le montant de Cells( 2,3 ) de la feuille 4
SommeTableau(Tableau, ,3,4) qui me retournerait la montant de toutes les valeurs de la colonne (3) de la feuille 4
SommeTableau(Tableau,4, ,5)qui me retournerait la montant de toutes les valeurs de la ligne (4) de la feuille 5
etc etc
Mais j'ai du mal à intégrer cette fonction ( si mon code ci dessus est exacte ) dans cette procédure
Merci à tous pour votre aide
J' utiliser un tableau à 3 dimensions ( lignes,colonnes,feuilles)
dont voici la 1ère partie du code
Sub X
Dim Tableau(1 To 10, 1 To 9, 1 To 12)
Dim y As Integer, x As Integer, z As Integer
For x = 1 To 10
For y = 1 To 9
For z = 1 To 12
Tableau(x, y, z) = feuil(z).Cells(x + 1, y + 1)
Next z
Next y
Next x
et je voudrais appeler une fonction SommeTableau qui me retournerait des montants selon les valeurs de x, y z
exemples
SommeTableau(Tableau,2,3,4) qui me retournerait le montant de Cells( 2,3 ) de la feuille 4
SommeTableau(Tableau, ,3,4) qui me retournerait la montant de toutes les valeurs de la colonne (3) de la feuille 4
SommeTableau(Tableau,4, ,5)qui me retournerait la montant de toutes les valeurs de la ligne (4) de la feuille 5
etc etc
Mais j'ai du mal à intégrer cette fonction ( si mon code ci dessus est exacte ) dans cette procédure
Merci à tous pour votre aide