Fonction pour compter des valeurs consécutives, en l'occurence des congés annuels...

[Christian0258]

Bonjour à tout le forum,

Je souhaiterais votre aide, afin de modifier une fonction qui permet de compter des valeurs consécutives.
Cette fonction, du grand ROGER2327 que je remercie au passage, me permet de compter des congés annuels ....
voir fichier joint.

Merci pour votre aide si précieuse et merci pour le temps que vous voudrez bien m'accorder.

Bien amicalement,
Christian

 

[vgendron]

Re : Fonction pour compter des valeurs consécutives, en l'occurence des congés annuel

Bonjour..
avec la fonction NB.SI..
=NB.SI(D12:AH12;"CA")

par contre. moi j'en compte 7 des CA: deux non colorés en colonnes S et T..
est ce normal que tu n'en veuilles que 5?

 

[R@chid]

Re : Fonction pour compter des valeurs consécutives, en l'occurence des congés annuel

Bonjour @ tous,
en AI3,

=NB(1/FREQUENCE(SI(D12:AH12="RH";COLONNE(D12:AH12));SI(D12:AH12<>"RH";COLONNE(D12:AH12))))

@ valider par Ctrl+Maj+Entree
@ tirer vers le bas
@ +

 

[Christian0258]

Re : Fonction pour compter des valeurs consécutives, en l'occurence des congés annuel

Re, le forum vgendron, R@chid,

Merci à vous, pour votre aide.

vgendron, la fonction actuelle compte le plus grand nombre de CA consécutifs, c'est bien 3.
Je souhaite compter les CA consécutifs même si il sont séparés d'un RH (repos hebdo) ou un F (férié) ce qui donnerait selon l'exemple de mon fichier 5 CA consécutifs.

R@chid, je ne vois pas dans ta formule le paramètre CA à compter...ni le paramètre F "à sauter"....

A vous lire,

Merci encore.

Bien à vous,
Christian

 

[vgendron]

Re : Fonction pour compter des valeurs consécutives, en l'occurence des congés annuel

effectivement.. j'ai relu la question après..;-)

 

[job75]

Re : Fonction pour compter des valeurs consécutives, en l'occurence des congés annuel

Bonjour Christian, vgendron, R@chid,

Bon Roger doit encore faire la bringue

Function compte(r As Range, s$, Optional tf As Boolean = True)
Application.Volatile 'selon le besoin…
Dim tmp&, oCel As Range
  For Each oCel In r
    If oCel.Text <> "RH" And oCel.Text <> "F" Then
      tmp = (Not IsEmpty(oCel)) * (tmp + 1) * ((oCel.Text = s) = tf)
      compte = compte - (tmp > compte)
    End If
  Next
End Function

A+

 

[R@chid]

Re : Fonction pour compter des valeurs consécutives, en l'occurence des congés annuel

Bonjour,
Oui je suis venu de comprendre, moi j'ai compté le nombre de séries "RH" dans la ligne...
je vais voir
@ +

Edit : Salut Job75

 

[Christian0258]

Re : Fonction pour compter des valeurs consécutives, en l'occurence des congés annuel

Re le forum,

vgendron, R@chid et job 75,

Merci à vous pour votre aide.

job75, c'est parfaitement, parfait...comme d'hab..., merci.

Bien à vous,
Christian