Demande d'aide en EXCEL

FairouzBout -  
Bonjour;
je suis entraine de saisir des information dans une base de donnee EXCEL; il ya une date qui est renouvlable chaque annee c'est moi qui la saisi d'avance mais on ma demande de fair clignote la date d'expiration 60 jours avant son expiration et je c pas comment fair sa en excel et est ce que c'est possible de la faire ???
exp : 01/03/2009 -> 01/03/2010 alors je fait clignoté la date 01/01/2010

merci d'avance pour votre aide
Configuration: Windows 2003 Internet Explorer 6.0

7 réponses

  1.  Le Pingou
    Bonjour,
    A bien plaire, touche Alt+F11 pour ouvrir l'éditeur VBA, dans la fenêtre à gauche [Projet-VBAProjet] vous avez les modules [Feuil...] et éventuellement un module classeur.
    0
    1. jlfa
      bonsoir a vous, ce truc a l'air d'etre genial, mais je vais vous posez la question bête comment on fait ca ?
      Copier la procédure dans le module de ta feuille : Feuil1(Feuil1) par exemple

      ou plutot ou en trouve le module ? merci
      0
      1. Le Pingou
        Bonjour,
        Dans se cas vous remplacez la première ligne de la procédure:
        Private Sub Worksheet_SelectionChange(ByVal Target As Range)
        Par :
        Private Sub Worksheet_Activate()
        Bon dimanche.
        0
        1. FairouzBout Auteur
          bonjours à tous
          Dsl du retard
          oui il doit clignoter à l'ouverture de la page ; merci d'avance
          0
          2. Le Pingou
            Bonjour,
            Juste une question, est-ce que la date doit clignoter à l'ouverture de la feuille .... ?
            Car dans ma proposition le clignotement à lieu lors d'un changement de sélection dans la feuille.
            0
            1. FairouzBout Auteur
              bonjour;
              merci bcp pour vote aide je vais essye
              0
              1. Le Pingou
                Bonjour,
                Cette procédure fait clignoter la cellule A1 si sont contenu (date) est inférieur à 3 jours
                (à adapter selon désir) ; nombre de clignotement est fixé sur 10 (modifiable)
                Copier la procédure dans le module de ta feuille : Feuil1(Feuil1) par exemple

                Private Sub Worksheet_SelectionChange(ByVal Target As Range)
                Dim n As Byte
                Dim Start As Variant
                Dim i As Integer
                If [A1] <= Date + 3 Then ' ** mettre le nombre de jours
                For i = 1 To 10 ' ** nombre de clignotement
                Cells(1, 1).Font.ColorIndex = 6
                Cells(1, 1).Interior.ColorIndex = 3
                For n = 1 To 10
                Start = Timer
                Do While Timer < Start + 1 / 100
                Loop
                If n Mod 5 = 0 Then
                Cells(1, 1).Interior.ColorIndex = xlNone
                Cells(1, 1).Font.ColorIndex = 1
                End If
                Next n
                Next i
                End If
                End Sub
                0