Else sans if

[AKSooL]

j ai ce code , et il me mets toujours Else sans if , comprend pas

With Sheets("Résultats")
For k = 4 To 7500
If .Cells(k, 19) <> "" Then Sheets("Demande").Cells(k, 23).Value = "FINI"
Else
If .Cells(k, 15) <> "" Then Sheets("Demande").Cells(k, 23).Value = "En Vérification"
Else
If .Cells(k, 14) <> "" Then Sheets("Demande").Cells(k, 23).Value = "En cours"
Else
If .Cells(k, 11) <> "" Then Sheets("Demande").Cells(k, 23).Value = "En Attente"
Else Sheets("Demande").Cells(k, 23).Value = ""
End If
End If

End If
End If

Next
End With

 

[PascalXLD]

Re : Else sans if

Bonjour

quand tu ecris

If .Cells(k, 19) <> "" Then Sheets("Demande").Cells(k, 23).Value = "FINI"

c'est comme si tu ecrivais

If .Cells(k, 19) <> "" Then
Sheets("Demande").Cells(k, 23).Value = "FINI"
End if

car la partie après le then est à la suite

donc ton else qui suit se retrouve sans if avant

il faut ecrire

If .Cells(k, 19) <> "" Then
Sheets("Demande").Cells(k, 23).Value = "FINI"
Else
If .Cells(k, 15) <> "" Then
Sheets("Demande").Cells(k, 23).Value = "En Vérification"
Etc ....

Par contre tu dois pouvoir eviter en passant par un elseif regarde du coté de l'aide à ce sujet