Déterminer la somme des Textbox spécifiques non vides

Bonjour forum

Je ne sais pas si le problème a déjà été traité parce que je n'arrive pas à le trouver.
J'ai plusieurs Textbox mais 6 dont je n'ai pas changé les noms (Textbox1 à Textbox 6) histoire d'utiliser ce code

Code:

---

1 2 3 4 5 6

Dim Counter as Integer For Counter = 1 To 6 If Controls("TextBox" & Counter)> Val(T_NbredeCours) then Msgbox "Nombre de classes<> Nombre de cours" End if Next

---

.
Le but du code est de vérifier si le nombre de Textbox
renseigné est supérieur au nombre renseigné dans la Textbox Nbredecours alors on affiche un message.
Le code fonctionne mais lors du pas à pas je remarque que ça ne somme pas mais plutôt décompte.

Comment m'y prendre ?
Merci

Bonjour,
de ce que je comprends , tu as 6 Textbox de 1 à 6. tu veux connaitre le nombre de Textbox dans lesquels une valeur a été saisie et le comparé à un textbox nomé T_Nbredecours ? c'est bien cela?

si c'est bien ce que tu cherche à faire!

Code:

---

1 2 3 4 5

Dim Counter As Integer, I As Integer For I = 1 To 6 Counter = Counter + Abs(Trim("" & Controls("TextBox" & I)) <> "") Next If Counter > Val(T_NbredeCours) Then MsgBox "Nombre de classes<> Nombre de cours"

---

Merci de la réponse.
En fait, je voudrais connaître le Total des Textbox non vides.
Par exemple, si Textbox1 jusqu'à 6 sont remplies , on aura la valeur 6 dans une autre Textbox. Si uniquement 3 sur 6 sont remplies alors on aura donc 3.
[Mais je précise que j'ai 31 Textbox mais celles qui serviront de test n'ont pas changé de nom.]
Et avec cette valeur, je pourrai la comparer au nombre de cours de savoir si l'utilisateur à saisir trop de classes ou non?

J'ai enfin pu résoudre le problème.
Voici le code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub Compte() Dim Décompt As Integer, Ctls As Control   For Each Ctls In Userform1.Frame1.Controls If TypeName(Ctls)="TextBox" Then If Ctls<>"" then Décompt= Décompt+1 End if End if Next T_TextCompt=Décompt End sub

---

Je mets la procédure dans toutes les Textbox qui servent de Total( Textbox 1 jusqu'à TextBox 6).
Et dans la Textbox qui reçoit le décompte, je mets le code de comparaison

Code:

---

1 2 3 4

Private Sub T_TextCompt() If T_TextCompt > T_ Cours then MsgBox "Non" End Sub[

---

Merci à tous.

Bonjour,
je t'avais donné la solution au poste #2!

Code:

---

1 2 3 4 5 6 7

Sub Compte() Dim Ctls As Control T_TextCompt = 0 For Each Ctls In Userform1.Frame1.Controls If TypeName(Ctls) = "TextBox" Then T_TextCompt = T_TextCompt + Abs(Ctls <> "") Next End Sub

---

Le code n'a pas produit l'effet escompté. Mais c'est avec plusieurs réflexions que j'ai finalement compris que je devrais plutôt incrémenter et récupérer cette valeur dans une Textbox et faire la comparaison. Votre code, fonctionne lorsque aucune Textbox n'est saisie. Mais dès lors que nous commencions à les remplir, l'incrémentation passe de 1 à 2 puis à 3 jusqu'à 30 pourtant ce sont 6 Textbox que je voulais vérifier et non l'ensemble des Textbox sur mon userform.

Merci éventuellement pour l'aide.

Citation:

---

Envoyé par Mr l'Ashanti

J'ai enfin pu résoudre le problème.
Voici le code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub Compte() Dim Décompt As Integer, Ctls As Control   For Each Ctls In Userform1.Frame1.Controls If TypeName(Ctls)="TextBox" Then If Ctls<>"" then Décompt= Décompt+1 End if End if Next T_TextCompt=Décompt End sub

---

Je mets la procédure dans toutes les Textbox qui servent de Total( Textbox 1 jusqu'à TextBox 6).
Et dans la Textbox qui reçoit le décompte, je mets le code de comparaison

Code:

---

1 2 3 4

Private Sub T_TextCompt() If T_TextCompt > T_ Cours then MsgBox "Non" End Sub[

---

Merci à tous.

---

désolé j'ai juste repris le code que tu as rédigé et qui ne parle plus des 6 textbox!

j'ais supposé que dans ta Userform1.Frame1.Controls il n'y avait que tes 6 textbox!

Je comprends
Sinon dans le frame, il y a 18 Textbox représentant les effectifs des classes du CP1 au CM2 ( Filles/Garçon/Total) et je voulais juste avertir l'utilisateur si le nombre de cours saisie est inférieur au nombre de classes saisies que les Textbox Total récupèrent .