(RESOLU par JP14) Afficher des info dans Msgbox

chaelie2015 · 29 Janvier 2017

Bonjour Forum

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

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

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 · 29 Janvier 2017

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 · 29 Janvier 2017

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 · 29 Janvier 2017

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 · 29 Janvier 2017

jp14 à dit:
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

(RESOLU par JP14) Afficher des info dans Msgbox

chaelie2015

XLDnaute Accro

jp14

XLDnaute Barbatruc

chaelie2015

XLDnaute Accro

Pièces jointes

jp14

XLDnaute Barbatruc

chaelie2015

XLDnaute Accro

Discussions similaires

(RESOLU par JP14) Afficher des info dans Msgbox

chaelie2015

XLDnaute Accro

jp14

XLDnaute Barbatruc

chaelie2015

XLDnaute Accro

Pièces jointes

jp14

XLDnaute Barbatruc

chaelie2015

XLDnaute Accro

Discussions similaires

Privacy & Transparency

Privacy & Transparency