Discussion :

[small_heart]

Hellloo a tous...

Les gars j'ai un probleme à la con... Voila je vous explique dans une feuille j'ai 3 texbox et un bouton. Quand j'appuie sur le bouton cela copie dans une cellule excel a part la somme des trois nombre et mon soucis est que si un des nombres présentent une virgule l'adition ne se fait pas j'ai un debogage dans le codage... Alors pour précision j'utilise le clavier numérique donc se n'est pas une virgule mais un point.

feuil10.range("resultat").value = feuil9.textbox1.value + feuil9.textbox2value + feuil9.textbox3value

voila et des que les nombres sont par exemple 12.5 + 15.6 + 65.2 et bien ca marche pas...



Merci enormement de vous occuper de moi je suis dans la merde je dois rendre ca ce soir... help me

[cafeine]

Hello,

les textbox ne renvoient pas de nombres, essaie

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

feuil10.range("resultat").value = CDbl(feuil9.textbox1.value) + CDbl(feuil9.textbox2value) + CDbl(feuil9.textbox3value)

[small_heart]

Ca marche pas..; voila ce que j'ai mis

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
 Feuil9.Range("i" & i + 2).Value = CDbl(Feuil10.compt_allu.Value) + CDbl(Feuil10.compt_tabletterie.Value) + CDbl(Feuil10.compt_cadeaux.Value) + CDbl(Feuil10.compt_papeterie.Value)

[SilkyRoad]

bonsoir

Tu dois remplacer les points par des virgules:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox Replace(Feuil1.TextBox1.Value, ".", ",") + 3

bon week end
michel

[small_heart]

j'ai pas trop compris ou il faut mettre ca et pourquoi dans un message box ? tu veux que je previenne l'utilisateur de mettre des virgules et pas des points ??

[SilkyRoad]

j'ai pas trop compris ou il faut mettre ca et pourquoi dans un message box ? tu veux que je previenne l'utilisateur de mettre des virgules et pas des points ??

??? ... ce n'était qu'un exemple ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Feuil9.Range("i" & i + 2).Value = Replace(Feuil10.compt_allu.Value, ".", ",") + _
    Replace(Feuil10.compt_tabletterie.Value, ".", ",") + Replace(Feuil10.compt_cadeaux.Value, ".", ",") + _
    Replace(Feuil10.compt_papeterie.Value, ".", ",")

michel

[small_heart]

franchement merci je suis trop content tu m'as vraiement enlevé un clou du pied... tu sais par contre g une qquestion moins importante mais si tu peux m'aider ca m'arrangerai.. sais tu passer d'un texbox a l'autre en appuyant sur tab moi ca mar che pas...