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