Salut voila mon probleme, g un message d'erreur m'indiquant next sans for alors que toutes les boucles sont bien delimitees ?????
With Worksheets(AuxMatrix(j)) MsgBox AuxMatrix(j) N = 0 For i = 5 To 5000
If .Cells(i, 2) = "" And Cells(i + 1, 2) = "" Then For w = 1 To 5 If Cells(i, 2 + w) = "" Then N = i Exit For End If Next w If N <> 0 Then N = i Exit For End If End If
If N - 1 > Last_Data Then Last_Data = N - 1 End If
Marsh Posté le 01-08-2005 à 11:51:21
Salut voila mon probleme, g un message d'erreur m'indiquant next sans for alors que toutes les boucles sont bien delimitees ?????
With Worksheets(AuxMatrix(j))
MsgBox AuxMatrix(j)
N = 0
For i = 5 To 5000
If .Cells(i, 2) = "" And Cells(i + 1, 2) = "" Then
For w = 1 To 5
If Cells(i, 2 + w) = "" Then
N = i
Exit For
End If
Next w
If N <> 0 Then
N = i
Exit For
End If
End If
If N - 1 > Last_Data Then
Last_Data = N - 1
End If
Next i
Next j
Ou est le probleme?
merci d'avance