Rappel sur excel

pandemonia -  
Kuartz Messages postés 852 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,
je viens de créer un tableau ou j'ai une date de départ et je souhaite créer une formule pour avoir un rappel 15 jours après quelqu'un peut il m'aider pour trouver la formule?§

Merci par avance


2 réponses

Réponse 1 / 2
Vaucluse Messages postés 26496 Date d'inscription   Statut Contributeur Dernière intervention   6 438
 
Bonjour
tout dépend de ce que vous voulez comme type de rappel et dans quelles conditions vous voulez l'annuler
principe de base pour une date en A1:
=SI(AUJOURDHUI()<=A1+15;"rappel";"")
mais il y a probablement une condition à rajouter pour que rappel disparaisse si une action (mais laquelle) est effectuée.
crdlmnt




0
Pandemonia33
 
Bonjour
Merci pour la rapidité en effet j'ai une case conditionnel c pour des devis et donc si sans reponse au bout de 15 jours il me faut un rappel

Merci d'avance
0
Vaucluse Messages postés 26496 Date d'inscription   Statut Contributeur Dernière intervention   6 438 > Pandemonia33
 
D'avance... mais pour répondre à quoi?
puisque vous ne précisez pas plus ce que vous voulez, on ne peut que vous fournir la formule dans mon message

la date de l'envoi, dans quelle case?
Le type de réponse
la réponse dans quelle case?
quel type d'alerte:
__une cellule avec un texte et si oui, quel texte?
__où une mise en surbrillance des champs concernés et si oui quels sont ils?
A vous lire

crdlmnt
0
Réponse 2 / 2
pandemonia33 Messages postés 1 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour
Merci pour la rapidité en effet j'ai une case conditionnel c pour des devis et donc si sans reponse au bout de 15 jours il me faut un rappel
-1
Kuartz Messages postés 852 Date d'inscription   Statut Membre Dernière intervention   61
 
Bonjour,

Un truc qui pourrait être très sympa pour vous.

Affichez l'onglet développeur sur excel (tutos sur le net), allez dans Visual Basic, double cliquez sur "ThisWorkbook" dans le panneau de gauche et collez le code suivant dans votre feuille blanche à droite : 

Private Sub Workbook_Open()
    Dim DL As Long, CLIENTS As String

    DL = Cells(Application.Rows.Count, 1).End(xlUp).Row 'Définit la dernière ligne du tableau, mettre la colonne la plus remplie (1 = A)
    For i = 1 To DL
        If Range("A" & i).Value < Date - 15 Then 'Si la date du devis est en A
            CLIENTS = CLIENTS & "- " & Cells(i, "B") & vbLf 'Si le nom du client est en B
        End If
    Next i
    MsgBox ("Attention, la date du devis est dépassée de 15 jours pour les clients suivants :" & vbLf & vbLf & CLIENTS)
End Sub


Vous adaptez le code à l'aide de mes commentaires et vous aurez des rappels.

Cordialement.
0