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

  1.
    Vaucluse Messages postés 27336 Date d'inscription   Statut Contributeur Dernière intervention   6 453
     
    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
    1. 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
      1. Vaucluse Messages postés 27336 Date d'inscription   Statut Contributeur Dernière intervention   6 453 > 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
  2. pandemonia33 Messages postés 1 Statut Membre
     
    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
    1. Kuartz Messages postés 852 Date d'inscription   Statut Membre Dernière intervention   65
       
      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