Bonjour tout le monde comment peut on émettre une condition si une cellule est égale à "=Aujourdhui()" sachant =que le format de ma cellule donne un résultat comme ceci "14-Apr-11" la formule de cette cellule est "=Aujourdhui()"
J'ai testé plusieurs choses
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
 
Dim ThisMonth As Variant: ThisMonth = Array("Jan", "Feb", "Mar", "Apr", "May", "Jun" _
                                        , "Jul", "Aug", "Sep", "Oct", "Nov", "Dec")
    Dim thisDate As String
    thisDate = Format$(Date, "dd") & "-" & ThisMonth(month(Date) - 1) & "-" & Format$(Date, "yy")
 
If ActiveWorkbook.Sheets("Feuil1").Range("A1").Value = thisDate Then
...
Sans résultat
Puis ceci
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
 
If ActiveWorkbook.Sheets("Feuil1").Range("A1").FormulaLocal = "Aujourdhui()"
...
Sans résultat non plus
Une chtite idée les amis?
Merci