Discussion :

[ThibautOr]

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 :

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

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

[Marc-L]

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, …