(RESOLU par JP14) Afficher des info dans Msgbox

[chaelie2015]

Bonjour Forum

Je souhaite cette fois développer mon message (Msgbox) du code JCGL😉

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

Si Weekday([S23], vbMonday) = 6 And [N23] = 12

Afficher dans Msgbox: CD Samedi après Midi non autorisée

Et

Si Weekday([S23], vbMonday) = 7 And [N23] = 8

Afficher dans Msgbox : CD Dimanche Matin Non Autorisée
MERCI

 

[jp14]

Bonjour
Ci dessous une solution pour modifier le texte d'un message

Dim Message As String
Message = "test"
If Weekday([S23], vbMonday) = 6 And [N23] = 12 Then Message = "CD Samedi après Midi non autorisée"
If Weekday([S23], vbMonday) = 7 And [N23] = 8 Then Message = " CD Dimanche Matin Non Autorisée"

Call MsgBox("" _
& Message & vbCrLf & "" _
, vbExclamation, "Selon le règlement interne")

A tester

 

[chaelie2015]

BonjourJP14
Merci pour la réponse, ça fonctionne bien, mais il reste un seul souci , c'est le message qui s'affiche "Test" COMMENT FAIRE POUR LE SUPPRIMER,?

NB : si non samedi ou non dimanche n'affiche rien
Salutations

 

[jp14]

Bonjour

Code modifié

Dim Message As String
Message = ""
If Weekday([S23], vbMonday) = 6 And [N23] = 12 Then Message = "CD Samedi après Midi non autorisée"
If Weekday([S23], vbMonday) = 7 And [N23] = 8 Then Message = " CD Dimanche Matin Non Autorisée"
if" message" <> then ' affichage du message si "message" contient une valeur
Call MsgBox("" _
& Message & vbCrLf & "" _
, vbExclamation, "Selon le règlement interne")
end if


ou
If Target.Address = "$S$23" Or Target.Address = "$N$23" Then
If Weekday([S23], vbMonday) = 6 And [N23] = 12 Then Message = "CD Samedi après Midi non autorisée"
If Weekday([S23], vbMonday) = 7 And [N23] = 8 Then Message = " CD Dimanche Matin Non Autorisée"
Call MsgBox("" _
& Message & vbCrLf & "" _
, vbExclamation, "Selon le règlement interne")
end if

JP14

 

[chaelie2015]

Bonjour

Code modifié

Dim Message As String
Message = ""
If Weekday([S23], vbMonday) = 6 And [N23] = 12 Then Message = "CD Samedi après Midi non autorisée"
If Weekday([S23], vbMonday) = 7 And [N23] = 8 Then Message = " CD Dimanche Matin Non Autorisée"
if" message" <> then ' affichage du message si "message" contient une valeur
Call MsgBox("" _
& Message & vbCrLf & "" _
, vbExclamation, "Selon le règlement interne")
end if


ou
If Target.Address = "$S$23" Or Target.Address = "$N$23" Then
If Weekday([S23], vbMonday) = 6 And [N23] = 12 Then Message = "CD Samedi après Midi non autorisée"
If Weekday([S23], vbMonday) = 7 And [N23] = 8 Then Message = " CD Dimanche Matin Non Autorisée"
Call MsgBox("" _
& Message & vbCrLf & "" _
, vbExclamation, "Selon le règlement interne")
end if

JP14

Re
Merci JP14? Maintenant ça fonctionne parfaitement.

Problème résolut
salutations