XL 2010 compter nombre des labels de format texte non vide

gbinforme à dit:

Bonjour,
Tu peux le faire avec cette fonction :

VB:

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 :

Code:

    Me.TextBox1.Value = compter

Cliquez pour agrandir...