Discussion :

[captaine93]

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 :

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

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

[ucfoutu]

Bonsoir,

je note une contradiction entre :

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 :

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

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

Explique ...

[captaine93]

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
Sorry