Demande d'aide en EXCEL

FairouzBout Messages postés 36 Date d'inscription   Statut Membre -  
Le Pingou Messages postés 12274 Date d'inscription   Statut Contributeur Dernière intervention   -
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 Messages postés 12274 Date d'inscription   Statut Contributeur Dernière intervention   1 476
     
    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
  2. FairouzBout Messages postés 36 Date d'inscription   Statut Membre
     
    bonjour;
    merci bcp pour vote aide je vais essye
    0
  3. Le Pingou Messages postés 12274 Date d'inscription   Statut Contributeur Dernière intervention   1 476
     
    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
  4. FairouzBout Messages postés 36 Date d'inscription   Statut Membre
     
    bonjours à tous
    Dsl du retard
    oui il doit clignoter à l'ouverture de la page ; merci d'avance
    0

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

    Posez votre question
  6. Le Pingou Messages postés 12274 Date d'inscription   Statut Contributeur Dernière intervention   1 476
     
    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
  7. jlfa Messages postés 154 Date d'inscription   Statut Membre Dernière intervention   7
     
    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
  8. Le Pingou Messages postés 12274 Date d'inscription   Statut Contributeur Dernière intervention   1 476
     
    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