Probleme cellule

[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

 

[Robert]

Re : Probleme cellule

Bonjour Jeremyy, bonjour le forum

Essaie peut-être comme ça :

If Sheets(ComboBox1.Value).Range("A" & i) = CDate(TextBox4.Value) Then
Sheets(ComboBox1.Value).Range("B" & i) = [COLOR=red]CInt([/COLOR]Sheets(ComboBox1.Value).Range("B" & i)[COLOR=red])[/COLOR] [COLOR=red]+[/COLOR] [COLOR=red]CInt([/COLOR]TextBox1.Value[COLOR=red])[/COLOR]
End if

 

[Jeremyy]

Re : Probleme cellule

Merci Robert ,

cela fonctionne parfaitement.

Peux tu m'expliquer la fonction CInt ? ( je suis curieux )

Merci bonne journée !

 

[Robert]

Re : Probleme cellule

Bonjour Jeremyy, bonjour le forum,

CInt convertit l'expression entre parenthèses en valeur de type Integer (entier) car parfois la récupération d'une donnée est faite sous forme de String (Texte). "2" au lieu de 2 ce qui provoque un erreur. Pour plus de renseignements tu sélectionnes CInt dans ton code et tu appuies sur la touche [F1].