Discussion :

[jeromelinet]

Bonjour

Je rencontre un problème dans un tableau Excel.

Je souhaiterai additionner toute les valeurs qui se trouvent entre 2 cellules nommées (voir PJ)

B3 nommée "total" et A2 nommée "COUT HORAIRE", pour qu'a chaque fois que j'insère une ligne entre ces 2 cellules la somme se fasse automatiquement

dans mon tableau original il peut y avoir 0 ligne comme 10 lignes

Merci pour votre aide

[Philippe Tulliez]

Bonjour,
Je n'ouvre pas les fichiers joints, je ne peux donc pas voir la manière dont vos données sont organisées mais à la lecture de vos explications, je ne peux que vous conseiller le passage aux tableaux structurer.

La lecture de ce tutoriel Apprendre à utiliser les tableaux structurés Excel : création, manipulations et avantages(1), vous en apprendra plus

[jeromelinet]

Bonjour,
Je n'ouvre pas les fichiers joints, je ne peux donc pas voir la manière dont vos données sont organisées mais à la lecture de vos explications, je ne peux que vous conseiller le passage aux tableaux structurer.

La lecture de ce tutoriel Apprendre à utiliser les tableaux structurés Excel : création, manipulations et avantages(1), vous en apprendra plus

J'ai déjà lu ce tuto mais je n'y arrive pas ça ne marche
Dans l'outil de création l'option " lignes totales" est grisée et je n'arrive pas à convertir le tableau.
Mais merci pour votre aide

[ARTURO83]

Bonjour,

Faire ce que vous désirez avec une simple formule n'est pas possible car si aucune ligne n'est insérée, le total se trouvant en ligne 3 ne peut être la somme des cellules après la ligne 2 et les cellules de la ligne au-dessus de la ligne "Total".
Pour ceux qui n'ouvrent pas les pièces jointes, voici l'image de la demande
Pièce jointe 583510

Avec 2 boutons sur la feuille "Ajouter une ligne" et ""Supprimer une ligne" liés à un code VBA, tout cela devient possible.
Pièce jointe 583511

le code associé

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
Option Compare Text
 
Sub Ajouter_Ligne()
    Dim x As Range
    Application.ScreenUpdating = False
    Set x = Columns(1).Find("TOTAL")
    If Not x Is Nothing Then
        Range(Cells(x.Row, "A"), Cells(x.Row, "B")).Insert Shift:=xlDown
        Cells(x.Row, "B").FormulaR1C1 = "=SUM(R3C1:R" & x.Row - 1 & "C)"
    Else
        Cells(x.Row, "B") = 0
    End If
End Sub
 
Sub Supprimer_Ligne()
    Dim x As Range
    Dim Lig As Long
    Application.ScreenUpdating = False
    Set x = Columns(1).Find("TOTAL")
    If Not x Is Nothing And x.Row > 3 Then
        Range(Cells(x.Row - 1, "A"), Cells(x.Row - 1, "B")).Delete Shift:=xlUp
        Lig = x.Row
        If Lig > 3 Then
            Cells(Lig, "B").FormulaR1C1 = "=SUM(R3C1:R" & Lig - 1 & "C)"
        Else
            Cells(Lig, "B") = 0
        End If
    End If
End Sub

Cdlt

[jeromelinet]

Bonjour merci pour votre réponse.
Cependant pour moi c'est assez compliqué. Pourriez vous m'aider avec le fichier original ci-joint
A savoir que votre formule s'appliquerai pour le sous total 2 et le sous total 3
Merci beaucoup

[ARTURO83]

Essayez ceci
Pièce jointe 583543

Le 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
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
Option Compare Text
    Dim x As Range, y As Range
    Dim Lig As Long
 
Sub Bouton_Ajouter_un_Process()
    Application.ScreenUpdating = False
    Set x = Columns(1).Find("Sous Total 2")
    If Not x Is Nothing Then
        Range(Cells(x.Row, "A"), Cells(x.Row, "G")).Insert Shift:=xlDown
        Range(Cells(x.Row - 1, "B"), Cells(x.Row - 1, "D")).MergeCells = True
        Range(Cells(x.Row - 1, "E"), Cells(x.Row - 1, "G")).MergeCells = True
    End If
    Cells(x.Row, "E").FormulaR1C1 = "=IFERROR(SUM(R14C:R" & x.Row - 1 & "C),"""")"
End Sub
 
Sub Bouton_Supprimer_un_Process()
    Application.ScreenUpdating = False
    Set x = Columns(1).Find("Sous Total 2")
    If Not x Is Nothing And x.Row > 14 Then
        Range(Cells(x.Row - 1, "A"), Cells(x.Row - 1, "G")).Delete Shift:=xlUp
        Lig = x.Row
        If Lig > 14 Then Cells(Lig, "E").FormulaR1C1 = "=IFERROR(SUM(R14C5:R" & Lig - 1 & "C5),"""")"
    End If
End Sub
 
Sub Bouton_Ajouter_un_Outillage()
    Application.ScreenUpdating = False
    Set y = Columns(1).Find("Type", lookat:=xlWhole)
    Set x = Columns(1).Find("Sous Total 3")
    If Not x Is Nothing Then
        Range(Cells(x.Row, "A"), Cells(x.Row, "G")).Insert Shift:=xlDown
        Range(Cells(x.Row - 1, "B"), Cells(x.Row - 1, "D")).MergeCells = True
        Range(Cells(x.Row - 1, "E"), Cells(x.Row - 1, "G")).MergeCells = True
    End If
    Cells(x.Row, "E").FormulaR1C1 = "=IFERROR(SUM(R" & y.Row + 1 & "C:R" & x.Row - 1 & "C),"""")"
End Sub
 
Sub Bouton_Supprimer_un_Outillage()
    Application.ScreenUpdating = False
    Set y = Columns(1).Find("Type", lookat:=xlWhole)
    Set x = Columns(1).Find("Sous Total 3")
    If Not x Is Nothing And x.Row > y.Row + 1 Then
        Range(Cells(x.Row - 1, "A"), Cells(x.Row - 1, "G")).Delete Shift:=xlUp
        Lig = x.Row
        If Lig > y.Row Then Cells(Lig, "E").FormulaR1C1 = "=IFERROR(SUM(R" & y.Row + 1 & "C5:R" & Lig - 1 & "C5),"""")"
    End If
End Sub

Cdlt

[Pierre Fauconnier]

Salut.

Je pense comme Philippe (Merci d'avoir référencé mon tuto ) qu'un tableau structuré pourrait probablement t'aider.

Cela dit, pour avoir la somme des cellules entre deux cellules nommées, tu pourrais utiliser DECALER.

B3 nommée Début, B4 nommée Fin. Voici la formule avec DECALER.



L'insertion de lignes va déplacer Fin vers le bas