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

BANDIN · 11 Février 2021

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 · 11 Février 2021

Bonsoir BANDIN,

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

Mais avec une fonction VBA c'est simple :

VB:

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 · 17 Février 2021

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

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

BANDIN

XLDnaute Junior

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

BANDIN

XLDnaute Junior

Discussions similaires

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

BANDIN

XLDnaute Junior

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

BANDIN

XLDnaute Junior

Discussions similaires

Privacy & Transparency

Privacy & Transparency