Fonction test

delouest · 12 Novembre 2014

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

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"

Merci d'avance

Modeste geedee · 12 Novembre 2014

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 · 12 Novembre 2014

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:

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

Fonction test

delouest

Guest

Pièces jointes

Modeste geedee

XLDnaute Barbatruc

delouest

Guest

Discussions similaires

Fonction test

delouest

Guest

Pièces jointes

Modeste geedee

XLDnaute Barbatruc

delouest

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency