Alerte message box

Bonsoir à tous,

Je viens vers vous pour vous demander de l'aide car j'ai fait une macro mais mon message d'alerte ne sort pas quand j'arrive une valeur spécifique. (150)

Dans mon exemple: j'ai une valeur initiale de 561 (A4) et au fur et a mesure que j'introduit les quantités (colonne E5) la A4 diminue et j'aimerai que quand j'arrive à 150 (A4) il me sort mon message d'alerte automatiquement. .. et je n'arrive pas a le faire apparaitre.

Pouvez-vous m'aider?

MErci d'avance

Bonjour,

Une proposition à étudier et à adapter.

Cdlt.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.CountLarge > 1 Then Exit Sub
    If Target.ListObject Is Nothing Then Exit Sub
    If Not Intersect(Target, Me.ListObjects(1).ListColumns(3).DataBodyRange) Is Nothing Then
        If Me.Cells(4, 1).Value <= 150 Then
            MsgBox "Commander EURO CHEF", vbInformation, "Alerte"
        End If
    End If
End Sub

Bonjour,

il faut mettre cette macro sur la page code de la feuille "EURO CHEP"

et non dans un module.

Private Sub Worksheet_Change(ByVal Target As Range)
Set isect = Application.Intersect(Target, Range("E:E"))
If isect Is Nothing Then Exit Sub
If Sheets("EURO CHEP").Range("A4") <= 100 Then 'Si le compte obtenu dans la cellule P1 >= à 10 alors
    MsgBox "Commander EURO CHEP"
End If
End Sub

Bonjour Merci à vous deux cela fonctionne ..

Merci

Rechercher des sujets similaires à "alerte message box"