Macro couplé avec outils de simulation
Bonjour,
je vous explique mon problème, je travail avec un logiciel de simulation thermique qui simule par pas de temps horaire plusieurs équations. Un module relève en temps réel l'heure et une donnée. Via ce module je peux lire en temps réel sur excel tout ca. J'ai donc dans 2 cellules différentes, durant la simulation, l'heure qui défile avec l'évolution de la donnée.
Je veux créer un macro qui, chaque 100 H relève la donnée et l'inscrit dans une autre cellule.
Je n'y arrive pas, ca marche pour le premier 100h seulement.
Voici ma macro:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
| Sub TRNSYS(Optional Input1 As Variant, _
Optional Input2 As Variant, _
Optional Input3 As Variant, _
Optional Input4 As Variant, _
Optional Input5 As Variant, _
Optional Input6 As Variant, _
Optional Input7 As Variant, _
Optional Input8 As Variant, _
Optional Input9 As Variant, _
Optional Input10 As Variant)
If IsMissing(Input1) Then Exit Sub
If IsMissing(Input2) Then Exit Sub
If IsMissing(Input3) Then Exit Sub
n = 1
Range("inp1") = Input1
Range("inp2") = Input2
Range("inp3") = Input3
Range("E10") = n
If Input3 = n * 100 Then
n = 1 + n
Range("F10") = n
Cells(10, 10 + n).Value = Input2 / 3600
End If
End Sub |
input3 c'est l'heure, donc je multiplie par n pour que à chaque 100h le programme rentre dans la boucle IF... enf IF.
Ca ne fonctionne pas...
Merci beaucoup
Cordialement
