Transcrire formule NB.SI en code VBA

Bonjour à toutes & tous,

J'ai une formule NB.Si que je désire transcrire en VBA, mais je ne sais pas trop comment m'y prendre.

La formule est la suivante:

=NB.SI(B20:U31;N5)

Je veux compter combien de fois il y a la même donnée de " N5 " dans la plage " B20:U31 "

Voila, c'est sans doute tout simple pour vous, mais pour moi mis à part la fonction " SI ", je n'ai jamais transcrit une formule excel en VBA.

Merci donc à vous de bien vouloir m'aider.

Cordialement

Dubdub22

Bonjour,

Un exemple :

Public Sub XXX()
Dim rng As Range, v
    Set rng = ActiveSheet.Range("B20:U31")
    MsgBox Application.CountIf(rng, v)
End Sub

COUNTIF est l'équivalent de NB.SI !...

Bonjour Jean Eric,

Merci pour ta réponse et surtout si rapide,

Ton code répond à ma demande , mais avec une omission de ma part, je voudrai que le résultat ne s'affiche pas dans une box, mais dans la cellule " P5 "

Cordialement

Dubdub22

Bonjour

Écrire une valeur dans une cellule est vraiment le B A BA : as-tu pris le temps de lire un minimum les initiations au VBA proposées sur moult sites à commencer par celui-ci...

Re,

Une adaptation :

Public Sub XXX()
Dim rng As Range, v
    With ActiveSheet
        Set rng = .Range("B20:U31")
        v = .Cells(5, 14).Value
        .Cells(5, 16).Value = Application.CountIf(rng, v)
    End With
End Sub

Bonjour Jean Eric,

Je te remercie de ta réponse, elle fonctionne comme je le désirais, tu as résolu mon probleme.

Cordialement

Dubdub22