Bonjour,

Voici ma fonction, je n'arrive pas à la faire marcher lorsque je met un nombre avec des décimales type : "1,96"....:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Public T As Variant
Public D As Double
Public C As Integer
 
Sub Trahison()
 
T = InputBox("Quelle prime souhaitez vous donner à la stratégie T ?", "Prime")
T = CDbl(Replace(T, ".", ","))
D = InputBox("Combien de défectueux (le nombre de coopératif en sera déduit) ?", "Individus défectueux")
End Sub
Avez vous une idée de comment faire pour que mon InputBox tienne compte des nombres entiers et décimaux à la fois...

Merci beaucoup,
Cordialement.