Comptage de textbox

[MIKE]

Fourm,

Voila mon probleme,

J'ai un UF avec 6 TxtBox

TextBox6 doit etre la somme du nombre de textBox non vides.

En plus clair
A chaque fois qu'un de mes textBox est rempli, on rajoute 1 dans le textBox6

Comment faire?

 

[PascalXLD]

Bonjour

Tu peux par exemple mettre dans un module (à tester car je ne l'ai pas fait)

Public Comptetxb as byte

Sub Comptage()

dim ctrl as control

Comptetxb=0
For Each ctrl In Userform1.Controls
If TypeName(ctrl) = 'TextBox' And ctrl.Visible = True and ctrl.name<>'Textbox6' Then
If ctrl = '' Then Comptetxb=Comptetxb+ 1
End If
Next

end sub

et pour tes textbox


Private Sub Textbox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Comptage
End Sub

Message édité par: Pascal76, à: 29/04/2005 15:28

 

[Denis]

Bonjour Mike, Pascal et le Forum
Pascal, à première vue ton code est bon, mais il faut autant de Private sub TextBox?_Exit qu'il y a de TextBox concernés
ou alors on passe par le module de classe
Bon courage et à +
Denis