Fonction test

Bonjour,

Je désire faire apparaître un message d'avertissement lorsque la dernière valeur que je rentre dans ma plage de données (cellules F25:U25) dépasse la valeur située sur la feuille 119.054+-0.0175 en cellule I1.

J'ai fais le code suivant mais rien ne se passe

Sub test()
Dim Cell As Range

Range("F25:U25").Select

For Each Cell In Selection

    If Cell > Worksheets("119.054+-0.0175").Cell("I1") Then
        MsgBox "limite de surveillance supérieure dépassée, régler machine!"
    End If

Next Cell
End Sub

Je vous joins le fichier

Merci d'avance

Le mot de passe pour rentrer sur la feuille est "seb"

Bonjour,

Sans entrer dans le détail de ton classeur, on devrait voir écrit :

Sub test()
Dim Cell As Range
    For Each Cell In Range("F25:U25")
        If Cell > Worksheets("119.054+-0.0175").Range("I1") Then
            MsgBox "limite de surveillance supérieure dépassée, régler machine!"
        End If
    Next Cell
End Sub

A+

Bonjour,

Le nom de tes feuilles est à changer (pas de points ou virgule sans quoi VBA te renverra une erreur)

Tu peux intégrer ce code dans la feuille CR25 dans la Private Sub Worksheet_Change existante.

Cela te renverra un message dès que tu mettras une valeur trop haute par rapport à I1

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("F25:U25")) Is Nothing Then
If Target.Value > Sheets("119").Range("I1") Then MsgBox "limite de surveillance supérieure dépassée, régler machine!"
End If

End Sub

End Sub

Crdlt

Impeccable, Merci d'avoir répondu.

Dan j'ai pris ta solution !