Discussion :

[djoumusic]

Bonjour
dans un userform, j'ai 2 textbox et un bouton valider

l'idée est que le premier chiffre de la textbox1 additionne en fonction de sa valeur le nombre de la textbox2 autant de fois que la valeur de la textbox1 en formule dans la cellule active.

exemple si textbox1 =3 et textbox2 = 4 que la formule de la cellule active soit
+4+4+4

je n'y arrive pas..

merci!

julien

[tototiti2008]

Bonjour djmousic,

peut-être

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Dim Formule as String, i as long, j as long
Formule = "="
if Isnumeric(textbox1.text) and isnumeric(textbox2.text) then
i = clng(textbox1)
if cdbl(textbox2.text)>0 then
for j =1 to i
formule = formule & "+" & textbox2.text
next j
else
for j =1 to i
formule = formule & textbox2.text
next j
end if
Activecell.Formula = Formule
end if

[djoumusic]

nikel !!
merci beaucoup !