Sujet Précédent Sujet Suivant

Creer un alerte Excel

Fermé
chartier84 Messages postés 4 Date d'inscription mardi 6 juillet 2010 Statut Membre Dernière intervention 3 juin 2014 - 3 juin 2014 à 11:21
lynyrd1960 Messages postés 207 Date d'inscription jeudi 26 janvier 2012 Statut Membre Dernière intervention 30 juin 2023 - 3 juin 2014 à 14:46
Bonjour,

Bonjour ,
Je voudrais créer une application sur Excel qui va me permettre de gérer la date d'expiration de certains document avec une alerte soit visuel ou par mail
j'aimerais renseigner le tableau comme suit :
-NOM ET PRÉNOM
- DATE DE NAISSANCE
FONCTION
NUMÉRO DU LIVRET
DATE DE DÉLIVRANCE DU LIVRET
DATE D'EXPIRATION
DATE DE DÉLIVRANCE DU PASSEPORT
DATE D'EXPIRATION
DATE DE VISITE MÉDICAL
DATE D'EXPIRATION

NB : J'aimerais avoir une alerte soit visiel ou par mail a chaque fois que le Livret - Le passport et la visite medical arrive a une date d'expiration

2 réponses

Réponse 1 / 2
milan25 Messages postés 37 Date d'inscription lundi 14 avril 2014 Statut Membre Dernière intervention 4 juillet 2014 4
3 juin 2014 à 14:39
Voici une premier ébauche le problème c'est que j'ai sélectionné tte une plage de colonne alors il faut en sélectionner que trois.
J'espère que qu'elle qu'un t'aidera la dessus. 

Private Sub Worksheet_Change(ByVal Target As Range)
    With Target
        If Not Application.Intersect(Target, Range("F:J")) Is Nothing Then
            .ClearComments
            .Interior.ColorIndex = xlNone
            If .Value < Date Then
                Beep
                
                .Interior.ColorIndex = 3
            End If
        End If
    End With
End Sub

Tu vois il fraudais avoirs juste les colonne F, H, J de sélectionner.
http://cjoint.com/14jn/DFdoMTCud3x.htm
0
Réponse 2 / 2
lynyrd1960 Messages postés 207 Date d'inscription jeudi 26 janvier 2012 Statut Membre Dernière intervention 30 juin 2023 245
Modifié par lynyrd1960 le 3/06/2014 à 15:34
Bonjour le forum
Une alerte par MSG Box à l'ouverture du fichier

A+

https://www.cjoint.com/?DFdpga4BPY0

Une variante avec coloration des dates expirées (Faire un double clic dans nimporte quelle cellule)

A+

https://www.cjoint.com/?DFdpGZ8haMw
0