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,
    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
    1. FairouzBout Auteur
      bonjour;
      merci bcp pour vote aide je vais essye
      0
      1. 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
          bonjours à tous
          Dsl du retard
          oui il doit clignoter à l'ouverture de la page ; merci d'avance
          0
          2. 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. 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,
                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