Discussion :

[Aubencheulobois]

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!

[Chipss]

Bonjour,

L'erreur se trouve à quelle ligne exactement?


Chipss

[Aubencheulobois]

Bonjour,

effectivement, j'ai omis de le préciser. C'est sur la ligne suivante:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
 
 If Abs(ActiveWorkbook.Exploitation.Cells(10, 4).Value - ActiveWorkbook.TUD31.Cells(i, j).Value) < 1 Then

J'ai testé plusieurs combinaisons sans succès, l'erreur reste la même

[Chipss]

A la place de "Exploitation", "TUD31" et "Calculs" met sheets("Exploitation"),sheets("TUD31") et sheets("Calculs") et si ca marche toujours pas essaye sheets("Exploitation.xls")...

[JeanSairien]

Bonjour,

L'erreur viens du fait que Abs() tout seul ne fonctionne pas. Il faut :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
dim MaVarTest as integer
 
If (MaVarTest = Abs(ActiveWorkbook.Exploitation.Cells(10, 4).Value - ActiveWorkbook.TUD31.Cells(i, j).Value)) < 1 Then

Et la ça devrait fonctionner.

[Aubencheulobois]

Ok, ça marche! C'est vraiment sympa de ta part!

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
39
40
 
 
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.Sheets("Exploitation").Cells(10, 4).Value - ActiveWorkbook.Sheets("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.Sheets("Calculs").Cells(k, 2).Value = ActiveWorkbook.Sheets("TUD31").Cells(i, j).Value
        ' on stocke la valeur dans la feuille calcul, deuxième colonne
 
        ActiveWorkbook.Sheets("Calculs").Cells(k, 1).Value = ActiveWorkbook.Sheets("TUD31").Cells(i, j - 1).Value + ActiveWorkbook.Sheets("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

Encore une subtilité VBA qui me dépasse, mais j'apprends! Un grand merci à toi Chipss!

Edit: je viens de voir ta réponse JeanSairien, je vais tester ça aussi. Merci!