Fonction test

[delouest]

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
Le mot de passe pour rentrer sur la feuille est "seb"

Merci d'avance

 

[Modeste geedee]

Re : Fonction test

Bonsour®
????

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

 

[delouest]

Re : Fonction test

Merci modeste d'avoir répondu. J'ai la solution en renommant les feuilles sans virgules, point virgule etc .... et avec le code suivant ça marche:

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