cs_marlene62
Messages postés5Date d'inscriptionmercredi 18 février 2009StatutMembreDernière intervention26 février 2009
-
20 févr. 2009 à 09:28
cs_marlene62
Messages postés5Date d'inscriptionmercredi 18 février 2009StatutMembreDernière intervention26 février 2009
-
26 févr. 2009 à 07:48
bonjour,
Dans un classeur j'ai un onglet "recap" en colonne c figure des dates.je voudrais qu'à l'ouverture du classeur dans "recap" si la date de C2 est supérieur à 90 jours (par rapport à la date du jour) faire clignoter la cellule ou un autre moyen afin d'attirer l'attention des différents utilisateurs.(classeur partagé)
cnt
Messages postés219Date d'inscriptionlundi 21 novembre 2005StatutMembreDernière intervention20 décembre 20101 20 févr. 2009 à 17:14
Bonjour marlene
Je te propose cela à placer dans un module
Public Sub Test()
Dim DateReference As Date
DateReference = Sheets("recap").Range("C2").Value
If DateDiff("d", DateReference, Now) > 90 Then
Sheets("recap").Range("C2").Interior.ColorIndex = 3 'rouge
Sheets("recap").Visible = True
Sheets("recap").Activate
Sheets("recap").Range("C2").Select
End If
End Sub
Et ceci dans le module de code du classeur "ThisWorkBook"
Private Sub Workbook_Open()
Run "Test"
End Sub
J'espère répondre à ton problème, seul hic, c'est du VBA Excel 2000.
Bye
CNTJC
cnt
Messages postés219Date d'inscriptionlundi 21 novembre 2005StatutMembreDernière intervention20 décembre 20101 24 févr. 2009 à 16:32
Bonjour marlene62
Qu'est qui ne fonctionne pas exactement pour en tirer une explication ?
Un petit rectificatif dans mon code sur l'ordre de lignes
If DateDiff("d", DateReference, Now) > 90 Then
Sheets("recap").Visible = True
Sheets("recap").Activate
Sheets("recap").Range("c2").Select
Sheets("recap").Range("c2").Interior.ColorIndex = 3 'rouge
End If
cnt
Messages postés219Date d'inscriptionlundi 21 novembre 2005StatutMembreDernière intervention20 décembre 20101 25 févr. 2009 à 17:08
Bonjour marlene62
Je suggère de placer directement le code dans la procédure évènement "Close" du classeur actif, de l'objet "ThisWorkBook", comme visualisé ci-dessous:
Private Sub Workbook_Open()
Dim DateReference As Date
DateReference = Sheets("recap").Range("C2").Value
If DateDiff("d", DateReference, Now) > 90 Then
Sheets("recap").Visible = True
Sheets("recap").Activate
Sheets("recap").Range("c2").Select
Sheets("recap").Range("c2").Interior.ColorIndex = 3 'rouge
End If
End Sub
Je rappelle que je suis sous Excel 2000, il faudrait adapter tout cela à Excel 2002, si #.
Voila je ne peux en dire plus.
Bonne suite.