Extraction de donnees

Résolu
cs_marlene62 Messages postés 5 Date d'inscription mercredi 18 février 2009 Statut Membre Dernière intervention 26 février 2009 - 20 févr. 2009 à 09:28
cs_marlene62 Messages postés 5 Date d'inscription mercredi 18 février 2009 Statut Membre Dernière intervention 26 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é)

Un grand merci

7 réponses

cnt Messages postés 219 Date d'inscription lundi 21 novembre 2005 Statut Membre Dernière intervention 20 décembre 2010 1
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
3
cnt Messages postés 219 Date d'inscription lundi 21 novembre 2005 Statut Membre Dernière intervention 20 décembre 2010 1
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

Aller salut à toi.
CNTJC
3
cnt Messages postés 219 Date d'inscription lundi 21 novembre 2005 Statut Membre Dernière intervention 20 décembre 2010 1
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.

CNTJC
3
cs_marlene62 Messages postés 5 Date d'inscription mercredi 18 février 2009 Statut Membre Dernière intervention 26 février 2009
24 févr. 2009 à 09:17
Merci CNTJC

Je vais faire un essai
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
cs_marlene62 Messages postés 5 Date d'inscription mercredi 18 février 2009 Statut Membre Dernière intervention 26 février 2009
24 févr. 2009 à 15:33
Re bonjour CNTJC,

J'ai fait un essai, ça ne fonctionne pas (je suis en version excel 2002 est ce du à ça.)
Je n'ai aucun message d'erreur d'éxécution !!!

Merci.

Marlene62
0
cs_marlene62 Messages postés 5 Date d'inscription mercredi 18 février 2009 Statut Membre Dernière intervention 26 février 2009
25 févr. 2009 à 09:52
Bonjour CNTJC,

Avant tout merci de me consacrer du temps.

A l'ouverture du classeur Erreur d'éxécution 1004 - Impossible de trouver la macro 'Test'.

Salut.

Marlene62
0
cs_marlene62 Messages postés 5 Date d'inscription mercredi 18 février 2009 Statut Membre Dernière intervention 26 février 2009
26 févr. 2009 à 07:48
Merci.
0
Rejoignez-nous