Saisie incrémentée

[Wyrgle]

Bonjour a tous,

Je dois améliorer quelques fichiers de reporting pour mon boulot, et suis confronté au probleme suivant :

Je cerche a automatiser la saisie d’une valeur V1 que j’incremente chaque heure.
Pour cerla je cree un USERFORM avec comme code :
Private Sub TextBox1_Change()
[A1] = [A1] + UserForm_Input_V1.TextBox1
End Sub

Le probleme : si je rajoute 122 par exemple en cellule A1, Excel me rajoute 1+12+122 soit 135.
Comment resoudre cela ?

Je parcours les forums sans resultats.
Merci de votre aide

 

[Dull]

Re : Saisie incrémentée

Salut Wyrgle et Bienvenue, Le Forum

Essaye plutôt ça

Private Sub TextBox1_[B]AfterUpdate[/B]()
    [A1] = [A1] + UserForm_Input_V1.TextBox1
End Sub

Bonne Journée