Date

Dan

XLDnaute Barbatruc

• 2 Mai 2006

• #2

Bonjour,

1. tu tapes la date concernée et tu mets le format souhaité par menu / format / cellule puis dans nombre/catégorie tu sélectionnes 'personnalisé' puis tu mets le format jj/mm/aa.

2. VBA :

Code:

Sub control()
Dim c As Range
For Each c In Range('A1:A100')
If c.Value = Date Then
MsgBox '...'
End If
Next c
End Sub

Si pb n'hésite pas

 

Vote positif 0 Vote négatif

A

Am alive

Guest

• 2 Mai 2006

• #3

ReBonjour
Merci Dan pour votre réponse,j'ai exécuter le Macro,mais le MsgBox n'apparaitre pas
Merci d'avance

 

Vote positif 0 Vote négatif

Dan

XLDnaute Barbatruc

• 2 Mai 2006

• #4

Bonsoir,

Bon vérifie ces 2 conditions ;

1. La date doit se trouver dans la colonne A entre A1 et A100
2. Ton message doit se placer à la place des petits points que j'ai mis. Donc entre les guillemets.

 

Vote positif 0 Vote négatif