XL 2016 Nombre de cellules entre 2 valeurs qui se répètent

[BANDIN]

Bonjour à tous,

Dans la colonne B du fichier ci-joint, 5 valeurs différentes sont possibles (T, R, NR, NC, BL). J'aimerais qu'à chaque fois que BL apparait ça déclenche un compteur de jours qui s'arrête avec T, R, NR mais qui continue avec NC.
Dans l'exemple, le 1er BL à lieu du 9 Aout au 13 Aout soit 5, puis le deuxième 9 jours (du 3 au 11 septembre). Le résultat en T13 doit être 5+9= 14.

JE suis bloqué

Merci de votre aide

Bandin

 

[job75]

Bonsoir BANDIN,

Chercher le résultat par une formule Excel ça ne paraît pas évident.

Mais avec une fonction VBA c'est simple :

Function BL(r As Range) As Long
Dim compte As Boolean
Set r = Intersect(r.Parent.UsedRange, r)
For Each r In r
    If r = "BL" Then compte = True
    If r = "T" Or r = "R" Or r = "NR" Then compte = False
    If compte Then BL = BL + 1
Next
End Function

Le code doit être placé impérativement dans un module standard.

Le résultat est affiché en T13 (???) avec la formule =BL(B:B)

Edit : le test If Not compte était inutile.

Bonne nuit.

 

[BANDIN]

Bonjour JOB75,

j'ai oublié de vous remercier pour votre aide. Malheureusement je ne suis pas très à l'aise avec les fonctions VBA.
Merci encore

Bandin