Additionner valeur dans cellule vba

[Jeremyy]

bonjour ,
voila je rempli des cellules avec des textbox d'un userform , mais voila le probleme est que quand j'écris deux fois dans la meme cellule 2 et 1 il me met "21" alors que je voudrais "3" j'ai essayé d'aditionner mais je n'ai pas réussi.

voici mon code actuel :

If Sheets(ComboBox1.Value).Range("A" & i) = CDate(TextBox4.Value) Then
Sheets(ComboBox1.Value).Range("B" & i) = Sheets(ComboBox1.Value).Range("B" & i) & TextBox1.Value
End if

Merci d'avance a tous

bonne après midi

 

[Pierrot93]

Re : Additionner valeur dans cellule vba

bonjour jeremy

tu as déjà posté ici :https://www.excel-downloads.com/threads/probleme-cellule.115100/ mais la question est toujours aussi flou, enfin pour moi... mets peut être un petit fichier en pièce jointe, sans données confidentielles, mais avec code et résultat attendu...

bon après midi
@+

 

[Gael]

Re : Additionner valeur dans cellule vba

Bonjour Jeremyy, Pierrot93,

le "&" servant à concaténer, il est normal qu'Excel te donne 21 comme résultat.

As-tu essayé avec un "+":

Sheets(ComboBox1.Value).Range("B" & i) [COLOR=red]+[/COLOR] TextBox1.Value

Il peut être nécessaire de mettre Textbox.value dans un format numérique avec une instruction comme Cint(Textbox.value) par exemple.

@+

Gael