XL 2010 compter nombre des labels de format texte non vide

yahya belbachir

XLDnaute Occasionnel
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

XLDnaute Impliqué
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
 

Discussions similaires

Réponses
11
Affichages
352

Statistiques des forums

Discussions
313 296
Messages
2 096 913
Membres
106 786
dernier inscrit
Mgordat