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
Code:
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"
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
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:
Code:
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