bonjour,
ouin ouin mon premier poste n'a pas pris preneur d'aide tant pis
j'me débrouille tant bien que mal
voila j'ai fais un script mais j'ai un problème de syntaxe ligne 9
est-ce que qulqu'un peut m'aider
merci
 
Dim i As Integer, j As Integer, k As Integer
For k = 1 To 4 Step 3
For j = 1 To 4 Step 2
For i = 5 To 1000
Windows("temoinsanstete.xls" ).Activate
Sheets(k).Activate
If Cells(i, j).Value < 0 Then
If Cells(i + 1, j).Value > 0 Then
Range(i + 1, j: i + 1, j + 1).Copy
Windows("ValeurSignificativesurRDC.xls" ).Activate
Sheets(k).Activate
Cells(5, j).Select
Selection.Paste
End If
End If
Next i
Next j
Next k
End Sub

bonsoir,
essaie voir comme çà :

A+

nickel
merci

je reviens car lorsque je change la valeur ligne 6 et 7
je passe de 0 à -90
aucune cellule n'est copiée bizarre non?
 
Dim i As Integer, j As Integer, k As Integer
For j = 1 To 70 Step 2
For i = 5 To 1000
Windows("temoinsanstete.xls" ).Activate
Sheets(2).Activate
If Cells(i, j).Value < -90 Then
If Cells(i + 1, j).Value > -90 Then
Range(Cells(i + 1, j), Cells(i + 1, j + 1)).Copy
Windows("ValeurSignificativesurRDC.xls" ).Activate
Sheets(2).Activate
Cells(5, j).Select
ActiveSheet.Paste
End If
End If
Next i
Next j
End Sub

Dim i As Integer, j As Integer, k As Integer
For j = 1 To 70 Step 2
For i = 5 To 1000
Windows("temoinsanstete.xls" ).Activate
Sheets(2).Activate
If Cells(i, j).Value > -90 Then
If Cells(i + 1, j).Value < -90 Then
Range(Cells(i + 1, j), Cells(i + 1, j + 1)).Copy
Windows("ValeurSignificativesurRDC.xls" ).Activate
Sheets(2).Activate
Cells(5, j).Select
ActiveSheet.Paste
End If
End If
Next i
Next j
End Sub
 
Et là ?

oui c'est bon
pourquoi le fait de mettre > avant < change l'affaire?

Bonne question. Quand tu passe d'une valeur positive a une valeur négative, il faut penser a inverser le signe

ok merci