Boucle "if" avec multiplication

Bonjour,
j'ai une base de données de température sur laquelle je voudrai corriger les valeurs aberrantes.
Sur chaque ligne j'ai donc 3 colonnes: Date & Heure - Référence de la sonde - Température, et j'ai 300 000 lignes.

Je souhaiterai faire ceci:
Si la valeur de la Température est supérieur de plus de 30% de la valeur précédente, alors la cellule prend la valeur de Température précédente:

Code:

---

1 2 3 4 5

for i = 2 to NbLignes If cells ( i,3 ).value > cells(i-1 , 3)*1.3 then cells ( i,3 ) = cells ( i-1 , 3 ) End if Next i

---

La macro fonctionne lorsque je compare à un nombre entier: If cells ( i,3 ).value > 40 then
Cependant, excel me met un "incompatibilité de type" pour mon "1.3" et lorsque je met 1,3, on met demande une 'instruction de fin".

Quelqu'un aurait-il une solution ? Merci d'avance

Bonjour,

aucun souci si la saisie est bien un nombre et facilement testable via la fonction VBA IsNumeric,
VBA ne connaissant que le point comme séparateur décimal, tout ce que je peux répondre ici sur ce forum Général VBA …

_________________________________________________________________________________________________________

Je suis Paris, Istanbul, Berlin, Nice, Bruxelles, Charlie, …