Renseigner un label par module de classe

[apdf]

Bonjour,

J'ai un USF avec 100 textbox est-il possible de savoir via un label le nombre de textbox renseigner ?

Je vous remercie d'avance

 

[Papou-net]

Re : Renseigner un label

Bonjour apdf,

Voici une ébauche de ton fichier.

La macro de mise à jour du label se lance automatiquement à chaque modification d'un textbox.

Pour la démo, je n'ai attaché cette macro qu'aux 9 premiers textbox, je te laisse le soin de continuer.

Si tu as une centaine de textbox, il serait préférable de traiter le problème avec un module de classe.

En te souhaitant une bonne soirée.

Cordialement.

 

[apdf]

Re : Renseigner un label

Bonjour Papou-net

Exactement ma recherche mais comme tu dit j'ai 100 textbox et sa serai certainement mieux approprier de mettre en place un module de classe ! mais la je ne suis pas capable....!

Bonne soirée

 

[laetitia90]

Re : Renseigner un label par module de classe

bonjour apdf ,Papou-net🙂🙂
j'ai mis pas mal d'exemples concernant les class fait une recherche avec mon pseudo

 

[Papou-net]

Re : Renseigner un label par module de classe

Bonsoir Laetitia

RE apdf,

Comme je me doutais de l'utilité, j'avais commencé à reprendre ton fichier avec un module classe.

Tu constateras que cela t'évites d'écrire des lignes de codes à l'excès. Autre avantage, tu peux ajouter ou retirer des TextBox à volonté, sans rien modifier dans tes macros.

Espérant avoir répondu au mieux.

Cordialement.

PS : si tu désires des informations sur les modules de classe, tu en trouveras à foison sur le web, mais il va falloir t'accrocher, ce n'est pas toujours exposé d'une façon claire. Et tu peux également suivre le bon conseil de Laetitia.

 

[apdf]

Re : Renseigner un label par module de classe

Re Bonsoir Papou-net

Je te remercie c'est nickel je te souhaite une trés bonne soirée

 

[apdf]

Re : Renseigner un label par module de classe

Bonjour,

Il y a quelques jours Papou-net m'avais fait un très bon code, pour compter le nombre de textbox remplis qui a ce jour marche très bien mais j'aimerais lui apporter une toute petite modif.

J'aimerais qui ne compte pas les textbox 101 et 102 si possible ?

Je vous remercie d'avance et vous souhaite une bonne journée

 

[Pierrot93]

Re : Renseigner un label par module de classe

Bonjour,

bah... teste la propriété "name" des "textbox" losque tu les fait rentrer dans la "classe"....

bonne journée
@+

 

[Papou-net]

Re : Renseigner un label par module de classe

Bonsoir Max, Pierrot, le Forum,

Voici la modification de code demandée par Max :

Sub CompteTBox()
Dim nbTB As Integer
With UserForm1
  For Each TB In .Controls
    If TypeOf TB Is MSForms.TextBox Then
      If TB.Name <> "TextBox101" And TB.Name <> "TextBox102" Then
        nbTB = IIf(TB = "", nbTB, nbTB + 1)
      End If
    End If
  Next
  .Label2.Caption = nbTB
End With
End Sub

Bonne soirée à tous.

Cordialement.

PS : Pierrot, la modification doit se faire dans la routine CompteTBox et non lors de l'inscription des TextBox dans l'Initialize, sinon elles sont comptabilisées quand-même dans Label2.

 

[Pierrot93]

Re : Renseigner un label par module de classe

Bonjour,

PS : Pierrot, la modification doit se faire dans la routine CompteTBox et non lors de l'inscription des TextBox dans l'Initialize, sinon elles sont comptabilisées quand-même dans Label2.

Aarf, tu as sans doute raison, pas ouvert le fichier (pas 2007 à dispo) ....

bonne journée
@+

 

[apdf]

Re : Renseigner un label par module de classe

Bonjour Papou-net, Pierrot,

Nickel papou-net je te remercie et te souhaite une bonne journée