alimenter cellule et fait l'addition

[pascal21]

bonjour
j'alimente une cellule(a2) 'coût d'entretien grace à une textbox
pour l'instant j'utilise une formule circulaire en cochant 'iteration'
ex: en a1 =a1+a2 ça fonctionne mais dans le classeur que je monte je suis gené
donc est-il possible de se passer de la cellule a2 pour obtenir le même résultat
c'est à dire que le contenu déjà présent dans a1 s'additionne avec le nouveau contenu de la textbox
ex: en a1 a1+ contenu texbox
soit par ex. 10 +(nouveau contenu textbox)12 = 21
21+ (nouveau contenu textbox) 15 = 36
merci

 

[ERIC S]

Bonjour

un exemple :


Sub essai()
récup = Range('A1').Value
offs = InputBox('valeur à ajouter')
valid = MsgBox('la nouvelle valeur sera ' & récup + offs, vbYesNo)
If valid = vbNo Then Exit Sub
Range('A1').Value = récup + offs

End Sub

A+

 

[porcinet82]

Salut Pascal21, ERIC S,

Une autre solution toute simple, avec le code suivant:

cells(1,1).value=cells(1,1).value+textbox1.value

A incorporer dans le code de ton USF.

@+