Creer une boucle sur un sub

[Dennnisss]

Bonjour a tous

Est-ce possible de creer une boucle sur un sub

j'envoi ici un code que J,ai minimiser car il en a 176 textbox
une boucle se fait a l'interieur d'un sub mais peut-on faire cette boucle pour un sub

merci a vous de votre aide
denis🙂🙂

donc voici ce code

Sub TextBox3_Change()
calcul
End Sub
Sub TextBox4_Change()
calcul
End Sub
Sub TextBox5_Change()
calcul
End Sub
Sub TextBox6_Change()
calcul
End Sub
Sub TextBox7_Change()
calcul
End Sub
Sub TextBox8_Change()
calcul
End Sub
Sub TextBox9_Change()
calcul
End Sub
Sub TextBox10_Change()
calcul
End Sub

 

[vbacrumble]

Re : Creer une boucle sur un sub

Bonsoir



Tu pouvais rester ici
https://www.excel-downloads.com/threads/textbox-avec-calcul-a-repetition.114293/

On aurait fini par te parler des modules de classes

Regardes par exemple cet exemple de Pierrot93 cité par bqtr
Lien supprimé




A+

 

[Dennnisss]

Re : Creer une boucle sur un sub

salut vbacrumble


desole je croyais que ma question avait passe droit alors je emis une deuxieme intervention
je suis aller visiter l,adresse que tu ma mentionner avec bqtr

je cherche acomprendre et je revient si autre question
en attendant j'attend avec plus de patience

merci a toi
denis🙂🙂

 

[vbacrumble]

Re : Creer une boucle sur un sub

Re


Je te conseille donc d'ouvrir la pièce jointe qui se trouve dans le lien de mon précédent message et de regarder le code VBA de l'userform et le module de classe.


PS: Pour retrouver tes discussions, tu peux cliquer sur ton pseudo et cliquer sur Trouver plus de messages par Denniss.

A+

 

[Dennnisss]

Re : Creer une boucle sur un sub

Ok vbacrumble

je fouille cela

merci a toi

denis🙂🙂

 

[BOISGONTIER]

Re : Creer une boucle sur un sub

Bonjour,

Totalisation 12 zones dans un formulaire avec module de classe

Dim Txt(1 To 12) As New ClasseSaisie
Private Sub UserForm_Initialize()
 For b = 1 To 12: Set Txt(b).GrSaisie = Me("textbox" & b): Next b
End Sub

[B]Module de classse ClasseSaisie[/B]

Public WithEvents GrSaisie As MSForms.TextBox
Private Sub GrSaisie_Change()
  zone = GrSaisie.Name
  t = 0
  For i = 1 To 12
    t = t + Val(UserForm1("TextBox" & i))
  Next i
  UserForm1.Label1 = t
End Sub

http://boisgontierjacques.free.fr/fichiers/Formulaire/ClasseFormulaireTotal.xls

JB

 

[Dennnisss]

Re : Creer une boucle sur un sub

Salut Boisgontier

Je viens juste de prendre note de la formule du code que tu ma envoyer
j'ai changer quelque donne pour reussir a faire fonctionner le user , juste change nom du user et changer le nom de mon module de classe

c,est presque cela que je cherchais a faire , eliminer les textbox

pour les calculs il ne faut pas qu'il calculs tous les textbox sur le label1
il y a 4 labels et leur calcul sont precis

je t'envoi les labels et leur formule car il y a 4 labels pour les additons je vais tenter une correction si je n'y parviens pas je vais retourne sur le forum et demander de l'aide
alors mrs Boisgontier je te remercie de ton aide ton code va tres bien il est super maintenant je retourne au boulot ,

bonne journee a toi
denis🙂🙂

 

[Dennnisss]

Re : Creer une boucle sur un sub

Mrs Boisgontier

voici le code pour mes calculs des labels

Sub calcul()
'----------Calcul joueur 1--------------------
If TextBox3 = "" Then
Label1 = "": Label2 = "": Label3 = "": Label4 = ""
Else
Label1 = Int((Range("A2") - (Val(TextBox3) + Val(TextBox4))) * Range("A1") / 100) * 4
Label2 = Val(TextBox5) + Val(TextBox6) + Val(TextBox7) + Val(TextBox8)
Label3 = Val(TextBox9) + Val(TextBox10) + Val(TextBox11) + Val(TextBox12)
Label4 = Val(Label1) + Val(Label2) + Val(Label3)
End If
End Sub


bye bye denis🙂🙂

 

[vbacrumble]

Re : Creer une boucle sur un sub

Bonjour tous


Si on ne s'appelle pas BOISGONTIER, a-t-on le droit de te répondre, Denis ?

A+

 

[Dennnisss]

Re : Creer une boucle sur un sub

Bonjour mrs vbacrumble

Bien vous avez le droit de me suggerer
hier suite au lien que tu m'a donne sur le site bqtr , j'ai essayer
de faire un code et je bloquais toujours sur le module classe , sauf que j'imagine que c'etait moi qui avait mal coder ,

j'ai passer pres de deux heures la-dessus mais envin

mrs boisgontier ma emit un bon code comme mentionner sauf qu'il faut que les labels se separe et non s'additionne pas entre eux , sur le userform que j'avais envoyer regadé son fontionnement pour mieux me comprendre parfois j'explique pas tres bien se que je veut dire

alors a tou les acros bonne journee bien sur je suis preneur de vos suggestion

denis🙂🙂

 

[Dennnisss]

Re : Creer une boucle sur un sub

Bonjour a tous qui tente de me coder se probleme , moi ca fait deux heures que je viens de terminer mon chiffre de nuit(travail), la j'ai les deux yeux finis , je vais me coucher et en me levent cette apres-midi bien sur que j'ouvre mon ordi et je vient sur le forum , sur mes statistiques pour voir si il y aura une reponse , donc ne vous impatienter pas je ne vous oublierai pas desole pour ce contre-temps
je ne tiens plus debout

bonne nuit denis🙂🙂

 

[Dennnisss]

Re : Creer une boucle sur un sub

Bonjour a tous

J'ai recu un code d'un acros pour m'aider a eliminer 176 textbox_change()

Cela va tres bien , ou est le probleme c'est que j'ai un Sub nommé calcul dans mon code , il contient de nombreux calcul qui separe les labels et il est tres importants de respecter ces conditions pour ne pas qu'il mele le rapport

Dans le code fourni dans le dossier j'ai essayer deliminer la variable t pour lui faire lire la Sub calcul a la place
je ne suis pas parvenu , j'ai essayer d'initialise d,autre variable pour chaque label sur le petit test cela ne ma pas portee fruit non plus

la question peut-on inserer une Sub a l'interieur de la boucle meme si il a un module de classe pour la variable de saisie

alors merci de votre aide . et si j'ai de la misere a expliquer ce que je veut le dossier pourrais peut-etre vous aider ,e tje suis pret a repondre a vos question si besoin

merci denis🙂🙂

 

[skoobi]

Re : Creer une boucle sur un sub

Bonsoir,

Je pense qu'un bout de fichier est nécessaire.

Bonne soirée.

 

[Dennnisss]

Re : Creer une boucle sur un sub

Salut a to i skoobi et autre pro

Voici tel que demande un petit dossier pour mieux suivre


a+ denis🙂🙂

 

[skoobi]

Re : Creer une boucle sur un sub

Bonjour,

Si j'ai bien compris, il faut lancé la procédure Sub calcul() depuis le module de classe.
Mais pour que ça marche, il faut mettre Sub calcul() dans un module et pas dans le code de l'USF.
Voir le fichier joint.