(RESOLU par JCGL)Afficher Msgbox sous condition

chaelie2015

XLDnaute Accro
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

XLDnaute Barbatruc
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
 

chaelie2015

XLDnaute Accro
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
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+
 

Pièces jointes

  • Charlie Msgbox sous condition.xlsm
    14.6 KB · Affichages: 43

chaelie2015

XLDnaute Accro
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
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+
 

chaelie2015

XLDnaute Accro
Bonjour à tous,

Peux-tu essayer :

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+

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
 

Discussions similaires

Statistiques des forums

Discussions
312 884
Messages
2 093 248
Membres
105 658
dernier inscrit
Mario Richard