Est-il possible de faire un code vba qui affiche un message d'alerte ou envoie un mail d'alerte si les résultats (rouge) sont négatifs par rapport au seuil défini pendant 5 jours consécutifs. Dates seuil résultats positif négatif 03/04/2023 100 142 0 42 04/04/2023 100 124 0 24 05/04/2023 100 110 0 10 06/04/2023 100 105 0 5 07/04/2023 100 120 0 20 11/04/2023 100 50 -50 0 12/04/2023 100 80 -20 0 13/04/2023 100 90 -10 0 14/04/2023 100 102 0 2 Merci d'avance pour votre aide Caro...

VBA pour alerte si seuil dépassé

Le 14/04/2023 à 15:53

Bonjour au forum,

Est-il possible de faire un code vba qui affiche un message d'alerte ou envoie un mail d'alerte si les résultats (rouge) sont négatifs par rapport au seuil défini pendant 5 jours consécutifs.

Dates	seuil	résultats	positif	négatif
03/04/2023	100	142	0	42
04/04/2023	100	124	0	24
05/04/2023	100	110	0	10
06/04/2023	100	105	0	5
07/04/2023	100	120	0	20
11/04/2023	100	50	-50	0
12/04/2023	100	80	-20	0
13/04/2023	100	90	-10	0
14/04/2023	100	102	0	2

Merci d'avance pour votre aide

Caro

Le 14/04/2023 à 16:49

Bonjour Caro curieuse

Voici une possibilité

38carocurieuse-exemple.xlsm (23.70 Ko)

A+

Le 14/04/2023 à 17:31

Pourriez vous mettre le code directement en réponse à ce message, je ne peux pas ouvrir le fichier sur mon téléphone

Le 15/04/2023 à 15:32

Merci beaucoup Bruno pour le fichier. Cela fonctionne super.

Est-ce que je peux encore vous solliciter ? Pour le message est-il possible de faire une variable ? si le résultat est compris entre 3 et 6 nombres négatifs alors un message, si au dessus de 6 nombres négatifs un autre message. J'ai essayé mais le message s'ouvre x fois entre 3 et 6.

D'avance un grand merci pour votre aide

Le 15/04/2023 à 15:56

Bonjour Caro,

Là, votre demande est plus problématique, il faut ajouter une variable et changer le code

Voici une possibilité

Sub Vérif()
  Dim dLig As Long, Lig As Long
  Dim Inc As Integer, MaxC As Integer
  With ThisWorkbook.Sheets("Feuil1")
    dLig = .Range("A" & Rows.Count).End(xlUp).Row
    For Lig = 2 To dLig
      If .Range("E" & Lig).Value < 0 Then
        Inc = Inc + 1
      Else
        Inc = 0
      End If
      ' Mémoriser le max de consécutif
      If Inc > MaxC Then MaxC = Inc
    Next Lig
    ' Selon le nombre max de consécutifs
    If MaxC > 3 And MaxC <= 6 Then
      MsgBox "Attention, vous avez " & MaxC & " nombres de négatifs consécutifs !"
    ElseIf MaxC > 6 Then
      MsgBox "Attention, vous avez plus de 6 nombres de négatifs consécutifs !"
    End If
  End With
End Sub

A+

Le 15/04/2023 à 16:31

Super. C'est exactement ce que je voulais.

Encore merci et bon week-end Bruno

Le 15/04/2023 à 16:32

Mais de rien

Bon week-end Caro

Le 16/04/2023 à 10:19

Me revoilà !

Je viens de tester mon fichier en ayant étendu les dates et de constater qu'en fait il faudrait compter les dernières valeurs positives à partir de la dernière ligne (en s'arrêtant à la première valeur négative) . J'ai essayé différentes choses qui bien évidemment ne fonctionnent pas

Je joins un fichier test.

Merci d'avance

12analyse-test.xlsm (51.06 Ko)

Le 16/04/2023 à 10:49

Bonjour

Qu'elle perte de temps à mes yeux

La question posée initialement est à l'inverse de se que vous voulez maintenant... vous êtes sérieuse

Perso, je m'arrête là... quand vous saurez ce que vous voulez

D'ailleurs créez un nouveau fil SVP

Le 16/04/2023 à 10:57

Je suis franchement désolée. J'essaye tout simplement d'améliorer ce fichier et suis encore une sacrée novice.

Bon dimanche