Calcul sommes en automatique en VBA

Version imprimable

1 pièce(s) jointe(s)

Bonjour a tous,

Pouvez-vous svp me dire comment simplifier le code ci-dessous :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Sub MacrT()
 
Sheets("Feuil1").Select
 
'Initialisation de la boucle
Dim i As Integer
 
i = 1
 
'Boucle la colonne 1
Do While (Cells(1, i).Value <> "")
    FonctCalSom (i)
    i = i + 2
Loop
End Sub

Code:

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
 
Sub FonctCalSom(ByVal col As Integer)
 
'Initialisation de la boucle
    Dim i As Integer
    i = 2
 
    'Boucle sur la liste de cellule
    Do While (Cells(i, 1).Value <> "")
 
 
            If Cells(i, 1).Value <> "" Then
 
 
            Set MaPlage = Range("b3:b6")
            Maformule = "=sum(" & MaPlage.AddressLocal() & ")"
            Cells(2, 2).Formula = Maformule
 
            Set MaPlage = Range("c3:c6")
            Maformule = "=sum(" & MaPlage.AddressLocal() & ")"
            Cells(2, 3).Formula = Maformule
 
 
Else
            Cells(i, 2).Value = ""
 
            End If
        i = i + 1
    Loop
 
End Sub

L'objectif c'est que la col3 soit remplie automatiquement comme les deux colonnes col1 et col2 et que "E2" reste vide si pas de valeurs sous les lignes de lign2 à lign5.

Je ne souhaite pas modifier a chaque nouvelle colonne mettre le code ci-dessous :

Code:

1
2
3
4
 
Set MaPlage = Range("d3:d6")
Maformule = "=sum(" & MaPlage.AddressLocal() & ")"
Cells(2, 4).Formula = Maformule

Merci d'avance pour votre aide:confused:

15/06/2015, 17h14
Igloobel

Bonjour,
Es-tu obligé de faire une formule plutôt que mettre le résultat directement ?

Si tu n'es pas obligé alors oui ton code peut être beaucoup simplifié

A+
15/06/2015, 17h24
undo74

Bonjour Igloobel,

Avant merci pour ta réponse rapide;)
non je ne suis pas obligé d'avoir la formule dans le résultat les valeurs me suffisent.
mais je suis prôneur pour la solution avec la formule comme ça je pourrai adapté le code pour d'autres formules si besoin:lol:

Merci pour ton aide.
A+

Bonjour,

Bizarre ton code, tu boucles x fois et tout ça pour sommer B3:B6 et C3:C6 ? Tu demande l'argument Col dans ta fonction mais tu ne l'utilise pas ?
Ta macro peut alors se résumer à ça :
Code:

1 2 3 4 5 6 7 8 9 10 11 Sub MacrT() With Sheets("Feuil1") .Cells(2, 2).Value = Application.Sum(.Range("b3:b6")) .Cells(2, 3).Value = Application.Sum(.Range("b3:b6")) End With End Sub
Hervé.

Bonjour à tous

Bon, super THEZE, ton codes est concis, top, je :plusser:

sinon moins concis mais peut-être plus proche de tes connaissances actuelles
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Sub Macro_Test1() 'Déclaration des variables Dim Nom_feuil As String Dim i As Long Dim Coln As Long Dim Lign As Long Dim Cumul As Double 'initialisation des variables Coln = 2 Cumul = 0 Nom_feuil = "Feuil1" 'Programmation For Lign = 3 To ThisWorkbook.Worksheets(Nom_feuil).UsedRange.Rows.Count Cumul = Cumul + Cells(Lign, col).Value Next Cells(2, 2).Value = Cumul End Sub
tu dis

Citation:

... mais je suis prôneur pour la solution avec la formule comme ça je pourrai adapté le code pour d'autres formules si besoin ...

Je te déconseille de mettre des formules par code VBA c'est gourmand en temps d'éxécution et fait grossir le classeur surtout qu'il est pas difficile de boucler sur les colonnes en plus des lignes

A+