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

Kernoz · 2 Février 2015

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 :

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 · 2 Février 2015

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

bonsoir

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
Next i

ou

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
Next i

camarchepas · 2 Février 2015

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

Re

ou

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" or Not IsNumeric(Cells(i, 17).Value) Then Rows(i).Delete
Next i

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

Kernoz

XLDnaute Occasionnel

camarchepas

XLDnaute Barbatruc

camarchepas

XLDnaute Barbatruc

Discussions similaires

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

Kernoz

XLDnaute Occasionnel

camarchepas

XLDnaute Barbatruc

camarchepas

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency