Bonjour Chti160, le forum
Public Function RechercheNombreAdherant(NbSec as Long) as Long
Dim cel As Range
Dim maplage As Range
Dim Lgn As Byte
Dim TSec As Byte
Dim TotalSec As Byte
Dim ValSec As String
TotalSec = 0
ValSec = UserForm2.ComboBox1.Text
With Worksheets("Listing")
Lgn = .Range("B65536").End(xlUp).Row
Set maplage = .Range("B9:B" & Lgn)
End With
For Each cel In maplage
If Right(cel.Text, 2) = Right(ValSec, 2) Then
NbSec = NbSec + 1'<---- Ici je calcul le nombre que je veux inscrire dans mon label là hautUserForm2.LblTSec.Caption = NbSec
End If
Next
RechercheNombreAdherant=NbSec
End Function
et pour ton userform
UserForm2.LblTSec.Caption = RechercheNombreAdherant(0)
tel que tu l'as défini, NbSec sera incrémenté à partir le la valeur passée en argument. Si tu pars toujours de zéro, il n'y a pas besoin de prévoir un argument.
Cordialement, A+