XL 2019 Somme de cellules.

[teclim]

Bonjour à tous,
Je cherche à additionner des cellules (dans une plage de 6 cellules) mais si une des valeurs est égal à zéro alors le compteur redémarre de zéro et le résultat sera la valeur maximum.
je vous met un exemple:

23

32

0

33

20

26

Dans cet exemple, on additionne 23+32 et on s’arrête car la troisième valeur est zéro puis on fait 33+20+26 et on affiche le résultat de 33+20+26 car il est supérieur à 23+32.

Mais je n'y arrive pas. Quelqu'un saurait-il comment faire ?

Si vous voulez plus d'infos n'hésitez pas à me demander.

 

[teclim]

Bonsoir à tous,

Voyez le fichier joint et cette macro évènementielle :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim dercol%, c As Range, deb As Range, s#, plage As Range, plagemax As Range, smax#
dercol = Cells(1, Columns.Count).End(xlToLeft).Column
Rows(1).Interior.ColorIndex = xlNone 'RAZ
For Each c In Cells(1).Resize(, dercol)
    If Not IsNumeric(CStr(c)) Then Application.EnableEvents = False: c = 0: Application.EnableEvents = True
    If deb Is Nothing Then If c <> 0 Then Set deb = c: s = 0
    If Not deb Is Nothing Then
        If c <> 0 Then
            Set plage = Range(deb, c)
            s = s + c
        Else
            If s > smax Then Set plagemax = plage: smax = s
            Set deb = Nothing
            s = 0
        End If
    End If
Next
If Not deb Is Nothing Then If s > smax Then Set plagemax = plage: smax = s
If Not plagemax Is Nothing Then plagemax.Interior.ColorIndex = 6 'jaune
ThisWorkbook.Names.Add "somme", smax 'nom défini
MsgBox "Somme maximum entre zéros " & [TEXT(somme,"[h]:mm")]
End Sub

Elle se déclenche quand on modifie ou valide une cellule en ligne 1.

La plage de somme maximum se colore en jaune.

A+

En fait j'ai mis un exemple pour faire comprendre mon problème mais j'ai 52 tableaux de 6 lignes chacun. Penses-tu qu'on puisse adapter ta sub ?

 

[patricktoulon]

re
a ben maintenant c'est des heures

et on est potentiellement sensé avec un long=0 dans la ligne
bonjour la conception du fichier

 

[teclim]

J'ai identifié un des problèmes : c'est que ma sélection n'est pas contiguë. Elle n'est pas de la forme BQ132:BW132 mais sous cette forme BQ132;BR132;BQ156;BR156;BS156;BT156.
Comment je peux faire ?

 

[job75]

Bonsoir,

En fait j'ai mis un exemple pour faire comprendre mon problème mais j'ai 52 tableaux de 6 lignes chacun. Penses-tu qu'on puisse adapter ta sub ?

Probablement mais jusqu'ici vous n'avez fourni aucun fichier.

A+

 

[teclim]

Bonsoir,

Probablement mais jusqu'ici vous n'avez fourni aucun fichier.

A+

Je ne peux pas envoyé le fichier car il y a des informations personnelles. Je peux éventuellement faire un autre fichier avec juste ce qu'il faut.