NBVAL en Vba

[Temjeh]

Bonsoir à tous

J'aimerais si possible mettre ceci en VBA avec la valeur final dans un textBox1

=(NBVAL(A1:A500)*(NBVAL(F1:F500)))

du genre:

TextBox1 = NBVAL.Range("A1:A500") * NBVAL.Range("F1:F500")

Merci beaucoup

Temjeh

 

[Minick]

Salut,

Ca pourrait ressembler à ceci:

With Application.WorksheetFunction
TextBox1 = .CountA(Range("A1:A500")) * .CountA(Range("F1:F500"))
End With

@+ Minick

 

[Temjeh]

Merci beaucoup c'est juste

Le prob venais du fait que dans une macro précédente je supprime des lignes alors ma formule était supprimée aussi!!

Merci

Temjeh

 

[Temjeh]

Test

[href]http://www.iconarchive.com/[/href]

 

[Temjeh]

Test

href="http://www.iconarchive.com/"

 

[Temjeh]

Test