(RESOLU par JCGL)Afficher Msgbox sous condition

[chaelie2015]

Bonjour Forum

Je souhaite afficher un Msgbox
SI
la cellule S23(contient une date ex : 28/01/2017) =Samedi et N23=12
ou
la cellule S23(contient une date ex : 29/01/2017) =Dimanche et N23=8
alors
Msgbox : « selon le règlement interne ………. »

Merci par avance

 

[JCGL]

Bonjour à tous,

Peux-tu essayer :

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

 

[chaelie2015]

Bonjour à tous,

Peux-tu essayer :

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

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+

 

[laetitia90]

bonjour chaelie,JCGL

PAS BON retire reponse

 

[chaelie2015]

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+

Re
ci joint le bon code

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+

 

[chaelie2015]

Bonjour à tous,

Peux-tu essayer :

Re
ci joint le bon code

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+

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