deux colonnes

[fredo]

bonjour...

voila je regarde deux colonnes, si la valeur de la premiere est superieure à 0 alors je regarde la valeur de la deuxieme et si elle est inferierure a 0 alors j'increment mon compteur...
mais ça ne marche pas ...
why?????

Windows("indicateur_log(tests).xls").Activate
Range("AE2:AE20000").Select
Dim compt1
compt1 = 0
For Each c In Selection
If c.Value > 0 Then
If c.Offset(0, 1).Value < 0 Then
compt1 = compt1 + 1
End If
End If
Next c

 

[Robert]

Salut Fredo, salut le forum,

Essaie comme ça :

Windows("indicateur_log(tests).xls").Activate
Range("AE2:AE20000").Select
Dim compt1
compt1 = 0
For Each c In Selection
If c.Value > 0 And c.Offset(0, 1).Value < 0 Then
compt1 = compt1 + 1
End If
Next c

À plus,

Robert