Discussion :

[Alain7751]

Bonjour à toutes et tous,

Je crée une variable tableau

Code :

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

Dim monTab(20,12)

Pour avoir le total par ligne, jusqu'à présent je fais une boucle de 1 à 12 ; mais existe t-il une solution plus simple comme par ex :

Code :

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

Dim monTab(20,13)

et où la 13eme colonne serait la somme de 1 à 12 sans utiliser une boucle ? (je cherche à éviter les imbrications de boucles...)

Merci par avance !

[Philippe PONS]

Salut,

pour un tableau à une dimension:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Sub testSommeTableau()
    Dim varTab As Variant
    Dim somme As Double
 
    ' créé un tableau de doubles
    varTab = Array(1#, 2#, 3#, 4#, 5#, 6#, 7#, 8#, 9#)
 
    somme = Application.WorksheetFunction.Sum(varTab)
 
End Sub

A adapter pour ton tableau à 2 dimensions.
Cordialement,

[Alain7751]

Salut,

pour un tableau à une dimension:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Sub testSommeTableau()
    Dim varTab As Variant
    Dim somme As Double
 
    ' créé un tableau de doubles
    varTab = Array(1#, 2#, 3#, 4#, 5#, 6#, 7#, 8#, 9#)
 
    somme = Application.WorksheetFunction.Sum(varTab)
 
End Sub

A adapter pour ton tableau à 2 dimensions.
Cordialement,

Si j'ai compris ce que tu as créé , je suis tenu par array (plus de variable possible ?) ... en fait je ne connais pas cette écriture array 1# etc ... la réponse s'y trouve ?

[Philippe PONS]

J'ai utilisé Array pour créer rapidement un tableau, et montrer comment faire la somme des éléments du tableau.
Le # permet simplement de spécifier le type de donnée, et dire que les nombres sont de type Double(nombres à virgule!)
Mais dans ton cas, tu dois certainement remplir ton tableau d'une autre façon!
Cordialement,

[Alain7751]

J'ai utilisé Array pour créer rapidement un tableau, et montrer comment faire la somme des éléments du tableau.
Le # permet simplement de spécifier le type de donnée, et dire que les nombres sont de type Double(nombres à virgule!)
Mais dans ton cas, tu dois certainement remplir ton tableau d'une autre façon!
Cordialement,

Effectivement !!! mais je ne l'avais pas compris !! tout est OK !
Merci beaucoup

[joe.levrai]

T'es dur en affaire !

Comme tu le constates, j'ai utilisé des Fonctions de feuille de calcul (Somme, Index) et un transpose.
Ce sont des fonctions ne pouvant dépasser la dimension 2 du coup.

Si t'as une paire de chaussure, tu peux pas chausser trois pieds en même temps.

pour des dimensions supplémentaires ... il va falloir préciser un peu ton contexte d'utilisation, histoire d'éviter les usines à gaz.

[joe.levrai]

Bonjour,

tout dépend de ce que tu veux faire.

voici deux exemples

1) avoir directement dans le tableau la somme de tes lignes dans une colonne supplémentaire

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Sub toto()
Dim UnTab(1 To 20, 1 To 13)
Dim i As Long, j As Long
 
'remplissage du tableau pour avoir des données
For i = LBound(UnTab, 1) To UBound(UnTab, 1)
    'on ne remplit pas la dernière colonne
    For j = LBound(UnTab, 2) To UBound(UnTab, 2) - 1
        UnTab(i, j) = i + j
    Next j
Next i
 
' pour chaque ligne du tableau
For i = LBound(UnTab, 1) To UBound(UnTab, 1)
    ' la dernière colonne = la somme des autres colonnes de la ligne
    UnTab(i, UBound(UnTab, 2)) = Application.WorksheetFunction.Sum(Application.Index(Application.Transpose(UnTab), , i))
Next i
 
' écriture du résultat pour vérifier
With ThisWorkbook
    On Error Resume Next
        Application.DisplayAlerts = False
        .Worksheets("DEMO").Delete
        Application.DisplayAlerts = True
    On Error GoTo 0
 
    With .Worksheets.Add
        .Name = "DEMO"
        .Cells(1, 1).Resize(20, 13).Value = UnTab
    End With
End With
 
End Sub

2) pas besoin de stocker les résultats, on veut juste appeler la somme d'une ligne à la volée

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
19
Sub toto()
Dim UnTab(1 To 20, 1 To 12)
Dim i As Long, j As Long
Dim LigneSomme As Long
 
' on va prendre la somme de la ligne 4 pour l'exemple
' (mais une boucle ou plusieurs lignes c'est possible et simple à faire)
LigneSomme = 4
 
'remplissage du tableau pour avoir des données
For i = LBound(UnTab, 1) To UBound(UnTab, 1)
    For j = LBound(UnTab, 2) To UBound(UnTab, 2)
        UnTab(i, j) = i + j
    Next j
Next i
 
MsgBox "La somme de la ligne " & LigneSomme & " est : " & Application.WorksheetFunction.Sum(Application.Index(Application.Transpose(UnTab), , LigneSomme))
 
End Sub

[Alain7751]

Bonjour,

tout dépend de ce que tu veux faire.

voici deux exemples

1) avoir directement dans le tableau la somme de tes lignes dans une colonne supplémentaire

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Sub toto()
Dim UnTab(1 To 20, 1 To 13)
Dim i As Long, j As Long
 
'remplissage du tableau pour avoir des données
For i = LBound(UnTab, 1) To UBound(UnTab, 1)
    'on ne remplit pas la dernière colonne
    For j = LBound(UnTab, 2) To UBound(UnTab, 2) - 1
        UnTab(i, j) = i + j
    Next j
Next i
 
' pour chaque ligne du tableau
For i = LBound(UnTab, 1) To UBound(UnTab, 1)
    ' la dernière colonne = la somme des autres colonnes de la ligne
    UnTab(i, UBound(UnTab, 2)) = Application.WorksheetFunction.Sum(Application.Index(Application.Transpose(UnTab), , i))
Next i
 
' écriture du résultat pour vérifier
With ThisWorkbook
    On Error Resume Next
        Application.DisplayAlerts = False
        .Worksheets("DEMO").Delete
        Application.DisplayAlerts = True
    On Error GoTo 0
 
    With .Worksheets.Add
        .Name = "DEMO"
        .Cells(1, 1).Resize(20, 13).Value = UnTab
    End With
End With
 
End Sub

2) pas besoin de stocker les résultats, on veut juste appeler la somme d'une ligne à la volée

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
19
Sub toto()
Dim UnTab(1 To 20, 1 To 12)
Dim i As Long, j As Long
Dim LigneSomme As Long
 
' on va prendre la somme de la ligne 4 pour l'exemple
' (mais une boucle ou plusieurs lignes c'est possible et simple à faire)
LigneSomme = 4
 
'remplissage du tableau pour avoir des données
For i = LBound(UnTab, 1) To UBound(UnTab, 1)
    For j = LBound(UnTab, 2) To UBound(UnTab, 2)
        UnTab(i, j) = i + j
    Next j
Next i
 
MsgBox "La somme de la ligne " & LigneSomme & " est : " & Application.WorksheetFunction.Sum(Application.Index(Application.Transpose(UnTab), , LigneSomme))
 
End Sub

Merci beaucoup !!
C'est SUPER !!! je viens de le tester sur mon tableau et c'est parfait ! pour compléter ma question ... ce que tu as écris fonctionne avec un tableau à 2 dimensions mais si j'ai un tableau à 3 dimensions est ce encore possible ??? (ma question, parce que j'ai vu que tu utilises "transpose" ...)