inserer un sous-total avec condition

Version imprimable

23/10/2023, 10h47
Adel excel

1 pièce(s) jointe(s)

inserer un sous-total avec condition

bonjour,
je souhaiterai svp, en VBA , additionner une colonne avec des NBR et insérer un sous total à chaque fois, j'ai un total prédéfinie (voir tableau)
ci-joint un fichier si vous pouvez m'aider (je ne maitrise pas de tout le VBA)
merci d'avancePièce jointe 645582
23/10/2023, 10h59
BENNASR

bonjour adel, la forum
dans le premier cas de ton exemple du valeur 2 au valeur 5 la somme est 18
et si on ajoute la 6ème valeur on arrive à 30
tu veux insérer le sous total après le 18 ou le 30 ??
23/10/2023, 12h24
Adel excel

Citation:

Envoyé par BENNASR

bonjour adel, la forum
dans le premier cas de ton exemple du valeur 2 au valeur 5 la somme est 18
et si on ajoute la 6ème valeur on arrive à 30
tu veux insérer le sous total après le 18 ou le 30 ??

merci pour ton retour

désolé, je me suis mal exprimer, j'ai refais le tableau , je veux dispatcher le total de traitement de la colonne A (1 traitement par ligne voir tableau)
par le nbre des gestionnaires ( j'ai 5 dans mon tableau)

donc le total de traitement (29) deviser / par le nombre de gestionnaire (5) = le nombre de tache par gestionnaire (5.8 j'arrondie à 6)

le bute dans la colonne A à chaque fois j'ai la somme 6 j'insert un sous total

dans la vrais vie on a 35 milles taches que je dois dispatcher sur 15 personnes
MERCI

Bonjour, teste ceci, évidemment les sous-totaux ajoutés modifient les résultats de tes formules.

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
Sub AjouterSousTotal()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Feuil1") ' Remplace "NomDeTaFeuille" par le nom réel de ta feuille
 
    Dim totalMinimum As Double
    totalMinimum = 23.8
 
    Dim ligne As Integer
    ligne = 2 ' Commence à la deuxième ligne, puisque la première ligne est une en-tête
 
    Do While ws.Cells(ligne, 1).Value <> "" ' Continue tant que la cellule n'est pas vide
        Dim totalPartiel As Double
        totalPartiel = 0
 
        Do
            totalPartiel = totalPartiel + ws.Cells(ligne, 1).Value
            ligne = ligne + 1
        Loop Until totalPartiel >= totalMinimum Or ws.Cells(ligne, 1).Value = "" ' Continue tant que le total partiel est inférieur au minimum ou que la cellule est vide
 
        If totalPartiel >= totalMinimum Then
            ' Insérer une nouvelle cellule
            ws.Cells(ligne, 1).Insert Shift:=xlDown
            ' Insérer le sous-total
            ws.Cells(ligne, 1).Value = totalPartiel
            ' Se décaler d'une ligne vers le bas pour calculer sous-total suivant
            ligne = ligne + 1
        End If
    Loop
End Sub

[EDIT]
J'ai constaté que la dernière cellule contenant la formule, était aussi additionnée, il faut donc remplacer la ligne DO WHILE par:

Code:

Do While ws.Cells(ligne, 1).Value <> "" And ws.Cells(ligne + 1, 1).HasFormula = False

Si tu remplaces ta formule en A26 par =SOMME.SI(A2:A25;"<23,8") tu obtiendras le résultat correct, sans additionner les sous-totaux.

23/10/2023, 13h40
mach1974

formula

il faut dans la macro insérer la propriété cells.formula = qui reprend la syntaxe de la formule de la feuille excel