If .. Then ne fonctionne pas ?

Bonjour à tous,

J'ai déja honte de mettre ce post mais j'ai pas le choix ^^

J'aimerai juste que si la date d'une cellule est inférieur à une autre, alors un texte s'inscrit dans une cellule suivante (En cours, ou en retard, etc.)

Voila le fichier, je penses pas avoir fait d'erreur mais cela ne fonctionne pas

Désolé d'avance si vous ne voyez pas de End If, mais si je le rajoute, VBA me dit Bloc End If sans If (ce qui est complètement faux)

Merci d'avance

Bonjour Enzo, bonjour le forum,

Où est ton problème ? Ton code fonctionne ! J'aurais plutôt écrit :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For i = 3 To 100
    If Cells(1, 4) > Cells(i, 9).Value And Cells(i, 9).Value <> "" Then Cells(i, 18) = "En Cours"
Next i
End Sub

Quant au End If, il ne doit pas être utiliser dans ce cas. C'est soit :

If Condition Then Code si condition est vraie

Soit :

If Condition Then
   Code si Condition est vrai
End If

La seconde manière est surtout utilisée quand on plusieurs choses à effectuer (plusieurs lignes de code) quand la condition est vraie...

Salut ThauThème

Si mon code fonctionne, c'est encore plus gênant ça veut dire que mes macros passent plus au boulot alors ...

Merci pour tes conseils en tout cas concernant la fonction If ...

Enzo