Discussion :

[stephane010]

Bonjour,
Je souhaite que les totaux de plusieurs lignes soient calculés automatiquement dans une cellule d'une colonne différente.
Je joins un fichier Excel avec les sommes en jaune à calculer automatiquement.
Merci par avance pour votre aide.
Stéphane

[ARTURO83]

Bonjour,
Formule à utiliser en celluleF7, et à tirer vers le bas

Code :

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

=SI($D7="total";INDIRECT("E"&LIGNE()-2)+INDIRECT("E"&LIGNE()-1);"")

Cdlt

[Thautheme]

Bonjour Stéphane, bonjour le forum,

Essaie comme ça :

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 Macro1()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim DL As Integer 'déclare la variable DL (Dernière Ligne)
Dim PL As Range 'déclare la variable PL (PLage)
Dim T As Double 'déclare la variable T (Total)
Dim CEL As Range 'déclare la variable CEL (CELlule)
 
Set O = Worksheets("Feuil1") 'définit l'onglet O
DL = O.Cells(Application.Rows.Count, "D").End(xlUp).Row 'définit la dernière ligne éditée de la colonne D de l'onglet O
Set PL = O.Range("D5:D" & DL) 'définit la plage PL
For Each CEL In PL 'boucle sur toutes les cellules CEL de la plage PL
    If CEL.Value = "montant" Then 'condition : si la cellule vaut "montant"
        T = T + CEL.Offset(0, 1).Value 'définit le total T
    Else 'sinon
        CEL.Offset(0, 2).Value = T 'envoie de total dans la colonne F
        T = 0 'vide le total
    End If 'fin de la condition
Next CEL ' prochaine cellule de la boucle
End Sub

[stephane010]

Bonjour Thautheme,
Merci pour ta réponse,

Cela fonctionne très bien à partir du moment où on retient le terme "montant" que j'ai indiqué (peut-être à tort) dans le fichier test.
Est-ce modifiable si le libellé de chaque cellule n'est pas systématiquement "montant" mais un libellé aléatoire ? Le libellé "Total" reste inchangé par contre.

Merci.

[stephane010]

Bonjour Arturo83,
Merci pour ton aide.

[Thautheme]

Bonjour le fil, bonjour le forum,

Alors comme ça :

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 Macro1()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim DL As Integer 'déclare la variable DL (Dernière Ligne)
Dim PL As Range 'déclare la variable PL (PLage)
Dim T As Double 'déclare la variable T (Total)
Dim CEL As Range 'déclare la variable CEL (CELlule)
 
Set O = Worksheets("Feuil1") 'définit l'onglet O
DL = O.Cells(Application.Rows.Count, "D").End(xlUp).Row 'définit la dernière ligne éditée de la colonne D de l'onglet O
Set PL = O.Range("D5:D" & DL) 'définit la plage PL
For Each CEL In PL 'boucle sur toutes les cellules CEL de la plage PL
    If CEL.Value <> "Total" Then 'condition : si la cellule ne vaut pas "Total"
        T = T + CEL.Offset(0, 1).Value 'définit le total T
    Else 'sinon
        CEL.Offset(0, 2).Value = T 'envoie de total dans la colonne F
        T = 0 'vide le total
    End If 'fin de la condition
Next CEL ' prochaine cellule de la boucle
End Sub

[stephane010]

Génial, c'est exactement ce que je voulais.
Un grand merci pour ton aide et ta réactivité.

[patricktoulon]

re
bonjour je te propose en vba ceci
l'avantage comme ma demo animée le montre tu peux avoir des plage différente en terme de nombre de lignes pour chaque sommes
bien entendu je ne prends en consideration que les cellules"Total" comme tu l'a demandé
le code n'est pas tres compliqué

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub test()
    Dim CEL1 As Range, CEL2 As Range, i As Long
    Set CEL1 = [D5]    'on precise la premiere cellule en "D" contenant le mot"Montant" ou autre(c'est celle qui doit etre prise en compte pour le calcul somme de la premiere plage
    For i = 5 To Cells(Rows.Count, "D").End(xlUp).Row
        If Cells(i, "D") = "Total" Then
            Set CEL2 = Cells(i - 1, "D")
            Cells(i, "D").Offset(0, 2).Formula = "=SUM(" & Replace(Range(CEL1.Offset(0, 1), CEL2.Offset(0, 1)).Address, "$", "") & ")"
            Set CEL1 = Cells(i + 1, "D")
        End If
    Next
End Sub

demo animée

[stephane010]

Bonjour le forum,
Je reviens sur le sujet pour une demande complémentaire si une aide est possible.

L'objectif est de sommer les lignes de totaux calculés, peu importe le nombre de lignes dès lors qu'elles ont la même classification. Je mets un exemple pour clarifier mon propos.

Merci par avance pour votre aide.
Stéphane

[stephane010]

Bonjour le forum,
Personne pour m'aider ?
Merci par avance.
Stéphane