Bonjour à tous

je but sur un truc bête...
selon un choix dans une combobox, le montant que j'inscrit dans une inputbox doit lorsqu'il s'inscrit dans la cellule ajouté la valeur 22
si je met à mon chiffre un point au lieu d'une virgule, aucune valeur ne s'inscrit

voici le code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
 
 
Dim i As Byte, Indice As Byte, derlig As Integer
Dim pv As Byte
Dim numdl As Integer
pv = Controls("txt_pv" & Format(i, "00"))
 
 If .Range("c" & Indice + derlig).Value = "Leger Garantie" _
             Then .Range("f" & Indice + derlig) = Controls("txt_pv" & Format(i, "00")) + 22 _
               Else .Range("f" & Indice + derlig) = Controls("txt_pv" & Format(i, "00"))
Merci pour votre aide