Evenement Worksheet_Change avec formule

Bonjour à tous,

Je me trouve devant un problème. Je souhaiterai que lorsqu'une de mes cellules dans la plages P8:P2000 est supérieure à 10000, une macro s’exécute.J'ai réussi à le faire lorsque je saisi manuellement le montant, mais avec une formule, cela ne fonctionne pas.

Avez-vous une idée ?

Bonjour

Ah non mon dieu..pas ça

Target.Value >= "10000"

Pourquoi vouloir comparer la valeur d'une cellule qui est un nombre à du texte !?

Target.Value >= 10000

A+

Bonjour,

et pour compléter sur ton pb, il faut superviser les antécédents de ta formule, là où tu fais tes saisies, et non la cellule de la formule :

Sub Worksheet_Change(ByVal Target As Range)
    Application.ScreenUpdating = False

    If Not Intersect(Target, Range("N13:O13")) Is Nothing Then
        If [P13].Value >= 10000 Then
            Cells(Target.Row, 2).Activate
            Call TEST
        End If
    End If

    Application.ScreenUpdating = True
End Sub

A mon avis ton Application.ScreenUpdating = False ne gêne pas mais il est inutile.
eric

Bonjour @eriiic

Merci pour ce nouveau point de vue apporté à mon problème.
Par contre, je n'ai pas réussi à l'appliquer sur toute la colonne P ...

Peux-tu de nouveau m'éclairer ?

Bonjour,
En attenddant qu'Eriiic se réveille et soit disponible
Cdlt.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim n As Long, rngData As Range
    With Me
        n = .Cells(.Rows.Count, 16).End(xlUp).Row
        Set rngData = .Cells(8, 14).Resize(n - 8, 2)
        If Not Intersect(Target, rngData) Is Nothing And Target.Count = 1 Then
            If .Cells(Target.Row, 16) > 1000 Then MACRO_TEST.TEST
        End If
    End With
End Sub

Bonjour à tous,

voilà, c'est qu'est-ce que je voulais dire
C'est bien entendu sur la ligne en cours et non sur la $13 qu'il faut travailler si plusieurs lignes sont concernées.
Je n'étais pas bien réveillé non plus...
eric

Super, merci tout le monde :) :)