Nbre de textbox remplis

[maval]

Bonjour

Je suis à la recherche d'un code VBA, sur un formulaire donner le nombre de textbox remplis dans un label.

Je vous remercie de votre aide ey vous souhaite une bonne journée

 

[phlaurent55]

Re : Nbre de textbox remplis

Bonjour Max,

voir fichier joint

à+
Philippe

 

[maval]

Re : Nbre de textbox remplis

Bonjour Philippe

Je te remercie vraiment Nickel

Bonne journée

@+

 

[maval]

Re : Nbre de textbox remplis

Re,

J'ai exprimer mon contentement un peu trop vite j'aurais du contrôler sur mon fichier final.
Sur mon formulaire ci-dessous j'ai déjà des "Private Sub TextBox1_Change()"moi ils sont étaient nommés comme ceci;"Private Sub T16_Change()" mais sa ne change rien j'ai donc voulu les rassembler j'ai donc fait ceci:

Private Sub T16_Change()
    T19 = Format(calc, "# ##0.00 €")
    Me.TextBox10 = Format(Calcul, "# ##0.00 €")

   'Nbre d'Accompte
Nb = 0
For i = 1 To 2
If Controls("textbox" & i) <> "" Then Nb = Nb + 1
Next i
Label321.Caption = Nb
 
End Sub

Private Sub T18_Change()
    T19 = Format(calc, "# ##0.00 €")
    Me.TextBox10 = Format(Calcul, "# ##0.00 €")
 
  'Nbre d'Accompte
 Nb = 0
For i = 1 To 2
If Controls("textbox" & i) <> "" Then Nb = Nb + 1
Next i
Label321.Caption = Nb
  
End Sub

Mais bien sur j'ai un message d'erreur "Objet spécifier introuvable"

Merci de ton aide

 

[maval]

Re : Nbre de textbox remplis

Re

Personne ?

 

[phlaurent55]

Re : Nbre de textbox remplis

Bonjour Max,
bonjour à tout le chenil

Mais bien sur j'ai un message d'erreur "Objet spécifier introuvable"

je m'en doutais un peu car je commence à avoir l'habitude avec tes fichiers

Pourquoi avoir renommé certains TextBox et pas d'autres 😡
dans le code présenté je vois: Label321.Caption = Nb ce label 321 est absent sur l'USF 😡😡

un peu d'ordre et de rigueur dans la construction de tes fichiers serait bienvenue 😡😡😡

en plus: je me souviens avoir apporté une solution à ce fichier .......... mais dans un autre fil de discussion
pourquoi ne pas rester sur ce même fil 😡😡😡😡

je te laisse faire le ménage dans le fichier, tu verras qu'avec un peu d'ordre, tes problèmes vont se résoudre comme par enchantement 🙂🙂🙂🙂🙂

à+
Philippe

 

[maval]

Re : Nbre de textbox remplis

Re Philippe,

Il est exact que tu as apporté une solution a ce fichier je vois que tu as une bonne mémoire 🙂

Pourquoi avoir renommé certains TextBox et pas d'autres

Parce que le formulaire contient trop de textbox et il faudrait tous refaire....!
Il est exact aussi que je me suis trompé de fichier sur le post4 je m'en excuse. Malgré le ménage j'ai pas résolu mon problème j'ai toujours mon message d'erreur.


Tu as aussi le bonjour de tous le chenil.🙂🙂

@+

 

[phlaurent55]

Re : Nbre de textbox remplis

Re,

j'ai mis les procédure dans:

Private Sub T16_AfterUpdate()
et
Private Sub T18_AfterUpdate()

et j'ai du mettre un Step 2 pour passer du T16 au T18

voir fichier joint

à+
Philippe

Edit: tu as le bonjour de mon Léonberg

 

[maval]

Re : Nbre de textbox remplis

Re,


je te remercie sa fonctionne Nickel.
Le Léonberg un chien d'un tempérament très doux et très affectueux, c'est le protecteur inné et vigilant des enfants. Fidèle et docile j'ai eu deux Léonberg ils sont super de très bon chien allemand. j'ai aujourd'hui deux Schnauzer Géant c'est le plus grand et le plus puissant des chiens allemands, rien a voir avec le Léonberg

@+