For / If / Next ( End If sans bloc If )

[Kernoz]

Bonjour à tous,

J'ai un petit soucis avec un bout de code ... Je voudrais mettre plusieurs "If" dans mon "For" ( 2 dans l'exemple à suivre ) mais j'ai un message d'erreur "End If sans bloc If"

Ca doit pas être grand chose mais n'ayant pas le niveau et apres quelques recherches infructeuses sur le net ...

Voici le code :

Dim i As Long
For i = Range("A65535").End(xlUp).Row To 9 Step -1
If Cells(i, 15) = "AMONT" Or Cells(i, 15) = "FL SUO" Then Rows(i).Delete
    If Not IsNumeric(Cells(i, 17).Value) Then Rows(i).Delete
End If
End If
Next i

Merci d'avance !

 

[camarchepas]

Re : For / If / Next ( End If sans bloc If )

bonsoir

Dim i As Long
For i = Range("A65535").End(xlUp).Row To 9 Step -1
 If Cells(i, 15) = "AMONT" Or Cells(i, 15) = "FL SUO" Then Rows(i).Delete
    If Not IsNumeric(Cells(i, 17).Value) Then 
        Rows(i).Delete
    End If
Next i

ou

Dim i As Long
For i = Range("A65535").End(xlUp).Row To 9 Step -1
  If Cells(i, 15) = "AMONT" Or Cells(i, 15) = "FL SUO" Then Rows(i).Delete
  If Not IsNumeric(Cells(i, 17).Value) Then Rows(i).Delete
Next i

 

[camarchepas]

Re : For / If / Next ( End If sans bloc If )

Re

ou

Dim i As Long
For i = Range("A65535").End(xlUp).Row To 9 Step -1
  If Cells(i, 15) = "AMONT" Or Cells(i, 15) = "FL SUO" or Not IsNumeric(Cells(i, 17).Value) Then Rows(i).Delete
Next i