Calcul autour de la date du jour

Résolu
canichon Messages postés 50 Date d'inscription vendredi 7 juillet 2006 Statut Membre Dernière intervention 2 septembre 2009 - 24 août 2006 à 16:08
mortalino Messages postés 6786 Date d'inscription vendredi 16 décembre 2005 Statut Membre Dernière intervention 21 décembre 2011 - 24 août 2006 à 20:10
Bonjour,

J'ai des cellules de type "date" et je voudrais colorer le fond si cette date depasse la date d'aujourd'hui...

J'ai bien essayé ça :

        temp = ActiveCell.Value
        If VarType(ActiveCell) = vbDate Then
            If temp - TODAY() < 0 Then
                ActiveCell.Interior.ColorIndex = 3
            End If
        End if

mais ça marche po...

7 réponses

jrivet Messages postés 7393 Date d'inscription mercredi 23 avril 2003 Statut Membre Dernière intervention 6 avril 2012 60
24 août 2006 à 16:26
Salut,
Je rejoint 2359 Renfield pour le temp > TODAY()

TODAY() ressemble a une fonction EXCEL. et je ne croit pas que tu puisse utilise ceci depuis le code (ou peu etre en passant par WorkSheetFunciton

essaie ceci

temp = ActiveCell.Value
If VarType(ActiveCell) = vbDate Then
            If temp > Date Then
                ActiveCell.Interior.ColorIndex = 3
            End If
 End if

@+, Julien
3
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 71
24 août 2006 à 16:20
temp - TODAY() < 0 .....

pourquoi ne pas faire :

temp > TODAY()  ?

Renfield
Admin CodeS-SourceS- MVP Visual Basic
0
canichon Messages postés 50 Date d'inscription vendredi 7 juillet 2006 Statut Membre Dernière intervention 2 septembre 2009
24 août 2006 à 16:22
C'est pareil...


Le "systeme" ne connait pas l'instruction TODAY()


 
0
cs_JMO Messages postés 1854 Date d'inscription jeudi 23 mai 2002 Statut Membre Dernière intervention 24 juin 2018 26
24 août 2006 à 16:25
 Bonjour,

Ce n'est pas une réponse en vb6, mais .....
la variable "temp" doit être déclarée de type Date.

MsgBox CDate("25/08/2006") - Date 'retourne 1
MsgBox CDate("24/08/2006") - Date 'retourne 0
MsgBox CDate("23/08/2006") - Date 'retourne -1

jean-marc
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
canichon Messages postés 50 Date d'inscription vendredi 7 juillet 2006 Statut Membre Dernière intervention 2 septembre 2009
24 août 2006 à 16:27
OK merci... ça marche...


 
0
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 71
24 août 2006 à 17:12
"ca marche po" voulais dire "une erreur m'indique que la fonction TODAY n'existe pas" ?

décidément, faut que je m'achète une boule de cristal ^^

Renfield
Admin CodeS-SourceS- MVP Visual Basic
0
mortalino Messages postés 6786 Date d'inscription vendredi 16 décembre 2005 Statut Membre Dernière intervention 21 décembre 2011 17
24 août 2006 à 20:10
Salut,

lol Rey !

[auteurdetail.aspx?ID=816086 canichon] : la plus part des cas, les fonctions excel et vba sont traductible (français --> anglais) mais ce n'est pas forcémment le cas (la preuve, MAINTENANT <> Date)

Il faut regarder l'aide de VBA, elle est très riche et tu as la chance de l'avoir en français !!

@++

<hr size="2" width="100%" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
<!--
0
Rejoignez-nous