Else sans If dans boucle While...

[Justa]

Bonjour à tous,

J'ai cherché dans le forum mais n'ai pas trouvé réponse à ma question, je vous la pose donc :
J'ai une condition if insérée dans une boucle while mais lorsque je lance la macro (qui contient d'autres choses) celle-ci m'indique une erreur "Else sans If".

Voici le code :

Dim intJ As Integer
intJ = 2
Do While Cells(intJ, 1) <> ""

If Cells(intJ, 27) <> 0 Then Cells(intJ, 29) = 1
Else
Cells(intJ, 29) = 0
End If

Loop

Dim intK As Integer
intK = 2
Do While Cells(intK, 1) <> ""
If Cells(intK, 38) = "Ordure ménagère issue collecte sélective" Then Cells(intK, 41) = Cells(intK, 40)
Else
Cells(intK, 41) = 0
End If

Loop

Merci beaucoup de votre aide.

 

[mutzik]

Re : Else sans If dans boucle While...

bonjour,

faut faire :
If Cells(intJ, 27) <> 0 Then
Cells(intJ, 29) = 1
Else
Cells(intJ, 29) = 0
End If

car si tu mets la fin du then ... sur la même ligne, VBA termine le if CQFD

 

[Justa]

Re : Else sans If dans boucle While...

Merci beaucoup !!!