Discussion :

[CélineM]

Bonjour,
J'aimerais faire saisir à l'utilisateur une valeurc pourcentage qui peut etre à virgule et ensuite la mettre dans une cellule. Je ne sais pas trop si il faut la convertir ??? et comment???
Merci de votre aide

Code :

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

1
2
3
4
Dim mavaleur As Single
mavaleur = InputBox(prompt:="Saisir la valeur Objectif:", _
Title:="Saisie de données")
Range("H19") = "=(" & CDec(mavaleur) & ")"

[wilfried_42]

Bonjour celine

Code :

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

1
2
3
Range("H19") = "=(" & CDec(mavaleur) & ")"
 
Range("H19").value = val(mavaleur) ' ----> devrait aller

essaie et dis nous

cordialement

wilfried

[CélineM]

Merci beaucoup ça marche très bien..
Merci encore

Bonne fin de journée