code pour date d'échéance

pascal21 · 31 Décembre 2009

bonsoir le forum

Code:

Sub Macro1()
For Each cel In Range('A1:A30')
cel.ClearComments
If cel > 0 And cel <= 50 Then
cel.AddComment
cel.Comment.Text Text:='Attention' & Chr(10) & ' Prevoir....'
Else
 If cel < 0 Then
   cel.AddComment
   cel.Comment.Text Text:='Attention' & Chr(10) & ' Depassement'
 End If
End If
Next cel
End Sub

j'ai retrouvé ce vieux code dans un classeur qui correspond à ce que je cherche faire
mais j'aimerais l'appliquer à une date d'échéance
j'ai essayé avec
If cel =now And cel =now- 50 Then
mais ça ne fonctionne pas
quelle est la syntaxe exacte
merci
edit si JP13 est encore là je lui ferai un classeur joint spécialement pour lui lol!!
il me comprendra
bonne année 2010

Guest · 31 Décembre 2009

Re : code pour date d'échéance

Bonsoir pascal,

Now n'est pas une date mais une date+heure
If cel = Date() then

If cel =now And cel =now- 50

cel ne peut être à la fois = now et = à now-50

Code:

if Cel >=Date -50 And Cel <=Date then

A+

Robert · 31 Décembre 2009

Re : code pour date d'échéance

Bonsoir Pascal, bonsoir le forum,

Date est le mot clé Visual Basic qui renvoie la date du système. À vérifier après s'il y a compatibilité des formats... CDate(cel.Value) va convertir le contenu de la cellule cel en date et provoqué une erreur si cette convertion est impossible...
mais si tu fait :

Code:

If CDate(cel.Value) = Date And CDate(cel.Value) = Date - 50 Then

Je doute que la date inscrite dans la cellule cel remplisse les deux conditions en même temps...

Édition :

Salut Hasco on s'est croisé...

CBernardT · 31 Décembre 2009

Re : code pour date d'échéance

Bonsoir à tous,

Une syntaxe possible si j'ai bien compris le sujet :

Sub Macro1()
Dim Cel As Range
For Each Cel In Range("A1:A30")
Cel.ClearComments
If Date - Cel.Value > Date - 50 And Date - Cel.Value < Date Then
Cel.AddComment
Cel.Comment.Text Text:="Attention" & Chr(10) & " Prevoir...."
ElseIf Cel < 0 Then
Cel.AddComment
Cel.Comment.Text Text:="Attention" & Chr(10) & " Depassement"
End If
Next Cel
End Sub

code pour date d'échéance

pascal21

XLDnaute Barbatruc

Guest

Guest

Robert

XLDnaute Barbatruc

CBernardT

XLDnaute Barbatruc

Discussions similaires

code pour date d'échéance

pascal21

XLDnaute Barbatruc

Guest

Guest

Robert

XLDnaute Barbatruc

CBernardT

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency