pb de condition

bonsoir,
J'ai l'impression que la condition (Index - 1) n'est pas comprise...pas d'erreur mais instruction non prise en compte. Je cherche à copier les cases en colonne 6 et 7 si celle en colonne 7 est >0 et celle juste au dessus est < 0 et comporte n800 dans les 4 derniers caractères.
Merci à ceux qui pourront m'aider;)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Range("a1").Select     For Index = 3 To 1000 If (Cells(Index, 7) > 0 And Cells((Index - 1), 7)< 0 And Right(Cells(Index, 8), 4) = "n800") Then     Range(Cells(Index, 6), Cells(Index, 7)).Select   Selection.Copy Range(Cells(Index, 14), Cells(Index, 15)).Select ActiveSheet.Paste End If   Next Index

---

Bonsoir,

je note une contradiction entre :

Citation:

---

Envoyé par captaine93

Je cherche à copier les cases en colonne 6 et 7 si celle en colonne 7 est >0 et celle juste au dessus est < 0 et comporte n800 dans les 4 derniers caractères.

---

Code:

---

If (Cells(Index, 7) > 0 And Cells((Index - 1), 7)< 0 And Right(Cells(Index, 8), 4) = "n800") Then

---

Explique ...

Milles excuses d'avoir posté pour rien...j avais pas les yeux en face des trous !
J'me suis trompé de case en comparant...la honte:oops::oops:
Sorry:oops: