Comment effectuer une somme par intervalles entre deux textes ?

**Bedley** · 24/02/2024, 05h16

Bonsoir a tous!!

Besoin d'un coup de main

J'aimerais faire une recherche sur les lignes comportant certains textes et faire la somme des valeurs situé entre les textes recherché dans la colonne F correspondante. J'ai créer deux variables l et k pour effectuer les recherches. Le soucis c'est que la variable k qui est sensé faire la recherche du mot " SUPERSTRUCTURE" se fige sur la première ligne ou elle trouve le mot. Du coup au lieu d'effectuer la somme entre le texte " SUPERSTRUCTURE" de la variable k et les autres textes de la variable l trouver, il effectue un cumul. Juste rappeler que entre chaque intervalle de mot se trouve plusieurs sous totaux.
Voici le code.
MERCI

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
SUB SOMME_PAR_INTERVALLE()
 
Dim l As Long
Dim k As Long
Dim ws As Worksheet
Dim lf As Long
Set ws = Sheets("Cadre_de_Devis")
lf = ws.Cells(Rows.count, 2).End(xlUp).row
 
For l = lf To 9 Step -1
If InStr(UCase(ws.Cells(l, 2)), UCase("ETAGER")) >= 1 Or InStr(UCase(ws.Cells(l, 2)), UCase("NIVEAU")) >= 1 Or InStr(UCase(ws.Cells(l, 2)), UCase(“RDUC")) >= 1 Then
 
For k = lf To 9 Step -1
If InStr(UCase(ws.Cells(k, 2)), UCase(Left("SUPERSTRUCTURE", 20))) >= 1 Then
 
Range("F" & l).FormulaLocal = "=somme((F" & k + 1 & "): (F" & l - 1 & "))”
 
End If
Next k
End If
Next l
END SUB

**EricDgn** · 24/02/2024, 22h21

Bonjour,

Il faudrait une petite feuille exemple, complétée manuellement, pour bien comprendre le problème.

Cordialement.

**Bedley** · 24/02/2024, 22h27

Envoyé par EricDgn

Bonjour,

Il faudrait une petite feuille exemple, complétée manuellement, pour bien comprendre le problème.

Cordialement.

Bonsoir ÉricDgn

Ci-joint une image en exemple. MERCI

**Nain porte koi** · 24/02/2024, 23h28

Dommage que vous ne fournissiez pas une feuille excel, là, ceux qui pourraient vous donner un coup de main doivent recopier vos données et essayer de comprendre votre code avec des variables pas faciles à lire
J'ai tenté mais pas compris les tenant et aboutissant, si ce n'est que dans la 2ème boucle vous repartez de la fin au lie de repartir de la ligne actuelle

**Bedley** · 25/02/2024, 00h12

Envoyé par Nain porte koi

Dommage que vous ne fournissiez pas une feuille excel, là, ceux qui pourraient vous donner un coup de main doivent recopier vos données et essayer de comprendre votre code avec des variables pas faciles à lire
J'ai tenté mais pas compris les tenant et aboutissant, si ce n'est que dans la 2ème boucle vous repartez de la fin au lie de repartir de la ligne actuelle

Bonsoir, vous avez parfaitement raison et c'est vraiment l'idéal, sauf que je n'y parviens pas à charger un fichier Excel sur le forum. Je n'y vois aucun icône qui permet de le faire en dehors des images. Pouvez vous me donner plus de directive a ce sujet svp? Merci

**EricDgn** · 25/02/2024, 00h46

A mon avis, vous devriez plutôt encoder vos données dans un tableau structuré et utiliser un tableau croisé dynamique. Un exemple en attaché. Pas besoin de code VBA.

Pour ajouter un fichier, il y a en dessous de la fenêtre de composition d'un nouveau message un bouton "gérer les pièces jointes". Dans la fenêtre qui s'ouvre cliquer sur "ajouter un fichier", sélectionner votre fichier dans l'explorateur de fichiers, cliquer sur "ouvrir" dans l'explorateur de fichiers, et enfin cliquer sur le bouton "envoyer".

Cordialement.

**Bedley** · 25/02/2024, 04h36

Envoyé par EricDgn

A mon avis, vous devriez plutôt encoder vos données dans un tableau structuré et utiliser un tableau croisé dynamique. Un exemple en attaché. Pas besoin de code VBA.

Pour ajouter un fichier, il y a en dessous de la fenêtre de composition d'un nouveau message un bouton "gérer les pièces jointes". Dans la fenêtre qui s'ouvre cliquer sur "ajouter un fichier", sélectionner votre fichier dans l'explorateur de fichiers, cliquer sur "ouvrir" dans l'explorateur de fichiers, et enfin cliquer sur le bouton "envoyer".

Cordialement.

Vraiment merci pour votre apport. Concernant l'envoi du fichier, j'ai toujours du mal à le faire. Je respecte la procédure et a la fin je reçois un message d'échec de l'ouverture.

Concernant mon inquiétude, le tableau en question est un tableau structuré. Mais il est évolutif et les données qu'on a peuvent changer a tout moment et les ligne peuvent varier aussi, mais seulement c'est la structure qui reste la même. Du coup il est quasiment impossible de procéder à un TCD. J'essayerai demain de voir si je peux faire parvenir le fichier, mais seulement si c'est pas trop abusé de votre attention, je solliciterais que vous essayez de reproduire un tableau similaires comme je l'ai présenté en image et d'affecter le code pour mieux comprendre son fonctionnement. Peut être que ça pourrait mieux vous guider. Le vrai problème c'est ma variable k qui reste figée sur la première ligne sur laquelle elle trouve le mot "SUPERSTRUCTURE" . J'aimerais qu'elle parcours l'ensemble du tableau pour récupérer chaque lignes comportant le texte" SUPERSTRUCTURE" et créer un plage avec la ligne Total qui sera trouvé par la variable l. Encore une fois merci pour votre apport.

**EricDgn** · 25/02/2024, 12h35

Bonjour,

Il n'est pas nécessaire de passer par du code VBA. Il est vraiment préférable d'exploiter la fonction SOMME.SI().

Nom : SommeSi.png
Affichages : 97
Taille : 11,5 Ko

Nom : SommeSi.png
Affichages : 97
Taille : 11,5 Ko

.

Cordialement.

**Bedley** · 25/02/2024, 16h33

Envoyé par EricDgn

Bonjour,

Il n'est pas nécessaire de passer par du code VBA. Il est vraiment préférable d'exploiter la fonction SOMME.SI().

Nom : SommeSi.png
Affichages : 97
Taille : 11,5 Ko

.

Cordialement.

bonjour EricDgn

Encore une fois merci pour votre contribution. Apparemment c'est moi qui ai omis un détail. le tableau en question est vide au départ. il est remplis a travers un transfert de données depuis un autre tableau a travers un formulaire. Donc l'utilisateur na pas accès direct a aucun des classeur. Seuls les formulaires lui servent d'interface. Tout les calculs sont automatisés par les code vba. J'ai réussi a mettre en place un petit code qui me permet de sélectionner le premier intervalle et d'effectuer le calcul. le soucis maintenant c'est comment quitter cette plage pour aller a la plage suivante et jusqu'à la dernière plage trouvée? Quand j'essaie de créer une plage de sélection , le calcul n'est plus effectué

voici 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
Sub SOMME_PAR_INTERVALLE()
Dim l As Long
Dim k As Long
Dim ws As Worksheet
Dim lf As Long
Dim plage As Range
 
Set ws = Sheets("Feuil1")
lf = ws.Cells(Rows.Count, 2).End(xlUp).Row
 
For l = lf To 1 Step -1
        If UCase(ws.Cells(l, 2)) Like UCase(Left("ETAGER", 7)) Or UCase(ws.Cells(l, 2)) Like UCase(Left("NIVEAU", 7)) Or UCase(ws.Cells(l, 2)) Like UCase(Left("RDUC", 5)) Then
        i = ws.Cells(l, 2).Row
        End If
    Next l
 
For k = lf To 1 Step -1
        If UCase(ws.Cells(k, 2)) Like UCase(Left("TOTAL*", 7)) Then
        j = ws.Cells(k, 2).Row
        End If
    Next k
 
        Range("B" & i + 1 & ":" & "F" & j - 1).Select
 
         Set plage = Range("B" & i + 1 & ":" & "F" & j - 1)
 
' For Each plage In Range("B3:F" & lf)
'        If Range("B" & i).Value = True And Range("B" & j) = True Then
        Range("F" & j).FormulaLocal = "=somme((F" & i + 1 & ":" & "F" & j - 1 & "))/2"
'        End If
'    Next plage
End Sub

Ci joint le fichier

Toutes proposition me sera dune grande utilité. Merci

**EricDgn** · 25/02/2024, 17h46

Un façon de faire:

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
Option Explicit
 
Sub SOMME_PAR_INTERVALLE()
    Dim l As Long, k As Long, ws As Worksheet, lf As Long
    Dim sCell As String, k1 As Long, k2 As Long
    Set ws = Worksheets("Feuil1")                   '<<<
    lf = ws.Cells(Rows.Count, 2).End(xlUp).Row
    For l = 1 To lf
        sCell = UCase(ws.Cells(l, 2))
        If InStr(sCell, "ETAGER") > 0 Or InStr(sCell, "NIVEAU") > 0 Or InStr(sCell, "RDUC") > 0 Then
            k1 = ws.Cells(l, 2).Row + 1
            For k = k1 To lf
                If InStr(ws.Cells(k, 2), sCell) > 0 Then
                    k2 = ws.Cells(k, 2).Row - 1
                    ws.Range("F" & k).FormulaLocal = "=SOMME(F" & k1 & ":F" & k2 & ")/2"
                    Exit For
                End If
            Next k
            l = k
        End If
    Next l
End Sub

Cordialement.

**Bedley** · 25/02/2024, 18h23

Envoyé par EricDgn

Un façon de faire:

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
Option Explicit
 
Sub SOMME_PAR_INTERVALLE()
    Dim l As Long, k As Long, ws As Worksheet, lf As Long
    Dim sCell As String, k1 As Long, k2 As Long
    Set ws = Worksheets("Feuil1")                   '<<<
    lf = ws.Cells(Rows.Count, 2).End(xlUp).Row
    For l = 1 To lf
        sCell = UCase(ws.Cells(l, 2))
        If InStr(sCell, "ETAGER") > 0 Or InStr(sCell, "NIVEAU") > 0 Or InStr(sCell, "RDUC") > 0 Then
            k1 = ws.Cells(l, 2).Row + 1
            For k = k1 To lf
                If InStr(ws.Cells(k, 2), sCell) > 0 Then
                    k2 = ws.Cells(k, 2).Row - 1
                    ws.Range("F" & k).FormulaLocal = "=SOMME(F" & k1 & ":F" & k2 & ")/2"
                    Exit For
                End If
            Next k
            l = k
        End If
    Next l
End Sub

Cordialement.

WAOOOHHHH SUPER!!!!!!!! vraiment grand merci EricDgn, ça fonctionne a merveille. Cependant j'aimerais abusé encore une fois de votre attention et de votre temps. J'aimerai avoir un total général qui tienne compte uniquement que les totaux qui viennent d'être calculé. MERCI

**Philippe Tulliez** · 25/02/2024, 18h34

Bonjour,
L'organisation des données dans Excel, c'est comme les fondations d'un bâtiment. Si elles sont mauvaises, cela s'écroule

Dans l'illustration ci-dessous, à gauche les données dans un tableau structuré à droite la synthèse avec un tableau croisé dynamique (4 clics et c'est emballé)

Nom : 240225 dvp Data Pivot.png
Affichages : 84
Taille : 42,0 Ko

Nom : 240225 dvp Data Pivot.png
Affichages : 84
Taille : 42,0 Ko

**Bedley** · 25/02/2024, 18h49

Envoyé par Philippe Tulliez

Bonjour,
L'organisation des données dans Excel, c'est comme les fondations d'un bâtiment. Si elles sont mauvaises, cela s'écroule

Dans l'illustration ci-dessous, à gauche les données dans un tableau structuré à droite la synthèse avec un tableau croisé dynamique (4 clics et c'est emballé)

