Tracage trait lorsque somme = 100...

Bonsoir à tous,
Quelqu'un aurait-il une solution VBA ou formatage conditionnel qui me
permettrait de réaliser la chose suivante :
J'ai un tableau A11:Exx
La colonne C contient des valeurs numériques. Je souhaiterais mettre en
valeur des groupes de lignes (en traçant un trait gras sous la dernière par
exemple) lorsque la somme des valeurs de C atteint 100 (ou la valeur la plus
proche sans dépasser). Le comptage reprend à 0 sous chaque trait.
Exemple
C11 = 25
C12 = 40
C13 = 30 ( somme = 95 : Tracage d'un trait sous A13:E13)
C14 = 30
C15 = 30
C16 = 30 ( somme = 90 : Tracage d'un trait sous A16:E16)
C17 = 38
C18 = 27
C19 = 10
C20 = 15
C21 = 20 ( somme = 100 : Tracage d'un trait sous A21:E21)
C22 = 30

Etc
Merci
Domi

bonjour doumi,

voili voilou,

Sub Macro1()
For Each c In Range("C1:C" & Range("C65536").End(xlUp).Row)
b = c.Row
total = total + c
If total > 100 Then
With Range("A" & c.Row - 1 & ":E" & c.Row - 1).Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
total = c
End If
Next
End Sub

isabelle

Bonsoir à tous,
Quelqu'un aurait-il une solution VBA ou formatage conditionnel qui me
permettrait de réaliser la chose suivante :
J'ai un tableau A11:Exx
La colonne C contient des valeurs numériques. Je souhaiterais mettre en
valeur des groupes de lignes (en traçant un trait gras sous la dernière
par

exemple) lorsque la somme des valeurs de C atteint 100 (ou la valeur la
plus

proche sans dépasser). Le comptage reprend à 0 sous chaque trait.
Exemple
C11 = 25
C12 = 40
C13 = 30 ( somme = 95 : Tracage d'un trait sous A13:E13)
C14 = 30
C15 = 30
C16 = 30 ( somme = 90 : Tracage d'un trait sous A16:E16)
C17 = 38
C18 = 27
C19 = 10
C20 = 15
C21 = 20 ( somme = 100 : Tracage d'un trait sous A21:E21)
C22 = 30

Etc
Merci
Domi