(RESOLU par JCGL)Afficher Msgbox sous condition

JCGL à dit:

Bonjour à tous,

Peux-tu essayer :

VB:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = "$S$23" Or Target.Address = "$N$23" Then
        If Weekday([S23], vbMonday) > 5 And [N23] = 12 Then MsgBox "Selon le règlement interne ...", vbCritical, "Information"
    End If
End Sub

A+ à tous

Cliquez pour agrandir...

chaelie2015 à dit:

Bonjour JCGL, Forum
Merci pour la réponse, mais il n'a pas bien fonctionné comme je souhaite
dans le fichier ci joint si je saisi dans la cellule N23 =12 et la cellule S23 vide il affiche le Msgbox???????
a+

Cliquez pour agrandir...

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$S$23" Or Target.Address = "$N$23" Then
  If Weekday([S23], vbMonday) = 6 And [N23] = 12 Or Weekday([S23], vbMonday) = 7 And [N23] = 8 Then MsgBox "Selon le règlement interne ...", vbCritical, "Information"
  End If

JCGL à dit:

Bonjour à tous,

Peux-tu essayer :

chaelie2015 à dit:

Re
ci joint le bon code

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$S$23" Or Target.Address = "$N$23" Then
  If Weekday([S23], vbMonday) = 6 And [N23] = 12 Or Weekday([S23], vbMonday) = 7 And [N23] = 8 Then MsgBox "Selon le règlement interne ...", vbCritical, "Information"
  End If
End Sub

Merci JCGL
Pblm résolut
a+

Cliquez pour agrandir...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$S$23" Or Target.Address = "$N$23" Then
If Weekday([S23], vbMonday) > 5 And [N23] = 12 Then MsgBox "Selon le règlement interne ...", vbCritical, "Information"
End If
End Sub

[/code]

A+ à tous

Cliquez pour agrandir...