Nom : 240225 dvp Data Pivot.png
Affichages : 84
Taille : 42,0 Ko

Bonsoir Philippe,
Vous avez parfaitement raison a propos de votre suggestion, seulement que dans mon cas si mon tableau ne se présente pas de la même manière et les données contenues sont transférés depuis un autre tableau a travers un formulaire. Donc l'utilisateur n'aura pas accès au classeur. Tous les calculs sont effectués lors du transfert des données. Merci

**EricDgn** · 25/02/2024, 19h01

Je suis du même avis que Philippe, que je salue au passage, qu'il faudrait vraiment que les données soient "récupérées" d'une façon adaptée à Excel. Le code VBA n'est qu'emplâtre sur une jambe de bois. Nonobstant, pour avoir le grand total, une façon de faire est d'ajouter ces 2 lignes:

Code :

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

1
2
3
4
'...
    ws.Range("B" & l) = "TOTAL GENERAL"
    ws.Range("F" & l).Formula = "=SUMIF(D4:D" & k & ","">0"",F4:F" & k & ")"
End Sub

Cordialement.

**Bedley** · 25/02/2024, 20h09

Envoyé par EricDgn

Je suis du même avis que Philippe, que je salue au passage, qu'il faudrait vraiment que les données soient "récupérées" d'une façon adaptée à Excel. Le code VBA n'est qu'emplâtre sur une jambe de bois. Nonobstant, pour avoir le grand total, une façon de faire est d'ajouter ces 2 lignes:

