Boite de dialogue

[vmax67]

Bonsoir

j'ai besion de vos lumières pour faire apparaitre une message box sur activation d'une cellule (C4) uniquement
si la valeur de la cellule (A1) est inférieure ou égale à 15.
Idem sur activation des cellules C5;C6; E4;E5;E6

Merci

 

[Jam]

Re : Boite de dialogue

Salut vmax67, le forum,

Colle ce code dans le module de la feuille où tu veux effectuer le test:

Private Sub Worksheet_selectionChange(ByVal Target As Range)
    Application.Union(Range("C4:C6"), Range("E4:E6")).Name = "maPlage"
    If Not Intersect([maPlage], Target) Is Nothing Then
        If Range("A1").Value < 15 Then MsgBox "A1 est inférieur à 15"
    End If
End Sub

Bon courage

 

[Fo_rum]

Re : Boite de dialogue

Bonsoir,

ou encore

Private Sub Worksheet_selectionChange(ByVal Target As Range)
  If Intersect(Range("C4:C6,E4:E6"), Target) Is Nothing Then Exit Sub
  If [A1] < 15 Then MsgBox "A1 est inférieur à 15"
End Sub