extraction de donneesRésolu

Question

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

cnt · Accepted Answer

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

cs_marlene62 · Answer

Merci CNTJC

Je vais faire un essai

cs_marlene62 · Answer

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

cnt · Answer

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

cs_marlene62 · Answer

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

cnt · Answer

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

cs_marlene62 · Answer

Merci.

Extraction de donnees

7 réponses

Votre réponse