Fonction NbVal en VB

[manillet]

Bonjour, je vaoudrais savoir comment s'ecris la fonction NBVAL en Visual Basic, jai cherche parout dans l'aide mais jai rien trouve, Et quand dans une macro, je tape :
NBVAL( A1 : A10) j'ai une erreur
MERCI

 

[Creepy]

Hello,

Petit Exemple à adapter à ton besoin :

Range('F' & I).FormulaLocal = '=nbcar(E2:E6)'

Mais pareil dans le principe

++

Creepy

 

[sousou]

Bonjour

A ma connaissance l'équivalent de la fonction nbval, n'existe pas en VB, mais il suffit de la faire comme par exemple ci-dessous
Sub deb()
compte = 0
For Each i In Selection
If i <> '' Then compte = compte + 1
Next
MsgBox compte
End Sub

 

[porcinet82]

salut,

au cas ou tu ne trouverais pas et a adapter selon tes besoins, une petite macro qui compte le nombre de cellules non vides

[file name=manillet.zip size=7514]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/manillet.zip[/file]

@+

 

[Hervé]

Bonjour tout le monde

Sinon tu peux essayer d'utiliser WorksheetFunction qui permet d'utiliser les fonctions excel vers VBA :

Public Sub nbval()
MsgBox Application.WorksheetFunction.CountA(Range('a1:a10'))
End Sub

Salut

 

[Manilet]

Merci herve tu me sauve la vie; je taime

 

[Hervé]

re manlilet
le forum

c'est gentil de m'aimer

Mais creepy(bnval pas nbcar ), sousou, et porcinet82 avait aussi une solution à ton souci.

Il aurait été élégant de les remercier aussi.

Salut