Mes valeurs sont transformées en entier
Bonjour, j'ai monté un code pour un calcul des impôts. Tout est quasi ok sauf sur la situation familiale. Lorsque je transfère les valeurs de ma liste déroulante dans une cellule, les valeurs à virgule deviennent des valeurs entières.
par exemple: 2.5 dans la liste déroulante devient 25 dans la
par exemple 2.5 dans la liste deroulante devient 25 dans la cellule.
Je vous mets mon code.
je vous remercie d'avance pour votre disponibilité et votre aide.
Option Explicit
Dim final As Double
Private SubBox_calculer_Click()
If (Sheets("indices_et_igr").Cells(2, 4).Value = CBstatut.Value Or Sheets("indices_et_igr").Cells(3, 4).Value = CBstatut.Value) And CBenfant.Value = 0Then
Textpart.Value = 1
End If
If (Sheets("indices_et_igr").Cells(2, 4).Value = CBstatut.Value Or Sheets("indices_et_igr").Cells(3, 4).Value = CBstatut.Value) And CBenfant.Value = 1 Then
Textpart.Value = 2
End If
If (Sheets("indices_et_igr").Cells(2, 4).Value = CBstatut.Value Or Sheets("indices_et_igr").Cells(3, 4).Value = CBstatut.Value) And CBenfant.Value = 2 Then
Textpart.Value = 2.5
End If
End Sub
Private Sub Box_enregistrer_Click()
final = Textpart.Value
Sheets("Calcul salaire").Cells(12, 9) = final
End Sub
Private Sub Box_fermer_Click()
Unload Me
End
Sub
Bonjour,
Une textbox n'est pas une cellule, donc:
Textpart.Value = "2,5"Cdlt
ah ok il fallait juste que je mette les doubles cotes. Quand tu es débutant c'est pas facile