textbox avec calcul a repetition

[Dennnisss]

Salut a tous

J'ai un user form avec plusieurs textbox.value
J,ai coder avec textbox_change()
calcul les textbox

etant donnees qu'il y a 176 textbox mais faire attention il y en a qui se refaire a des noms et non des valeurs donc il sont incrementer de douze

je cherche bien entendu une boucle pour eliminer de nombreuses ligne de code

alors les boucles ne pas necessairement mon truc , je cherche a faire un code et pourriez-vous en meme temps m'explique votre facon de realise un code

voici un petit user pour mieux me situe bien entendu je n'ai pas code toutes les lignes car le user serait trop volumineux il passerait pas sur le forum

mais j'ai laisser les lignes des textbox_change()

alors a vous et attend vos solutions
denis😉😉

 

[Excel-lent]

Re : textbox avec calcul a repetition

Bonsoir Dennnisss,

Suite au post de Vbacrumble, laissé sur ton autre fil traitant de la même chose voici ci-dessous une solution inspiré de son lien :

Option Explicit
Private MesObjets() As New Classe1
Private Sub UserForm_Initialize()
Dim ctrl As Control

For Each ctrl In Me.Controls
    If TypeOf ctrl Is Ronde.TextBox Then
        If Right(ctrl.Name, 2) <> "[COLOR="Red"][B]x1[/B][/COLOR]" Or Right(ctrl.Name, 2) <> "[COLOR="Blue"][B]x2[/B][/COLOR]" ... Then
            calcul
        End If
    End If
Next ctrl

End Sub

"x1" -> pour TextBox1 qui ne doit pas déclencher la macro "calcul"
"x2" -> pour TextBox2 qui ne doit pas déclencher la macro "calcul"

Il aurait été plus simple d'appeler tes TextBox ainsi :
TextBox001
TextBox002
TextBox003
...
TextBox010

Ainsi tu aurais pu écrire :
Right(ctrl.Name, 3) <> "001" plus facile et plus clair.

Ne pouvant tester le code, je ne garantis pas son bon fonctionnement, à tester.

Bon mercredi

 

[CBernardT]

Re : textbox avec calcul a repetition

Bonsoir Dennnisss et leforum,

Un essai de calcul des labels par boucle.

Cordialement

Bernard