Probleme VBA et 0,5

Bonjour

J'ai un tableau VBA, qui a été construit pour garder le total de la somme de plusieurs cellules , même si j’efface leur contenu.

Tout fonctionne bien sauf si multiplie le contenu des cellules par 0,5, 2,5, 3,5 etc.....grace à un coefficient.

La valeur 0,5 ne s'additionne pas ou s'efface de la somme ?

Explication et démonstration dans le tableau ci-joint.

Merci de l'aide pour ce nouveau casse tête.

Bonne soirée

Norberlingo

Bonsoir

C'est la fonction Val

Extrait de l'aide

Remarques

La fonction Val arrête la lecture de la chaîne au premier caractère ne faisant apparemment pas partie d'un nombre. Les symboles et caractères fréquemment associés aux valeurs numériques, comme le signe $ et les virgules ne sont pas reconnus. En revanche, la fonction reconnaît les préfixes &O (pour octal) et &H (pour hexadécimal). Les espaces, les tabulations et les caractères de saut de ligne ne sont pas pris en compte dans l'argument.

Tu as 2 solutions

Je ne t'ai fait que pour le cas B6:B10

1ère solution

Modification

Target.Offset(0, 4).Value = Val(Replace(Target.Offset(0, 4).Value, ",", ".")) + Val(Target.Value) * 0.5

2ème solution

Remplacement

Target.Offset(0, 4).Value = Target.Offset(0, 4).Value + Target.Value * 0.5

A toi de corriger les autres cas

Bonjour

Merci infiniment, à présent ça fonctionne comme je le souhaitais.

Je me doutais que c'était un problème de décimal mais je ne pense pas que j'aurais pu trouver la solution.

En tous les cas encore merci. et félicitations pour toutes ces connaissances.

Bonne fin de journée.

A une prochaine peut être

Norberlingo