Demande d'aide en EXCEL
FairouzBout
Messages postés
36
Date d'inscription
Statut
Membre
Dernière intervention
-
Le Pingou Messages postés 12249 Date d'inscription Statut Contributeur Dernière intervention -
Le Pingou Messages postés 12249 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
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
A voir également:
- Demande d'aide en EXCEL
- Liste déroulante excel - Guide
- Mise en forme conditionnelle excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
7 réponses
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
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
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.
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.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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.
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.