Interpolation température
Résolu/Fermé
qwerty_213
Messages postés
26
Date d'inscription
mardi 12 août 2014
Statut
Membre
Dernière intervention
22 février 2022
-
20 déc. 2016 à 16:41
Utilisateur anonyme - 29 déc. 2016 à 22:12
Utilisateur anonyme - 29 déc. 2016 à 22:12
A voir également:
- Interpolation température
- Temperature pc - Guide
- Interpolation linéaire excel ✓ - Forum Excel
- La température de votre téléphone est trop basse ✓ - Forum Samsung
- Temperature mac - Guide
- Interpolation polynomiale excel ✓ - Forum Excel
5 réponses
yg_be
Messages postés
21303
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
18 mars 2023
1 326
20 déc. 2016 à 20:55
20 déc. 2016 à 20:55
bonsoir Et quelle est la question, qu'attends-tu du forum?
Quelle programme utilises-tu?
Quelle programme utilises-tu?
Bonjour qwerty_213,
Je te propose ce fichier Excel 2007.
< Ctrl >< e > => travail effectué ; vérifie si tous les
résultats sont bien conformes à ceux que tu attends.
< Alt >< F11 > pour aller sur Visual Basic, puis revenir
sur ta feuille Excel ; la macro est dans Module1.
Dis-moi ce que tu en penses, et si ça te convient.
Tu peux me demander une adaptation si besoin.
Si ton problème est réglé, merci d'aller en haut de page
pour cliquer sur « Marquer comme résolu ».
Cordialement. :)
Je te propose ce fichier Excel 2007.
< Ctrl >< e > => travail effectué ; vérifie si tous les
résultats sont bien conformes à ceux que tu attends.
< Alt >< F11 > pour aller sur Visual Basic, puis revenir
sur ta feuille Excel ; la macro est dans Module1.
Dis-moi ce que tu en penses, et si ça te convient.
Tu peux me demander une adaptation si besoin.
Si ton problème est réglé, merci d'aller en haut de page
pour cliquer sur « Marquer comme résolu ».
Cordialement. :)
qwerty_213
Messages postés
26
Date d'inscription
mardi 12 août 2014
Statut
Membre
Dernière intervention
22 février 2022
20 déc. 2016 à 23:37
20 déc. 2016 à 23:37
merci albkan, cela marche très bien,
je vais l’intégrer dans mon programme global pour calculer la température sur plusiures années
je vais l’intégrer dans mon programme global pour calculer la température sur plusiures années
gbinforme
Messages postés
14939
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 656
20 déc. 2016 à 22:51
20 déc. 2016 à 22:51
Bonjour,
Avec tes données, un exemple de ce que l'on peux faire :
https://www.cjoint.com/c/FLuvYgEBg8l
Tu cliques sur "Interpoler" et si tu mets plus de données à gauche, le résultat s’agrandit.
Avec tes données, un exemple de ce que l'on peux faire :
https://www.cjoint.com/c/FLuvYgEBg8l
Tu cliques sur "Interpoler" et si tu mets plus de données à gauche, le résultat s’agrandit.
qwerty_213
Messages postés
26
Date d'inscription
mardi 12 août 2014
Statut
Membre
Dernière intervention
22 février 2022
21 déc. 2016 à 14:26
21 déc. 2016 à 14:26
ca marche aussi, merci gbinforme
gbinforme
Messages postés
14939
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 656
21 déc. 2016 à 21:24
21 déc. 2016 à 21:24
Bonsoir qwerty_213 et merci du retour.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Bonjour le forum,
Voici le code VBA de mon fichier Excel 2007 de mon message #3 :
Vous pouvez lire aussi la réponse du demandeur.
Cordialement. :)
Voici le code VBA de mon fichier Excel 2007 de mon message #3 :
Option Explicit
Sub Essai()
Application.ScreenUpdating = False
Dim dateH As Double, dateX As Double, dlig As Long
Dim ligA As Long, ligB As Long, k As Byte, i As Byte
Dim T1 As Single, T2 As Single, DT As Single, T3 As Single
dlig = Range("F" & Rows.Count).End(xlUp).Row
If dlig > 1 Then Range([F2], Cells(dlig, 9)).ClearContents
ligA = 2: ligB = 2
Do While Cells(ligA, 1) <> ""
k = Cells(ligA, 4): If IsEmpty(Cells(ligA + 1, 1)) Then k = 0
Range(Cells(ligA, 1), Cells(ligA, 3)).Copy: Cells(ligB, 6).PasteSpecial -4163
If k > 1 Then
dateH = Cells(ligA, 1) + Cells(ligA, 2)
T1 = Cells(ligA, 3): T2 = Cells(ligA + 1, 3): DT = (T2 - T1) / k: T3 = T1
For i = 1 To k
ligB = ligB + 1: dateH = dateH - (1 / 24): dateX = Int(dateH)
Cells(ligB, 6) = dateX: Cells(ligB, 7) = dateH - dateX
T3 = T3 + DT: Cells(ligB, 8) = Format(T3, "0.0")
Next i
Else
ligB = ligB + 1
End If
ligA = ligA + 1
Loop
Range([I2], Cells(ligB - 1, 9)) = 1: [A1].Select
Application.CutCopyMode = False
End Sub
Vous pouvez lire aussi la réponse du demandeur.
Cordialement. :)