comparer si cellule = à aujourdhui

**bakman** · 14/04/2011, 11h05

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

**gFZT82** · 14/04/2011, 11h38

Bonjour bakman,

Et avec ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If ActiveWorkbook.Sheets("Feuil1").Range("A1").FormulaLocal = "=Aujourdhui()"

**bakman** · 14/04/2011, 12h11

Heu si tu lit mon post le deuxieme code s'est exactement la même formule que tu propose

Mais j'ai résolu le problème

En effet une cellule avec un format de date tel jj-mmm-yy et la formule "=aujourdhui()" VBA la valeur à dd/mm/yyyy du coup voila ce que j'ai fait

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Dim thisDate As String
thisDate = Format$(Date, "dd/mm/yyyy")
If ActiveWorkbook.Sheets("Feuil1").Range("A1") = thisDate Then
...

Et ca fonctionne!
Merci quand même ! A bientot

**dodo69** · 14/04/2011, 12h15

salut

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub voila()
 
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")
    Range("A1") = thisDate
    Range("A1").NumberFormat = "[$-409]dd-mmm-yy;@"
    If Range("A1").Value = Date Then
 End Sub

si j'ai bien compris ca devrai marché

ps: bon ba aparemment tu as trouver une sol aussi

sensiblement la même

**MarcelG** · 14/04/2011, 12h29

Bonjour,

Je ne crois pas qu'il soit nécessaire de passer par le format de la date.
Seule la valeur compte.

Exemple :

Si tu as informé la cellule A14 de la date 14/4/11, affiché 14 avril 11, le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Debug.Print Range("A14") = Date

te renvoie

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Vrai

**Theze** · 14/04/2011, 13h07

Bonjour,

Juste une petite précision, Excel considère que 1 vaut 1 jour et que 1/24 vaut une heure. Le chiffre 1 représentant le 01/01/1900 donc, le nombre 40647 réprésente aujourd'hui (14/04/2001) Comme le dit si bien Marcel, il faut donc comparer des valeurs et non des dates, les fonctions d'Excel ou VBA sont là pour faire la conversion. Il faut à mon sens garder cela à l'esprit et ça devient plus simple par la suite.

Hervé.

**SASAR** · 14/04/2011, 13h28

Bonjour,

Marcel a raison. Tu n'es pas obligé de préciser le format date.
Il suffit seulement de comparer le valeur de la cellule avec la date système

Code :

Sélectionner tout - Visualiser dans une fenêtre à part