Programmation Alerte Excel
napster94700
Messages postés
82
Statut
Membre
-
napster94700 Messages postés 82 Statut Membre -
napster94700 Messages postés 82 Statut Membre -
Bonjour,
Ma mère aurait besoin de mettre une alarme a x date dans son tableau excel.
Mettons que dans son tableau qui comporte des dates dans le désordre soit comme sa :
20.11.2011
03.08.2009
01.10.09
06.03.2010
Elle voudrait que par exemple 8 jours avant il y est un signal ou une case colorée de cette date.
Je ne sais pas si c'est possible ?
Merci
Ma mère aurait besoin de mettre une alarme a x date dans son tableau excel.
Mettons que dans son tableau qui comporte des dates dans le désordre soit comme sa :
20.11.2011
03.08.2009
01.10.09
06.03.2010
Elle voudrait que par exemple 8 jours avant il y est un signal ou une case colorée de cette date.
Je ne sais pas si c'est possible ?
Merci
A voir également:
- Programmation Alerte Excel
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Fausse alerte mcafee - Accueil - Piratage
- Si ou excel - Guide
- Déplacer colonne excel - Guide
4 réponses
Salut,
voila un code qui a l'ouverture du fichier excel il change la couleur de la case en rouge si la date est supérieur de 8 jours a la date du système, donc une alerte en couloriant les case date 8 jours avant:
Private Sub Workbook_Open()
Dim ligne As Integer
ligne = 1
While Not IsEmpty(Sheets("Feuil1").Cells(ligne, 1))
If Sheets("Feuil1").Cells(ligne, 1).Value = Date + 8 Then
Sheets("Feuil1").Cells(ligne, 1).Interior.Color = RGB(200, 160, 35)
End If
ligne = ligne + 1
Wend
End Sub
A+
voila un code qui a l'ouverture du fichier excel il change la couleur de la case en rouge si la date est supérieur de 8 jours a la date du système, donc une alerte en couloriant les case date 8 jours avant:
Private Sub Workbook_Open()
Dim ligne As Integer
ligne = 1
While Not IsEmpty(Sheets("Feuil1").Cells(ligne, 1))
If Sheets("Feuil1").Cells(ligne, 1).Value = Date + 8 Then
Sheets("Feuil1").Cells(ligne, 1).Interior.Color = RGB(200, 160, 35)
End If
ligne = ligne + 1
Wend
End Sub
A+
Merci beaucoup mais sa je l'insere dans excel ou je rentre sa dans la case de formule ?
Elle a Excel 1997
Elle a Excel 1997
bonjour
Oui ou encore sans programme vba
Une mise en forme conditionnelle
Alerte 8 jours avant la date
# Tapez la date d'échéance dans une cellule [Cellule D1 dans cet exemple]
# Sélectionnez la colonne des dates à colorer [Colonne A:A dans cet exemple]
# Sélectionnez le Menu Format Mise à jour conditionnelle...
# Sélectionnez l'option La valeur de la cellule est dans le champ Condition 1
# Tapez la formule suivante =(A1>=aujourdhuui()-8)
# Cliquez sur le bouton Format...
# Cliquez sur la couleur souhaitée
# Cliquez deux fois sur le bouton OK
Source : http://bvrve.club.fr/Astuces_Michel/2542excel.html
Oui ou encore sans programme vba
Une mise en forme conditionnelle
Alerte 8 jours avant la date
# Tapez la date d'échéance dans une cellule [Cellule D1 dans cet exemple]
# Sélectionnez la colonne des dates à colorer [Colonne A:A dans cet exemple]
# Sélectionnez le Menu Format Mise à jour conditionnelle...
# Sélectionnez l'option La valeur de la cellule est dans le champ Condition 1
# Tapez la formule suivante =(A1>=aujourdhuui()-8)
# Cliquez sur le bouton Format...
# Cliquez sur la couleur souhaitée
# Cliquez deux fois sur le bouton OK
Source : http://bvrve.club.fr/Astuces_Michel/2542excel.html
