NBVAL dans UserForm

Bonjour,

J'ai un petit problème, je voudrais faire afficher le nombre de référence =NBVAL('Base de données'!A:A)

MAIS dans mon Userform "menu" lors du lancement de mon userform menu je voudrais faire apparaitre le nombre de réf dans un label ou un comobox.

merci d'avance poour votre aide

Bonjour

Si cela peut te guider :

Option Explicit

Sub Nombre_de_valeur()
MsgBox Application.CountA(Sheets("Base de données").[A:A])
End Sub

ou code à intégrer dans Initialize

A Tester :

Dim a As Integer
a = Application.CountA(Sheets("Base de données").[A:A])
Me.label1 = a

Parfait sa marche merci :)

Option Explicit

Dim a As Integer

Private Sub UserForm_Activate()

a = Application.CountA(Sheets("Base de données").[A:A])

Me.Label2 = a

End Sub