boucler sur textbox

[billyboy]

Bonsoir,
je cherche à réaliser une boucle sur des textbox

"littéralement" ça donnerait ça:

si textbox nommé tx1 et textbox nommé nb1 sont différents de 0
alors textbox nommé to1 est égal à tx1 * nb1​

on reboucle ensuite avec tx2, nb2 et to2

J'ai essayé quelque chose comme ce qui suit, mais ça ne fonctionne pas.

Merci de votre aide


Private Sub CommandButton2_Click()

For i = 1 To 10

If Controls("tx" & i) And Controls("nb" & i) <> "" Then
Controls("to" & i).Value = Format((CDbl(Controls("tx" & i).Value) * CDbl(Controls("nb" & i).Value)), "#,##0.00 €")
End If

Next i

End Sub

 

[Hulk]

Re : boucler sur textbox

Hello,

Sans vouloir être pesant, déposes ton fichier sans données confidentielles.

Imagine faut qu'on monte un USF, mettre (si je ne me trompe pas) 20 textbox, les nommer... Enfin bref, plus facile si tu nous joins ton fichier.

Cdt, Hulk.

 

[Paritec]

Re : boucler sur textbox

Bonsoir hulk, billyboy
If Controls("tx" & i) <>"" And Controls("nb" & i) <> "" Then
comme cela je pense que ce sera bon
a+
papou 🙂

 

[billyboy]

Re : boucler sur textbox

bonsoir Hulk

Ci joint le fichier, il est en cours de réalisation et loin d'être au point ...
ma question se situe sur l'onglet cout et traitement de l'userform

merci d'avance

 

[Paritec]

Re : boucler sur textbox

Re billyboy Hulk le forum,
bah le fichier il a pas suivi tu l'as oublié !!!
a+
papou 😕

 

[billyboy]

Re : boucler sur textbox

mon fichier est trop lourd !

 

[billyboy]

Re : boucler sur textbox

merci pour ton aide Paritec
ça marche au poil

bonne soirée a vous

a+