Envoie des mails quand un limite est atteint

Bonjour,

J'ai configuré ce VBA afin que mon tableur envoie des mails quand une valeur est atteinte et ça fonctionne

Mais la je souhaiterais ajouter une autre condition et je n'arrive pas.

Pour l'instant mon tableur envoie des mails quand la valeur de mon range est plus que MyLimit= 1. Mais je souhaiterais que c'envoie des mails encore quand les valeurs de mon range est égale à 7 aussi.

Qq'un pourrait m'aider ?

Private Sub Worksheet_Calculate()
    Dim FormulaRange As Range
    Dim NotSentMsg As String
    Dim MyMsg As String
    Dim SentMsg As String
    Dim MyLimit As Double

    NotSentMsg = "Not Sent"
    SentMsg = "Sent"

    'Above the MyLimit value it will run the macro
    MyLimit = 1

    'Set the range with Formulas that you want to check
    Set FormulaRange = Me.Range("H2:H176")

    On Error GoTo EndMacro:
    For Each FormulaCell In FormulaRange.Cells
        With FormulaCell
            If IsNumeric(.Value) = False Then
                MyMsg = "Not numeric"
            Else
                If .Value > MyLimit Then
                    MyMsg = SentMsg
                    If .Offset(0, 1).Value = NotSentMsg Then
                        Call Mail_with_outlook2
                    End If
                Else
                    MyMsg = NotSentMsg
                End If
            End If
            Application.EnableEvents = False
            .Offset(0, 1).Value = MyMsg
            Application.EnableEvents = True
        End With
    Next FormulaCell

ExitMacro:
    Exit Sub

EndMacro:
    Application.EnableEvents = True

    MsgBox "Some Error occurred." _
         & vbLf & Err.Number _
         & vbLf & Err.Description

End Sub

Personne ?

Bonjour,

Pour l'instant mon tableur envoie des mails quand la valeur de mon range est plus que MyLimit= 1. Mais je souhaiterais que c'envoie des mails encore quand les valeurs de mon range est égale à 7 aussi.

avec la condition range>mylimit(=1), cela envoie aussi le mail quand le range vaut 7 (7>mylimit(=1)).

je n'ai sans doute pas compris la demande.

Oui t'as raison, en fait, je voudrais que c'envoie des mails quand la valeur est egale à 1, et un deuxième mail de rappel quand c'est 7.

En gros c'est pour faciliter le suivi de la facturation.

Quand la valeur est égale à 1, cela veut dire que le client a un jour de retard et donc un premier mail est envoyé,

et quand c'est 7 cela veut dire que le client à 7 jours de retard donc un deuxième reminder doit etre envoyé.

Je déclenche les mails quand la condition my value > mylimit, mais je voudrais une deuxieme condition quand my value > 7

bonsoir,

remplace ceci

If .Value > MyLimit Then

par

If .Value =1 or .value=7 Then

Bonjour,

Merci mais dans ce cas la, il ne va pas renvoyer des mails, car avant il va d abord vérifier cette condition

 If .Offset(0, 1).Value = NotSentMsg Then
                        Call Mail_with_outlook2

Et cela est deja mit en SentMsg...

Bonjour,

dans ce cas tu as besoin de gérer une information supplémentaire qui permet de savoir s'il faut faire une relance ou pas (type paiement reçu)

Rechercher des sujets similaires à "envoie mails quand limite atteint"