Deux variables dans même colonne Fermé

Question

Bonjour, Je travaille actuellement sur des relevés de température et d'hygrométrie qui sont répertoriés dans l'ordre chronologique dans une feuille Excel. En Colonne B j'ai les temps t (format dd/mm/yy hh:mm), en C l'hygrométrie et en D la température. Pour chaque instant t de la colonne B il y a une valeur d'hygrométrie et de température. J'ai imposé une première condition sur l'hygrométrie : si l'hygrométrie est inférieure à 45% ou supérieure à 60%, les cellules de temps correspondantes (colonne B) sont coloriées d'une certaine couleur. J'aimerais maintenant repéré les moments pour lesquelles l'humidité varie de plus de 10% en moins de 24h. (La première condition est de borner l'hygrométrie entre 45 et 60% et la seconde est de limiter à 10% maximum les variations d'hygrométrie sur toute période de 24h). Mon outil sert donc à identifier tous les moments où ces deux conditions ne sont pas remplies. Pour cette deuxième condition, j'ai pensé faire de la manière suivante : - 1) Rechercher dans la colonne B, les couples de cellules pour lesquels la différence de valeur est supérieure ou égale à 10. (Hygro2 - Hygro1 >=10) - 2) Sélectionner parmi ces couples ceux pour lesquels la différence de temps (t2-t1) est inférieur à 24h. Je précise que les données sont données dans l'ordre chronologique. - 3) Envoyer un message sur la feuille excel dans une case adjacente (en colonne E par exemple) "de t2 à t1 l'hygrométrie à varier de plus de 10%", ou "en Xheures l'hygrométrie à varier de plus de 10%" avec X <= 24h. Ou sinon combiner les étapes 1) et 2) avec un "If Hygro2 - Hygro1 >=10 & t2 - t1 <= 24h" Then ... Ce qui me semble plus judicieux vu le nombre important de lignes que j'ai à traiter. Cependant, je n'ai pas réussi à obtenir des résultats corrects pour le moment. Cela peut paraître simple mais voici le code que j'ai écris : "" Sheets(2).Activate Dernligne102 = Range("C" & Rows.Count).End(xlUp).Row For jj = 2 To Dernligne102 For kk = 2 To Dernligne102 jj<>kk x = Cells(jj, 3).Value y = Cells(kk, 3).Value z = Cells(jj, 2).Value p = Cells(kk, 2).Value If (x - y) >= 10 And (z - p) <= 24 Then 'Correspond à si variations d'hygrométrie supérieur à 10% et variation de température inférieur à 24h Cells(jj, 2).Interior.ColorIndex = 35 Cells(kk, 2).Interior.ColorIndex = 35 'Je colorie les cellules, mais on peut également mettre un texte en face des cellules concernées End If Next kk Next jj "" Ce code a fait planté Excel. Trop de données à traiter? Faux? J'ai entre 5 et 10000 lignes dans ma colonne (et je devrai ultérieurement répéter cette opération sur une cinquantaine de colonne). Je ne suis pas sûr que la condition (z-p) <= 24 soit bien comprise à cause du format des dates en dd/mm/yy hh:mm. J'espère avoir été assez compréhensible dans cette explication, pensez-vous qu'il est possible de faire un code assez semblable et qui puisse traiter toutes ces informations. Merci beaucoup pour votre aide

Patrice33740 · Answer

Bonjour,

Tu pourrais utiliser des formules et des MFC
Pour détecter un écart >10% :
=(MAX($C1:$C48)-MIN($C1:$C48))>10% 
où C1:C48 représente une plage de 24h (ici une mesure toutes les 30 min)

Patrice33740 · Answer

Bonjour,

Avec une plage variable :
=(MAX(DECALER(C1;0;0;EQUIV(B1+1;B1:B$100000;0)-1))-MIN(DECALER(C1;0;0;EQUIV(B1+1;B1:B$100000;0)-1)))>10%
Cordialement
Patrice

Patrice33740 · Answer

Bonjour,

Explication de +1 et -1
B1 + 1 c'est B1 + un jour, c'est-à-dire le lendemain à la même heure.
...) - 1 c'est la valeur précédente.
1 jour complet, c'est toutes les valeurs depuis l'instant B1 jusqu'à l'instant qui précède la même heure le lendemain (car la même heure le lendemain, c'est déjà le jour suivant). 

Avec cette formule je supposais que les mesures sont effectuées à heure fixe. Effectivement si les relevés ne sont pas effectués à heure fixe, remplacer le 0 par 1 dans Equiv, semble résoudre le problème, à condition de supprimer le -1.
Cela ne fonctionne bien que si il n'y a pas de mesure effectuée le lendemain à la même heure, sinon cette dernière mesure est intégrée à tort dans la moyenne.

Pour avoir une formule précise, il faudrait connaitre l’intervalle de temps minimum entre 2 mesures.

Deux variables dans même colonne

3 réponses

Discussions similaires