demande d'aide en EXCEL Fermé

Question

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

Le Pingou · Answer

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

FairouzBout · Answer

bonjour;
merci bcp pour vote aide je vais essye

Le Pingou · Answer

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.

FairouzBout · Answer

bonjours à tous
Dsl du retard 
oui il doit clignoter à l'ouverture de la page ;  merci d'avance

Le Pingou · Answer

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.

jlfa · Answer

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

Le Pingou · Answer

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.

Demande d'aide en EXCEL

7 réponses