Insérer des lignes et une somme selon un critère

Bonjour à tous,

j'ai souvent tendance à regarder les réponses et à trouver ce que je veux mais je démarre les macros depuis peu de temps .

J'aurais souhaité votre aide sur une macro qui pourrait insérer une ligne après avoir détecter une valeur supérieure à 0.2 par exemple et qu'elle fasse la somme des cellules d'une colonne à coté.

Bref, pas si simple pour moi, même avec le mode enregistrement...

Je vous joints un fichier avec le résultat souhaité.

En vous remerciant par avance pour votre aide.

Greg

Bonsoir,

une proposition

Sub vasy()
With Worksheets("actuel")
dl = .Range("H" & Rows.Count).End(xlUp).Row
fc = 2
i = 2
While i <= dl
If .Cells(i, 8) > 0.00208 Then
 .Rows(i + 1).Insert shift:=xlDown
 .Cells(i, 9).Formula = "=sum(E" & fc & ":E" & i & ")"
 If i < dl Then fc = i + 1: dl = dl + 1
End If
i = i + 1
Wend
End With
End Sub

Bonjour h2so4 et merci,

c'est excellent!!!

J'ai du adapté un peu car mon fichier était "tordu".

8)

En fait, dans la pratique je m'aperçois que je peux faire plus simple...

Il me faudrait plutôt ajouter une ligne en dessous d'une valeur >0.2 dans la colonne F et faire le même type de total (Voir fichier).

Merci d'avance.

Bonsoir,

j'ai adapté le code en fonction de tes spécifications, mais je n'arrive pas au résultat de la feuille "souhaité".

Sub vasy()
With Worksheets("actuel")
dl = .Range("F" & Rows.Count).End(xlUp).Row
fc = 2
i = 2
While i <= dl
If .Cells(i, 6) > 0.2 Then
 .Rows(i).Insert shift:=xlDown
 .Cells(i, 7).Formula = "=sum(E" & fc & ":E" & i & ")"
 .Cells(i, 8) = .Cells(fc, 1)
 .Cells(i, 8).NumberFormat = "dd-mm-yy"
 If i < dl Then fc = i + 1: dl = dl + 1: i = i + 1
End If
i = i + 1
Wend
End With
End Sub

Merci je vais tester ça demain.

Bonne soirée

Bonsoir,

non effectivement c'est pas facile.

Peut etre que je devrai voir avec ma requète d'orignie qui me permet pas de faire des sommes sur deux jours de travail.

Une journée de travail commence à 9H00 et termine à 1H30 environ le lendemain.

Et j'ai besoin de sortir le volume total par jour, mais par jour de début de poste.

Il faudrait que dès que ça détecte 0,2, boom, ça repart de zéro et ça fait la même chose.

Bonsoir

Un essai

Bonjour,

je viens de le tester sur mes données et ça marche impec !

Merci bien pour cette aide précieuse.