Compter les valeures

[Lorine]

Bonjour à tous le forum.

Je joint un fichier sur lequel je voudrais compter des valeures dont la date est en jaune.

Merci pour votre aide

 

[pierrejean]

Re : Compter les valeures

Bonjour Lorine

Ton fichier n'est pas passé

 

[Lorine]

Re : Compter les valeures

Voici le fichier

 

[Dull]

Re : Compter les valeures

Salut lorine, Ami Pierre🙂, le Forum

Erreur: j'avais pas lu tout l'énoncé... désolé

Bonne Journée

 

[pierrejean]

Re : Compter les valeures

Re

Avec une fonction personnalisée (un poil tarabiscotée j'en conviens)

Edit : Salut Ami dull

 

[Lorine]

Re : Compter les valeures

Super PierreJean , c'est exactement ce que j'espèrais.

Merci

 

[homepyrof53]

Re : Compter les valeures

Bonjour

Voici une macro moins tarabiscotée (dixit pierrejean)

Function compte(valeur)
Application.Volatile
tot = 0
last_line = Range("A65536").End(xlUp).Row
For n = 4 To last_line
    tmp = Trim(Cells(n, 10))
    Select Case tmp
        Case "ro": tot = tot + 1
        Case Trim(valeur)
            If Cells(n, 1).Interior.ColorIndex = 6 Then tot = tot + 1
    End Select
Next n
compte = tot
End Function

avec comme formule en C1 : =compte(B1)

Bonne soirée