H Hugues XLDnaute Impliqué 13 Janvier 2006 #1 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
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 XLDnaute Barbatruc 13 Janvier 2006 #2 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 Vote positif 0 Vote négatif
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
H Hugues XLDnaute Impliqué 13 Janvier 2006 #3 Bonsoir Didier, Merci pour cette prompte réponse Vote positif 0 Vote négatif