Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Date du system

natbru

XLDnaute Occasionnel
Bonjour à tous,

Comment comparer la date du system avec une date donnée ?

C'est dans le but d'afficher une alerte pour des plannings, dans le même genre que Outlook.

Je pensais à quelque chose comme ça :

Code:
Sub Alerte()

Dim jour_IS As Date

jour_IS = 15 / 3 / 6

If DateTime.Now < jour_IS Then MsgBox ('Acompte IS') Else MsgBox ('Rien')

End Sub
Mais ça ne fonctionne pas...(vous vous en doutez, sinon je ne serais pas là)

Quelqu'un peut-il m'aider ?

Merci beaucoup.
 

pascal21

XLDnaute Barbatruc
salut
n'as tu pas pensé au format conditionnel avec cette formule et une couleur dans la cellule si la condition est remplie
=SI(A1>=AUJOURDHUI()-15;'vrai';'')

Message édité par: pascal21, à: 14/01/2006 09:38
 

natbru

XLDnaute Occasionnel
Bonjour Pascal,

C'est que le code que j'ai mis sur le forum est un tout petit bout de mon projet.

J'ai une dizaine de feuille, avec des plannings différents et je voudrais faire afficher une msgbox avec les différentes alertes qui seront programmées (il peut y en avoir beaucoup).

Merci pour ton aide.
 

Eric C

XLDnaute Barbatruc
Bonjour le forum
Bonjour natbru, pascal21

Tentes ceci :
Code:
Sub Alerte()

Dim jour_IS As Date

jour_IS = #3/15/2006#  'c'est ici

If DateTime.Now < jour_IS Then MsgBox ('Acompte IS') Else MsgBox ('Rien')

End Sub

Bon Ouikand à toutes & à tous
 

Bricofire

XLDnaute Impliqué
bonjour à tous, voir PJ

Brico [file name=natbru.zip size=2303]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/natbru.zip[/file]
 

Pièces jointes

  • natbru.zip
    2.2 KB · Affichages: 25

Bricofire

XLDnaute Impliqué
re bonjour à tous,

Excusez moi, mais ca fait 5 fois que je me fait planter en voulant répondre sur ce fil, en mettant ma réponse en pj Word, c'est passé tout de suite... :whistle:

vois fil :
Lien supprimé

Comme quoi, il est vrai des fois, il faut pas grand chose

Bon WE à tous,

Brico
 

Discussions similaires

Réponses
12
Affichages
631
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…