C
CHti160
Guest
bonsoir le "FORUM"
j'explique j'ai un eprocedure qui veut recuperer le nombre d'elements d'une colonne qui sont equivalent a la valeur d'un combobox
RechercheNombreAdherant (NbSec) '<----appel de la fonction
UserForm2.LblTSec.Caption = NbSec
End Sub
Public Function RechercheNombreAdherant(NbSec)'la fonction
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
'Là je ne sais pas comment renvoyer le résultat ,soit la valeur de NbSec que faire que modifier??????????
End Function
Merci d'avance
A+++
Jean Marie
j'explique j'ai un eprocedure qui veut recuperer le nombre d'elements d'une colonne qui sont equivalent a la valeur d'un combobox
RechercheNombreAdherant (NbSec) '<----appel de la fonction
UserForm2.LblTSec.Caption = NbSec
End Sub
Public Function RechercheNombreAdherant(NbSec)'la fonction
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
'Là je ne sais pas comment renvoyer le résultat ,soit la valeur de NbSec que faire que modifier??????????
End Function
Merci d'avance
A+++
Jean Marie