fonction NbVal en VBA

[Hugues]

Bonsoir Le forum,

Je souhaiterais connaitre le code de la fonction Excel Nbval ;
j'ai essayé sans succés:

Sub fonction_nbval()
'
'
rep = CountA(Range('b2').Value)
MsgBox rep
End Sub

Merci à vous tous

 

[dg62]

re


sub nbvaleur()

dim nbvaleur as integer
nbvaleur=0
for each cel in selection

if cel.value=range('b2').value

nbvaleur=nbvaleur+1

end if
next cel
end sub

Message édité par: dg62, à: 13/01/2006 19:45

 

[Hugues]

Bonsoir Didier,

Merci pour cette prompte réponse