message box en fonction d'une plage de cellule

ychc · 15 Décembre 2015

Bonsoir à tous,

Voilà, cela fait un moment que je bloque sur un code très simple , j'en suis sûr pour certains.
Mais moi, je ne trouve pas.
je cherche à afficher un message box quand une valeur supérieur à 5 est renseignée dans plusieurs cellules.
J'ai réussi à le faire pour une cellule "a1", mais lorsque je veux le faire pour plusieurs, par exemple "a1 et b1 et c1". Je bloque.
Voilà où j'en suis. Si quelqu'un peut m'aider?

Merci à vous d'avance.

Code:

Private Sub Worksheet_selectionChange(ByVal Target As Range)
If Range("A1").Value > 5 Then
MsgBox ("ATTENTION !!! Valeur supérieur à 5 !!!")
End If

End Sub

DoubleZero · 15 Décembre 2015

Re : message box en fonction d'une plage de cellule

Bonjour, ychc, le Forum,

Comme ceci ?

Code:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("a1:c1")) Is Nothing And Target.Value > 5 Then
        MsgBox ("ATTENTION !!! Valeur supérieure à 5 !!!")
        Target.Select
    End If
End Sub

A bientôt

ychc · 16 Décembre 2015

Re : message box en fonction d'une plage de cellule

Bonjour à tous,
Merci double zéro, cela fonctionne à merveille.
Et joyeuses fêtes à vous.

DoubleZero · 21 Décembre 2015

Re : message box en fonction d'une plage de cellule

Bonjour, ychc, le Forum,

Merci, ychc

A mon tour de vous souhaiter "Jyeuses Fêtes".

A bientôt

message box en fonction d'une plage de cellule

ychc

XLDnaute Occasionnel

DoubleZero

XLDnaute Barbatruc

ychc

XLDnaute Occasionnel

DoubleZero

XLDnaute Barbatruc

Discussions similaires