Calcul autour de la date du jour

Résolu
Messages postés
50
Date d'inscription
vendredi 7 juillet 2006
Statut
Membre
Dernière intervention
2 septembre 2009
-
Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
-
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

Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
58
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
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
73
temp - TODAY() < 0 .....

pourquoi ne pas faire :

temp > TODAY()  ?

Renfield
Admin CodeS-SourceS- MVP Visual Basic
Messages postés
50
Date d'inscription
vendredi 7 juillet 2006
Statut
Membre
Dernière intervention
2 septembre 2009

C'est pareil...


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


 
Messages postés
1854
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
26
 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
Messages postés
50
Date d'inscription
vendredi 7 juillet 2006
Statut
Membre
Dernière intervention
2 septembre 2009

OK merci... ça marche...


 
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
73
"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
Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
18
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"
<!--