Bonjour,

j'ai un petit soucis, et j'ai peur de ne pas saisir le problème logique qu'il se pose.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
30
31
32
33
34
35
36
37
38
 
Sub optireac()
 
With ActiveWorkbook
 
Dim i As Integer
Dim j As Integer
Dim k As Integer
 
k = 1
 
For j = 3 To 47 Step 4
 
    For i = 1 To 8927
 
 
        If Abs(ActiveWorkbook.Exploitation.Cells(10, 4).Value - ActiveWorkbook.TUD31.Cells(i, j).Value) < 1 Then
 
        ' on compare la température de l'eau entrée par rapport à celle stockée dans la base
        ' si la différence est inférieure à 1°C, on la garde
 
        ActiveWorkbook.Calculs.Cells(k, 2).Value = ActiveWorkbook.TUD31.Cells(i, j).Value
        ' on stocke la valeur dans la feuille calcul, deuxième colonne
 
        ActiveWorkbook.Calculs.Cells(k, 1).Value = ActiveWorkbook.TUD31.Cells(i, j - 1).Value + ActiveWorkbook.TUD31.Cells(i, j - 2).Value
        ' on stocke la date dans la feuille calcul, première colonne
 
        k = k + 1
 
        End If
 
    Next i
 
Next j
 
End With
 
End Sub
J'ai un historique de données. Je veux comparer une température, par exemple 17°C, insérée dans la feuille Exploitation, cellule D10 et la comparer à cet historique (inscrit sur la feuille TUD31) en ne gardant que les valeurs qui s'en rapprochent à 1 degré près. Ceci se fait dans la feuille Calculs. Le pas de 4 pour j est lié au fait que mes données de température ne sont affichées que toutes les 4 colonnes.

Je suppose que mon problème est lié aux types des variables, mais je ne sais pas trop comment m'en dépatouiller. Quelqu'un saurait-il m'expliquer où se situe mon erreur?

D'avance merci!