Fonction pour compter valeurs consécutives si...

[Christian0258]

Bonjour à tout le forum,

Je souhaiterais votre aide afin d'écrire une fonction. Cette fonction devra compter des valeurs consécutives sur une ligne...
voir fichier joint avec toutes les explications

Merci, à nouveau, pour votre aide si précieuse.

Bien à vous,
Christian

 

[Iznogood1]

Bonjour,

une fonction perso devrait faire l'affaire

Function ConsValues(liDates As Range, liValeurs As Range, minValConsecutives As Integer, minTotal As Double) As Integer
  Dim i As Integer
  Dim cVal As Integer
  Dim tVal As Double
  i = 2
  While Cells(liDates.Row, i).Value <> ""
  If Cells(liValeurs.Row, i).Value = "" Then
  If cVal > minValConsecutives And tVal >= minTotal Then ConsValues = ConsValues + 1
  cVal = 0
  tVal = 0
  Else
  cVal = cVal + 1
  tVal = tVal + Cells(liValeurs.Row, i).Value
  End If
  i = i + 1
  Wend
End Function

Et quelque part dans la feuille :
(BE35 dans l'exemple)

=ConsValues(B3;A4;5;5)

 

[Christian0258]

Re, le forum, Iznogood1

Merci, Iznogood1, pour ton aide et ta solution.

C'est bizarre si je rajoute 5 cA sur le planning, le compteur en BE35 ne passe pas à 3...?
A ta lire.

Bien à toi,
Christian

 

[Christian0258]

Re, Bonjour à tout le forum, Iznogood1

Après plusieurs essais, je confirme que la Fonction ne répond pas aux divers changements, de CA dans la feuille Planning, sur la feuille Essai où se trouve la Fonction.

Merci pour votre aide, à vous lire.
Bien à vous,

Christian

 

[Christian0258]

Re, le forum,

Je reviens vers vous, alors personne pour compléter le travail réalisé
par Iznogood1.

A vous lire,
Christian