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