Traduire NB.SI par VBA

Horusbk

XLDnaute Junior
Bonsoir,

J'ai trouvé de nombreuses discussions sur ce sujet mais je n'ai pas réellement compris comment été programmée chaque fonction présentée.
Je souhaiterais traduire cette formule en NB.SI mais sous la forme d'un code VBA pour l'ajouter à une macro :

resultat = NB.SI ( P5 : P ; "Baptiste")
Msgbox resultat
Il faudrait que le code compte le nombre de fois où "Baptiste" apparaît dans toute la colonne P mais seulement à partir de la cinquième ligne de cette colonne.


Merci d'avance pour votre aide.
Baptiste

(N'hésitez pas à m'indiquer si vous souhaitez un fichier pour ma demande)
 

Staple1600

XLDnaute Barbatruc
Re, Bonsoir laurent950

=>Horusbk
C'était pas bien compliqué à adapter, non ? ;)
VB:
Sub vTests_II()
Dim Vamos_A_la_Playa As Range
Set Vamos_A_la_Playa = Range(Cells(5, "P"), Cells(Rows.Count, "P").End(3))
vba_NBSI Vamos_A_la_Playa, "Baptiste"
End Sub
Private Sub vba_NBSI(Plage As Range, Mot As String)
Resultat = Application.CountIf(Plage, Mot)
MsgBox Resultat
End Sub
 

Discussions similaires

Statistiques des forums

Discussions
311 721
Messages
2 081 928
Membres
101 842
dernier inscrit
seb0390