Formule NBVAL dans VBA

bonjour à tous,

je coince sur une ligne :

If Range("e19").Value < 8 Then

( "e19" étant une formule dans la feuille =NBVAL(crit) . ) çà marche mais :

Comment écrire directement cette formule dans le code ?

If NBVAL(crit) < 8 Then ???????????

à vous lire ......Claude.

Bonjour,

si cela peu d'aider un traducteur mais pour la formule la je passe

https://www.excel-pratique.com/~files/doc/traducteur.zip

A +

Salut Dubois,

en vba la formule len(expression) te renvoie le nombre de caractère de l'expression

Bonne journée

Pour le traducteur d'henri, il faut que la page dial (cachée) soit affichée sinon ca ne marche pas (en tout cas pas sur mon ordi....)

bonsoir,

pour répondre à Math , Je ne parle pas de caractères.

NBVAL donne la quantité de cellules occupées dans une plage donnée.

Quant au traducteur , çà marche chez moi , intéressant mais ne répond pas à ma question.

a+.....Claude

Bonsoir

Trouvé sur un autre Forum:

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

Et aussi:

CountA (NBVAL)

Cordialement

Salut le forum

On doit utilser les termes Anglais dans VBA

Application.WorksheetFunction.CountA(Range("PlageNom"))

Mytå

Désolé j'avais mal compris ta question, mais la je crois que Myta a la bonne réponse

merci à tous,

le code à Mytä fonctionne trés bien .

à la prochaine.

Claude.