Message box

Pierrot93

XLDnaute Barbatruc

• 11 Octobre 2009

• #2

Re : Message box

Bonjour Cora

regarde le code ci-dessous si il peut t'aider, compare la date dans la cellule A1 à la date système :

Code:

If Range("A1").Value < Date Then MsgBox "Délai dépassé"

bon dimanche
@+

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 11 Octobre 2009

• #3

Re : Message box

Re

a noter que l'on peut également tester si la cellule en question ccontient bien une date :

Code:

If IsDate(Range("A1").Value) And Range("A1").Value < Date Then MsgBox "Délai dépassé"

 

Vote positif 0 Vote négatif

C

cora

XLDnaute Occasionnel

• 11 Octobre 2009

• #4

Re : Message box

Un petit exemple

 

Pièces jointes

• exemple.xls

  18 KB · Affichages: 56
• exemple.xls

  18 KB · Affichages: 51
• exemple.xls

  18 KB · Affichages: 53

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 11 Octobre 2009

• #5

Re : Message box

cora à dit:

Un petit exemple

Cliquez pour agrandir...

Voilà 😱

ou voir la copie pour faire exactement la demande 🙄

Salutations

Gilbert_RGI

 

Pièces jointes

• date_depassée.xlsm

  14.5 KB · Affichages: 50
• Copie de date_depassée.xlsm

  14.6 KB · Affichages: 37

Dernière édition: 11 Octobre 2009

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 11 Octobre 2009

• #6

Re : Message box

bonjour Cora

Salut Pierrot
Salut Gilbert

Vois si tu peux t'inspirer de ceci

@Gilbert : je regarde ton fichier

 

Pièces jointes

• cora_exemple.zip

  11.4 KB · Affichages: 59

Vote positif 0 Vote négatif

C

cora

XLDnaute Occasionnel

• 11 Octobre 2009

• #7

Re : Message box

Merci c'est exactement ce que je voulais mais comment puis-je voir le code?

 

Vote positif 0 Vote négatif

C

cora

XLDnaute Occasionnel

• 11 Octobre 2009

• #8

Re : Message box

Ok je viens de la voir sur visual basic merci encore

 

Vote positif 0 Vote négatif