Code :

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

1
2
3
4
'...
    ws.Range("B" & l) = "TOTAL GENERAL"
    ws.Range("F" & l).Formula = "=SUMIF(D4:D" & k & ","">0"",F4:F" & k & ")"
End Sub

Cordialement.

Je viens de tester les deux lignes de code, mais malheureusement tous les mot recherché par la variable l sont tous remplacer par "TOTAL GÉNÉRAL", du coup le calcul n'est plus effectuer. Je me disais si on pouvait pas chercher la ligne contenant le texte "TOTAL GÉNÉRAL" et en faire une référence ? C'est juste une suggestion qui peut être bête aux yeux des experts comme vous.

**EricDgn** · 25/02/2024, 20h20

Code complet:

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
Sub SOMME_PAR_INTERVALLE()
    Dim l As Long, k As Long, ws As Worksheet, lf As Long
    Dim sCell As String, k1 As Long, k2 As Long
    Set ws = Worksheets("Feuil1")                   '<<<
    lf = ws.Cells(Rows.Count, 2).End(xlUp).Row
    For l = 1 To lf
        sCell = UCase(ws.Cells(l, 2))
        If InStr(sCell, "ETAGER") > 0 Or InStr(sCell, "NIVEAU") > 0 Or InStr(sCell, "RDUC") > 0 Then
            k1 = ws.Cells(l, 2).Row + 1
            For k = k1 To lf
                If InStr(ws.Cells(k, 2), sCell) > 0 Then
                    k2 = ws.Cells(k, 2).Row - 1
                    ws.Range("F" & k).FormulaLocal = "=SOMME(F" & k1 & ":F" & k2 & ")/2"
                    Exit For
                End If
            Next k
            l = k
        End If
    Next l
    ws.Range("B" & l) = "TOTAL GENERAL"
    ws.Range("F" & l).Formula = "=SUMIF(D4:D" & k & ","">0"",F4:F" & k & ")"
