XL 2010 compter nombre des labels de format texte non vide

[yahya belbachir]

Bonjour
dans un formulaire, j'ai 20 Labels et un TextBox qui sert pour résultat.
je voudrais savoir comment calculer le nombre des labels Non Vide de format texte.
Merci

 

[gbinforme]

Bonjour,
Tu peux le faire avec cette fonction :

Public Function compter() As Long
Dim ctr As Control
    For Each ctr In Me.Controls
        If TypeName(ctr) = "Label" Then
            If ctr.Caption <> "" Then compter = compter + 1
        End If
    Next ctr
End Function

et pour valoriser ta texbox :

    Me.TextBox1.Value = compter

 

[yahya belbachir]

Bonjour,
Tu peux le faire avec cette fonction :

Public Function compter() As Long
Dim ctr As Control
    For Each ctr In Me.Controls
        If TypeName(ctr) = "Label" Then
            If ctr.Caption <> "" Then compter = compter + 1
        End If
    Next ctr
End Function

et pour valoriser ta texbox :

    Me.TextBox1.Value = compter

merci
ça marche bien