1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. VB.NET
Sujet Précédent Sujet Suivant

Extraction de donnees

Résolu
Signaler
Messages postés
5
Date d'inscription
mercredi 18 février 2009
Statut
Membre
Dernière intervention
26 février 2009
 -
Messages postés
5
Date d'inscription
mercredi 18 février 2009
Statut
Membre
Dernière intervention
26 février 2009
 -
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

Réponse 1 / 7
Messages postés
219
Date d'inscription
lundi 21 novembre 2005
Statut
Membre
Dernière intervention
20 décembre 2010
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
Réponse 2 / 7
Messages postés
219
Date d'inscription
lundi 21 novembre 2005
Statut
Membre
Dernière intervention
20 décembre 2010
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
Réponse 3 / 7
Messages postés
219
Date d'inscription
lundi 21 novembre 2005
Statut
Membre
Dernière intervention
20 décembre 2010
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
Réponse 4 / 7
Messages postés
5
Date d'inscription
mercredi 18 février 2009
Statut
Membre
Dernière intervention
26 février 2009
Merci CNTJC

Je vais faire un essai
Réponse 5 / 7
Messages postés
5
Date d'inscription
mercredi 18 février 2009
Statut
Membre
Dernière intervention
26 février 2009
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
Réponse 6 / 7
Messages postés
5
Date d'inscription
mercredi 18 février 2009
Statut
Membre
Dernière intervention
26 février 2009
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
Réponse 7 / 7
Messages postés
5
Date d'inscription
mercredi 18 février 2009
Statut
Membre
Dernière intervention
26 février 2009
Merci.
Répondre Posez votre question