Contrôler les écarts de durée

Re : Contrôler les écarts de durée

bonjour Chris
pour supprimer des lignes il faut commencer par la fin
essaye ce code
For j = LIGNEdernierRELEVE To LIGNEimport Step -1
If Cells(j, 2) < CDate("00:20") Then ' Si écart < 20 min
Cells(j, 2).EntireRow.Delete
End If
Next j

à bientôt

Re : Contrôler les écarts de durée

Hello, Bebere et merci pour ta proposition.
J'avais pensé à cette solution très simple, mais je ne voulais pas me retrouver avec des écarts trop importants entre 2 valeurs. En faisant ça, j'ai par exemple quelques écarts supérieurs à 50 min ! Mais en cherchant à tout recalculer pour obtenir des écarts de 30min cela représente un calcul de fou. Sans parler de la durée d'exécution de la macro (la tienne prend presque 3 min, c'est pour dire)

En fait j'ai fouillé la notice de la station météo et j'ai trouvé d'où vient le problème : le logiciel qui collecte les données dans le PC (XNet_Meteo) est un mini logiciel en tâche de fond qui inscrit les mesures dans un fichier .csv.
C'est lui que j'ai paramétré pour enregistrer un point toutes les 30min. Mais lorsque le PC est arrêté, c'est la station météo qui stocke les données en mémoire interne.
Une fois redémarré, XNet_Meteo cherche à combler les trous ! Il récupère tout ce qu'il y a dans la mémoire de la station, qui elle enregistrait une mesure toutes les 1min !!

J'ai donc reprogrammé la station pour un point toutes les 15 min (c'est le max possible). Donc c'est déjà bien mieux, surtout que mon PC de bureau est rarement à l'arrêt !

Re : Contrôler les écarts de durée

chris en
pour accélérer
en début de code
application.screenupdating=false
en fin
application.screenupdating=true
pour recalculer met un exemple
tu as le temps je suis absent jusque mardi
peut être que quelqu'un reprendra le flambeau
à bientôt

Re : Contrôler les écarts de durée

ouh là Berbere, j'ai passé l'étape de l'apprentissage du VBA (je suis depuis 6 ans sur le forum et je programme depuis 1998) ! Je connais bien ces commandes pour bloquer le rafraichissement de l'image. Il y aussi le blocage du calcul durant une procédure :
Application.Calculation = xlManual

mais comme je le dis plus haut, j'ai réglé mon problème qui provenait de la station météo.

merci !