Sujet Précédent Sujet Suivant

Programmation Alerte Excel

Fermé
napster94700 Messages postés 76 Date d'inscription samedi 14 février 2009 Statut Membre Dernière intervention 7 août 2009 - 27 juil. 2009 à 16:41
napster94700 Messages postés 76 Date d'inscription samedi 14 février 2009 Statut Membre Dernière intervention 7 août 2009 - 28 juil. 2009 à 14:22
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
A voir également:

4 réponses

Réponse 1 / 4
Dev13
28 juil. 2009 à 11:35
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+
0
Réponse 2 / 4
napster94700 Messages postés 76 Date d'inscription samedi 14 février 2009 Statut Membre Dernière intervention 7 août 2009 16
28 juil. 2009 à 14:01
Merci beaucoup mais sa je l'insere dans excel ou je rentre sa dans la case de formule ?
Elle a Excel 1997
0
Réponse 3 / 4
qmike Messages postés 1506 Date d'inscription mardi 19 juillet 2005 Statut Membre Dernière intervention 18 juin 2012 594
28 juil. 2009 à 14:08
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
0
Réponse 4 / 4
napster94700 Messages postés 76 Date d'inscription samedi 14 février 2009 Statut Membre Dernière intervention 7 août 2009 16
28 juil. 2009 à 14:22
Merci je vais essayer sa des que j'aurais son tableau :)
Merci à toi ;)
0