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
Sans résultat
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 ...
Puis ceci
Sans résultat non plus
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 If ActiveWorkbook.Sheets("Feuil1").Range("A1").FormulaLocal = "Aujourdhui()" ...
Une chtite idée les amis?
Merci
Partager