Papychou56
XLDnaute Nouveau
Bonjour à toutes et tous.
Papy appelle au secours...: j'ai créé un classeur avec plusieurs feuilles.
Une de ces feuilles est utilisée pour stocker les résultats de divers calculs.
Pour cela, la feuille en question (feuille "Calcul") comporte une incrémentation des lignes afin d'avoir le dernier résultat sur la dernière ligne.
Le calcul est effectué grâce à un coefficient attribué en fonction d'un choix.
Dans ces coefficients, il y en a comportant des décimales.
Mon problème est bien là: VBA ne veut pas prendre en compte la décimale
Si j'écris la décimale avec un ".", cette dernière est arrondie à la valeur entière supérieure (par exemple: 1.5 est arrondi à 2).
Si je l'écris avec une virgule ",", elle génère "une erreur de compilation. Attendu: fin d'instruction".
Comment puis-je solutionner mon problème?
Voici le code de la macro en question:
'Coefficient multiplicateur.
Sub coefmulti()
Dim coef%, Multiplicateur$
Worksheets("Calcul").Activate
Multiplicateur = Cells(der_ligne, 5)
Select Case (Multiplicateur)
Case "Choix 1"
coef = 1
Case "Choix 2"
coef = 1,5
Case "Choix 3"
coef = 2
Case "Choix 4"
coef = 4.5
Case "Choix 5"
coef = 6
End Select
Sheets("Résultat").Cells(4, 7).Value = coef
End Sub
Merci à tous.
Papy appelle au secours...: j'ai créé un classeur avec plusieurs feuilles.
Une de ces feuilles est utilisée pour stocker les résultats de divers calculs.
Pour cela, la feuille en question (feuille "Calcul") comporte une incrémentation des lignes afin d'avoir le dernier résultat sur la dernière ligne.
Le calcul est effectué grâce à un coefficient attribué en fonction d'un choix.
Dans ces coefficients, il y en a comportant des décimales.
Mon problème est bien là: VBA ne veut pas prendre en compte la décimale
Si j'écris la décimale avec un ".", cette dernière est arrondie à la valeur entière supérieure (par exemple: 1.5 est arrondi à 2).
Si je l'écris avec une virgule ",", elle génère "une erreur de compilation. Attendu: fin d'instruction".
Comment puis-je solutionner mon problème?
Voici le code de la macro en question:
'Coefficient multiplicateur.
Sub coefmulti()
Dim coef%, Multiplicateur$
Worksheets("Calcul").Activate
Multiplicateur = Cells(der_ligne, 5)
Select Case (Multiplicateur)
Case "Choix 1"
coef = 1
Case "Choix 2"
coef = 1,5
Case "Choix 3"
coef = 2
Case "Choix 4"
coef = 4.5
Case "Choix 5"
coef = 6
End Select
Sheets("Résultat").Cells(4, 7).Value = coef
End Sub
Merci à tous.