affectation de textbox et addition sur feuil excel [ RESOLU]

[ILOVEUBB]

bonjour ou bonsoir
voila je suis nouveau sur ce forum et j’espère trouvez de l'aide parmi vous et apprendre de nouvel chose .
bon voila j'ai un USF avec Textbox qui est en lien avec la feuil1 je voudrai que quand j’introduis un nombre dans ce textbox il ajoute ce nombre dans la cellule C8 de la feuil1 mais en additionnent le contenue qui est déjà ajouté par une opération précédente similaire , puis le texbox se vide pour une nouvelle opération .
voila j’espère que j’étais assez claire .
merci pour votre aide d'avance ..
salut

 

[MichD]

Re : affectation de textbox et addition sur feuil excel

Bonjour,

En supposant que tu places ce code dans le formulaire et que le nom du textbox est Textbox1
Tu choisis l'événement de ton choix

'-------------------------------------
Dim Rg As Range, T As Variant
Set Rg = Worksheets("Feuil1").Range("C8")
With Me.TextBox1
T = Application.Substitute(Trim(.Value), ".", ",")
If IsNumeric(T) Then
Application.EnableEvents = False
Rg = Rg + CDbl(T)
.Value = ""
Application.EnableEvents = True
End If
End With
'-------------------------------------

 

[ILOVEUBB]

Re : affectation de textbox et addition sur feuil excel

Bonjour,

En supposant que tu places ce code dans le formulaire et que le nom du textbox est Textbox1
Tu choisis l'événement de ton choix

'-------------------------------------


Dim Rg As Range, T As Variant
Set Rg = Worksheets("Feuil1").Range("C8")
With Me.TextBox1
T = Application.Substitute(Trim(.Value), ".", ",")
If IsNumeric(T) Then
Application.EnableEvents = False
Rg = Rg + CDbl(T)
.Value = ""
Application.EnableEvents = True
End If
End With
'-------------------------------------

Bonjour MichD
merci beaucoup pour ta precieuse aide ,ton code fonctionne a merveille .