Bonjour à tous,

Je débute dans la programmation VBA et notamment pour l'application excel.

J'ai extrait des dates de ms project et je voudrais les comparer pour pouvoir écrire dans une cellule : fait, en cours, à faire.

Voici ce que j'ai écris comme programme

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Sub etat()
 
Dim sysdate As Date
sysdate = Format(DateSerial(Year(Date), Month(Date), Day(Date)), "dd/mm/yyyy")
 
If sysdate < DateSerial(2016, 11, 3) And sysdate > DateSerial(2016, 11, 3) Then
Columns(7) = "Fait"
'Ton traitement
 
End If
 
End Sub
Lorsque j'exécute la macro rien ne se passe.

Avez-vous des idées ?

Merci