End Sub

Cordialement.

**Bedley** · 25/02/2024, 20h54

Envoyé par EricDgn

Code complet:

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
Sub SOMME_PAR_INTERVALLE()
    Dim l As Long, k As Long, ws As Worksheet, lf As Long
    Dim sCell As String, k1 As Long, k2 As Long
    Set ws = Worksheets("Feuil1")                   '<<<
    lf = ws.Cells(Rows.Count, 2).End(xlUp).Row
    For l = 1 To lf
        sCell = UCase(ws.Cells(l, 2))
        If InStr(sCell, "ETAGER") > 0 Or InStr(sCell, "NIVEAU") > 0 Or InStr(sCell, "RDUC") > 0 Then
            k1 = ws.Cells(l, 2).Row + 1
            For k = k1 To lf
                If InStr(ws.Cells(k, 2), sCell) > 0 Then
                    k2 = ws.Cells(k, 2).Row - 1
                    ws.Range("F" & k).FormulaLocal = "=SOMME(F" & k1 & ":F" & k2 & ")/2"
                    Exit For
                End If
            Next k
            l = k
        End If
    Next l
    ws.Range("B" & l) = "TOTAL GENERAL"
    ws.Range("F" & l).Formula = "=SUMIF(D4:D" & k & ","">0"",F4:F" & k & ")"
End Sub

Cordialement.

Vraiment grand Merci à vous Éric. Grâce à vous je peux dormir paisiblement cette nuit. Mon problème est résolu a 100%. Je marque RÉSOLU pour tout ceux qui seront dans le besoin la prochaine fois

Comment effectuer une somme par intervalles entre deux textes ? [XL-2013]

Excel

Discussions similaires

Partager

Partager