Modifier une fonction (de job75) pour compter des valeurs consécutives...

[Christian0258]

Bonjour à tout le forum,

Je souhaiterais votre aide afin d'adapter une fonction (de job75)...

Cette fonction compte des valeurs consécutives...ici "CA" =compte($D13:$AH13;"CA")
Comment faire pour compter des "CA" numérotés ?. type CA1, CA2 ect

voir fichier

Merci pour votre aide.
Bien à vous,
Christian


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

 

[job75]

Re : Modifier une fonction (de job75) pour compter des valeurs consécutives...

Bonjour Christian,

A priori il suffit de modifier la fonction comme ceci :

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 Like s & "*" = tf)
      compte = compte - (tmp > compte)
    End If
  Next
End Function

et de tirer AH12 vers le bes bien sûr.

A+

 

[job75]

Re : Modifier une fonction (de job75) pour compter des valeurs consécutives...

Re,

Bien voir cependant qu'avec la solution précédente, si l'on recherche les séries de "1", la fonction ne fera pas de différence entre les cellules contenant "1", "10", "11" ou "1x"...

A+

 

[Christian0258]

Re : Modifier une fonction (de job75) pour compter des valeurs consécutives...

Re, le forum, job75,

Merci, job75, pour le boulot et les précisions post3.

Bien à toi.
Christian

 

[job75]

Re : Modifier une fonction (de job75) pour compter des valeurs consécutives...

Re,

Compte tenu de la remarque de mon post #3, on peut introduire le 3ème argument facultatif exact :

Function compte(r As Range, s$, Optional exact As Boolean = False, 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 Like s & IIf(exact, "", "*") = tf)
      compte = compte - (tmp > compte)
    End If
  Next
End Function

Si donc on veut une correspondance exacte avec "CA" on entrera en AI12 :

=compte(D12:AH12;"CA";VRAI)

sinon :

=compte(D12:AH12;"CA")

A+

 

[Christian0258]

Re : Modifier une fonction (de job75) pour compter des valeurs consécutives...

Re, le forum, job75,

Merci pour ce dernier post5, j'ai appliqué tes recommandations...

Bien à toi,
salut l'artiste.

Christian