Discussion :

[remi2305]

Bonjour le forum,

Je souhaite effectuer le calcul suivant en vba :

"=10.96+(1.97+3.49)/" & heures & " + " & forfait & " "

Ma variable forfait peut être égale à 22.05 ou 21.30 ou 25.46 mais si je dimensionne la variable en tant que single ou variant pour prendre en compte les décimales, j'obtiens l'erreur 1004.
Par contre si je passe en integer le calcul s'effectue bien.

Auriez-vous une idée pour prendre en compte les décimales dans les calculs ?

Merci d'avance.

Rémi

[Philippe Tulliez]

Bonjour,
Pas certain d'avoir bien compris ce que tu souhaites mais je ne vois pas de problème pour travaille avec un nombre décimal avec le type Single

Code :

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

1
2
3
4
Sub t1()
 Dim forfait As Single
 forfait = 10.96 + (1.97 + 3.49)
 MsgBox forfait

Code :

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

1
2
3
4
5
Sub t2()
 Dim forfait As Single
 forfait = 22.05
 MsgBox "= 10.96 + (1.97 + 3.49)/ " & forfait
End Sub

[Quentin77170]

Salut à toi,

Est-il important que tu écrives cela dans une cellule ?? Pourquoi ne pas simplement faire ainsi :

Code :

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

1
2
3
4
5
6
7
8
9
Sub Test()
 
Dim Résultat As Single, heures As Single, Forfait As Single
heures = 12.5
forfait = 45.2
Résultat = 10.96 + (1.97 + 3.49) / heures + forfait
MsgBox Résultat
 
End Sub

[remi2305]

Bonjour,

Merci pour vos réponses.

J'avais mis dans mes cellules servant à remplir la variable forfait des "," et les aient remplacées par des "." (exemple : 22,05 remplacé par 22.05), ce qui permet à la macro de fonctionner.

Merci pour vos conseils.

Rémi

[vinc_bilb]

Bonjour,

Vous pouvez passer aussi par

Code :

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

Application.(DecimalSeparator, ThousandsSeparator) ou  Application.UseSystemSeparators = False

pour redéfinir éventuellement les séparateurs. Un test complémentaire pourrait-être comme

Code :

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

If InStr(1, InpS, Application.DecimalSeparator, vbTextCompare) > 0