Interpolation de températures Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
q
qwerty_213
Jeune membre
Jeune membre
Messages : 20
Inscrit le : 27 juin 2016
Version d'Excel : 2010

Message par qwerty_213 » 20 décembre 2016, 16:48

Bonjour,

Je souhaiterai écrire une macro VBA qui effectue une interpolation de température avec un pas fixe d'1 heure, à partir de données récupérées avec des pas variables.
date               heure       T°C      diff heure
13/07/2013	00:00:00	33,2	    3
12/07/2013	21:00:00	35,2	    3
12/07/2013	18:00:00	38,6	    3
12/07/2013	15:00:00	40	    3
12/07/2013	12:00:00	38,4	    3
12/07/2013	09:00:00	33,2	    3
12/07/2013	06:00:00	30,8	    1
12/07/2013	05:00:00	30,8	    2
12/07/2013	03:00:00	30,8	    3
12/07/2013	00:00:00	32,6	    1
11/07/2013	23:00:00	32,6	    2
11/07/2013	21:00:00	34	    3
par exemple, je souhaite interpoler [33,2°C] et [35,2°C] cela donne une température moyennée entre les deux avec un pas d'une heure
date               heure        T°C      diff heure
13/07/2013	00:00:00	33,2	    1
12/07/2013	23:00:00	33,8	    1
12/07/2013	22:00:00	34,4	    1
12/07/2013	21:00:00	35,2	    1
q
qwerty_213
Jeune membre
Jeune membre
Messages : 20
Inscrit le : 27 juin 2016
Version d'Excel : 2010

Message par qwerty_213 » 20 décembre 2016, 21:14

je souhaite connaitre qu'elle serait la macro VBA capable de lire la mesure de température journalière tout les 3h et l'interpoler vers un pas d'1h

c'est à dire écrire un programme:
- qui lis la différence d'heure entre deux dates consécutives
- puis crée un décalage de ligne équivalent à cette différence
- puis remplis les cellules vides avec des températures entre la première et la dernière valeur
Avatar du membre
eriiic
Passionné d'Excel
Passionné d'Excel
Messages : 9'407
Appréciations reçues : 403
Inscrit le : 7 février 2010
Version d'Excel : 2010fr

Message par eriiic » 20 décembre 2016, 22:33

Bonjour,

Je m'apprétais à m'y mettre mais comme tu as posté sur d'autres forums je ne vais pas prendre le risque de bosser pour rien.
Tu as peut-être déjà la réponse ailleurs...
eric
En essayant continuellement, on finit par réussir.
Donc plus ça rate, plus on a de chances que ça marche.
(les Shadoks)

En plus du merci (si si, ça se fait !!!), penser à mettre en résolu. Merci
Avatar du membre
curulis57
Passionné d'Excel
Passionné d'Excel
Messages : 3'747
Appréciations reçues : 226
Inscrit le : 4 janvier 2016
Version d'Excel : 2016 FR / 2019 FR

Message par curulis57 » 21 décembre 2016, 00:37

Bonsoir le forum,
Salut Qwerty, Eriic,

voilà ton fichier, sans aucun souci esthétique : le calcul brut.
Juste un bouton rouge à cliquer!

:)
A+
MoyenneT.xlsm
(22.72 Kio) Téléchargé 43 fois
q
qwerty_213
Jeune membre
Jeune membre
Messages : 20
Inscrit le : 27 juin 2016
Version d'Excel : 2010

Message par qwerty_213 » 21 décembre 2016, 08:43

merci curulis57 , le programme marche bien

PS. j'ai supprimé les deux lignes ci dessous, pour voir mieux le décalage des dates/heures lors de l'interpolation
.Cells(iLig, 6) = Split(DateAdd("h", -y, dDate), " ")(0)
.Cells(iLig, 7) = Split(DateAdd("h", -y, dDate), " ")(1)
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message