ne rentre pas dans la boucle !!!

[Mica173]

Bonjour,
j'ai une macro qui appelle la macro suivante, et j'arrive meme pas à rentrer dans ma premiere boucle for et là je comprends pas:

[vba]
Public Sub Calcul_seuil()

'Trouve la conso max pour T>20°C'
sup = 0
MsgBox nb_donnees_filtre
For s = 4 To nombre_donnees_filtre + 3
If Worksheets("Filtre").Range("B" & s).Value > 20 Then
If Worksheets("Filtre").Range("C" & s).Value > sup Then sup = Worksheets("Filtre").Range("C" & s).Value
End If
Next
MsgBox sup
'Trouve la temperature max et inferieure à 20°C pour laquelle conso > conso max
inf = 0

For i = 4 To nombre_donnees_filtre + 3
MsgBox nb_donnees_filtre
If Worksheets("Filtre").Range("B" & l).Value < 20 Then
If Worksheets("Filtre").Range("C" & i).Value <= sup Then
If Worksheets("Filtre").Range("B" & i).Value > inf Then inf = Worksheets("Filtre").Range("B" & i).Value
End If
End If
Next

'donne Ts'
Ts = Int(inf)
End Sub
[/vba]

Si vous avez une idee...
Merci

 

[boub popsyteam]

Merci de remplacer tes balises [vba] par des

 ;)