Microsoft 365 Msg Box sur conditions

Créer une discussion
Répondre

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
F

FCMLE44

XLDnaute Impliqué
Bonjour

Dans le code ci dessous,

VB: 
Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address = "$D$21" Then
        If Target = "" Then Exit Sub
            Call ecriture
    End If
       '****************************************** Masquer/afficher************************
   If Target.Address = "$D$18" Then
        Application.ScreenUpdating = False
        Sheets("Courriers").Range("28:28,232:289").EntireRow.Hidden = False
        Range("20:69").EntireRow.Hidden = False
        Select Case Target.Value
        Case "Démission"
            [20:23,41:69].EntireRow.Hidden = True
            Sheets("Courriers").Range("232:289").EntireRow.Hidden = True
        Case "Fin de contrat Apprentissage", "Fin de contrat Professionnalisation", "Licenciement Faute Grave"
            [20:28,41:69].EntireRow.Hidden = True
            Sheets("Courriers").Range("232:289").EntireRow.Hidden = True
        Case "Décès"
            [20:28,41:69].EntireRow.Hidden = True
            Sheets("Courriers").Range("232:289,28:28").EntireRow.Hidden = True
        Case "Fin de Contrat à Durée Déterminée"
            [20:28,46:69].EntireRow.Hidden = True
            Sheets("Courriers").Range("232:289").EntireRow.Hidden = True
        Case "Licenciement Autres"
            [41:46].EntireRow.Hidden = True
            Sheets("Courriers").Range("232:289").EntireRow.Hidden = True
        Case "Retraite"
            [20:20,22:23,41:46].EntireRow.Hidden = True
        Sheets("Courriers").Range("28:28").EntireRow.Hidden = True
        Case "Rupture Conventionnelle"
            [25:28,41:46].EntireRow.Hidden = True
            Sheets("Courriers").Range("232:289").EntireRow.Hidden = True
        End Select
    End If
    '****************************************** Alerte Retraite************************
    If Target.Address(0, 0) = "D18" And UCase(Range("D18")) = "RETRAITE" Then
        mois = Month(Range("B17")) + 1
        If mois = 13 Then
         mois = 1
        an = Year(Range("B17")) + 1
    Else
        an = Year(Range("B17"))
    End If
        findemois = CDate("01/" & mois & "/" & an) - 1
    If Range("B17") <> findemois Then
    MsgBox ("Attention, un départ en retraite ne doit jamais avoir lieu au début ni même en cours de mois. Uniquement le dernier jour du mois. Merci, par conséquent de modifier la date de sortie en cellule B17. EN CAS D'INFORMATION CONTRAIRE, MERCI DE PRENDRE CONTACT AVEC VOTRE RESPONSABLE DE GROUPE")
      Range("B17") = ""
    End If
    '****************************************** Alerte Licenciement Autres************************
    If Target.Address(0, 0) = "D18" And UCase(Range("D18")) = "Licenciement Autres" Then
     MsgBox ("Veuillez saisir la date de notification en cellule B18")
      Range("B18") = ""
   End If
End If
End Sub

je viens de rajouter une condition pour obtenir un message si cellule D18 de la feuille salarié = "Licenciement Autres"

Code: 
    '****************************************** Alerte Licenciement Autres************************
    If Target.Address(0, 0) = "D18" And UCase(Range("D18")) = "Licenciement Autres" Then
     MsgBox ("Veuillez saisir la date de notification en cellule B18")
      Range("B18") = ""
   End If

Cela ne fonctionne pas
Aurais je oublier un truc ?

Merci
 
Solution
R
ajoutez simplement cette ligne au code

ActiveSheet.Range("B18").Activate


VB: 
        Case "Licenciement Autres"
'            [41:46].EntireRow.Hidden = True
            ActiveSheet.Range("41:46").EntireRow.Hidden = True
            Sheets("Courriers").Range("232:289").EntireRow.Hidden = True
            '
            MsgBox ("Veuillez saisir la date de notification en cellule B18")
            ActiveSheet.Range("B18") = ""
            ActiveSheet.Range("B18").Activate
            '

🙂
Trier par date Trier par votes
Bonjour à tous


essayez de changer cette partie de votre code en quelque chose de similaire à celui-ci

VB: 
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

'le reste de votre code ici
If Target.Column = 4 Then
        If Target.Row = "18" Then
            Select Case Target.Value
                Case "RETRAITE"
                    'le reste de votre code ici
                    MsgBox ("Attention, un départ en retraite ne doit jamais avoir lieu au début ni même en cours de mois. Uniquement le dernier jour du mois. Merci, par conséquent de modifier la date de sortie en cellule B17. EN CAS D'INFORMATION CONTRAIRE, MERCI DE PRENDRE CONTACT AVEC VOTRE RESPONSABLE DE GROUPE")
                    'le reste de votre code ici
                Case "Licenciement Autres"
                    'le reste de votre code ici
                    MsgBox ("Veuillez saisir la date de notification en cellule B18")
                    'le reste de votre code ici
                
                Case Else
                    'Cancel = True
            End Select
        Else
        'Cancel = True
        End If
End If
'le reste de votre code ici

End Sub



J'espère aider
 
Vote positif 0 Vote négatif
Voyez si c'est ce que vous cherchez à faire, je viens de mettre le code que vous aviez dans le cas de sélection, ou voulez-vous que les parties de votre code soient écrites séparément?

J 'ai fait un test mettant une date sur $B$17 et cela a fonctionné avec vos conditions



VB: 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim mois As Variant, findemois As Variant

    If Target.Address = "$D$20" Then
        If Target = "" Then Exit Sub
            Call ecriture
    End If
       '****************************************** Masquer/afficher************************
    If Target.Address = "$D$18" Then
        Application.ScreenUpdating = False
        Sheets("Courriers").Range("28:28,232:289").EntireRow.Hidden = False
        Range("20:69").EntireRow.Hidden = False
        Select Case Target.Value
        Case "Démission"
'            [20:23,41:69].EntireRow.Hidden = True
            ActiveSheet.Range("20:23").EntireRow.Hidden = True
            ActiveSheet.Range("41:69").EntireRow.Hidden = True
            Sheets("Courriers").Range("232:289").EntireRow.Hidden = True
        Case "Fin de contrat Apprentissage", "Fin de contrat Professionnalisation", "Licenciement Faute Grave"
'            [20:28,41:69].EntireRow.Hidden = True
            ActiveSheet.Range("20:48").EntireRow.Hidden = True
            ActiveSheet.Range("41:69").EntireRow.Hidden = True
            Sheets("Courriers").Range("232:289").EntireRow.Hidden = True
        Case "Décès"
'            [20:28,41:69].EntireRow.Hidden = True
            ActiveSheet.Range("20:28").EntireRow.Hidden = True
            ActiveSheet.Range("41:69").EntireRow.Hidden = True
            Sheets("Courriers").Range("232:289,28:28").EntireRow.Hidden = True
        Case "Fin de Contrat à Durée Déterminée"
'            [20:28,46:69].EntireRow.Hidden = True
            ActiveSheet.Range("20:28").EntireRow.Hidden = True
            ActiveSheet.Range("46:69").EntireRow.Hidden = True
            Sheets("Courriers").Range("232:289").EntireRow.Hidden = True
        Case "Licenciement Autres"
'            [41:46].EntireRow.Hidden = True
            ActiveSheet.Range("41:46").EntireRow.Hidden = True
            Sheets("Courriers").Range("232:289").EntireRow.Hidden = True
            '
            MsgBox ("Veuillez saisir la date de notification en cellule B18")
            Range("B18") = ""
            '
        Case "Retraite"
'            [21:23,41:46].EntireRow.Hidden = True
            ActiveSheet.Range("21:23").EntireRow.Hidden = True
            ActiveSheet.Range("41:46").EntireRow.Hidden = True
            Sheets("Courriers").Range("28:28").EntireRow.Hidden = True
            '
            mois = Month(Range("B17")) + 1
            If mois = 13 Then
                mois = 1
                an = Year(Range("B17")) + 1
            Else
                an = Year(Range("B17"))
            End If
            findemois = CDate("01/" & mois & "/" & an) - 1
            If Range("B17") <> findemois Then
                MsgBox ("Attention, un départ en retraite ne doit jamais avoir lieu au début ni même en cours de mois. Uniquement le dernier jour du mois. Merci, par conséquent de modifier la date de sortie en cellule B17. EN CAS D'INFORMATION CONTRAIRE, MERCI DE PRENDRE CONTACT AVEC VOTRE RESPONSABLE DE GROUPE")
              Range("B17") = ""
            End If
            '
        Case "Rupture Conventionnelle"
'            [21:28,41:46].EntireRow.Hidden = True
            ActiveSheet.Range("21:28").EntireRow.Hidden = True
            ActiveSheet.Range("41:46").EntireRow.Hidden = True
            Sheets("Courriers").Range("232:289").EntireRow.Hidden = True
        End Select
'    End If
'    '****************************************** Alerte Retraite************************
'    ElseIf Target.Address(0, 0) = "$D$18" And VBA.UCase(ActiveSheet.Range("D18")).Value = "RETRAITE" Then
'        mois = Month(Range("B17")) + 1
'        If mois = 13 Then
'            mois = 1
'            an = Year(Range("B17")) + 1
'        Else
'            an = Year(Range("B17"))
'        End If
'        findemois = CDate("01/" & mois & "/" & an) - 1
'        If Range("B17") <> findemois Then
'            MsgBox ("Attention, un départ en retraite ne doit jamais avoir lieu au début ni même en cours de mois. Uniquement le dernier jour du mois. Merci, par conséquent de modifier la date de sortie en cellule B17. EN CAS D'INFORMATION CONTRAIRE, MERCI DE PRENDRE CONTACT AVEC VOTRE RESPONSABLE DE GROUPE")
'          Range("B17") = ""
'        End If
'    '****************************************** Alerte Licenciement Autres************************
'   ElseIf Target.Address(0, 0) = "$D$18" And VBA.UCase(ActiveSheet.Range("D18")).Value = "Licenciement Autres" Then
'     MsgBox ("Veuillez saisir la date de notification en cellule B18")
'      Range("B18") = ""
'   End If
    End If
 
Vote positif 0 Vote négatif
ajoutez simplement cette ligne au code

ActiveSheet.Range("B18").Activate


VB: 
        Case "Licenciement Autres"
'            [41:46].EntireRow.Hidden = True
            ActiveSheet.Range("41:46").EntireRow.Hidden = True
            Sheets("Courriers").Range("232:289").EntireRow.Hidden = True
            '
            MsgBox ("Veuillez saisir la date de notification en cellule B18")
            ActiveSheet.Range("B18") = ""
            ActiveSheet.Range("B18").Activate
            '

🙂
 
Vote positif 0 Vote négatif
Solution
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

thunder23
  • Résolu(e)
XL 2021 Bug dans code vba
Réponses
8
Affichages
647
thunder23
thunder23
P
  • Résolu(e)
Microsoft 365 Afficher ou masquer formes si une cellule est vide
Réponses
11
Affichages
509
pat66
P
PatFr38
  • Résolu(e)
Microsoft 365 Code VBA pour vérifier si lignes masquées le sont bien
2
Réponses
16
Affichages
2 K
PatFr38
PatFr38
Nicolas JACQUIN
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
2 K
Nicolas JACQUIN
Nicolas JACQUIN
pompaero
  • Résolu(e)
Microsoft 365 Amélioration codage
Réponses
4
Affichages
549
pompaero
pompaero
patricktoulon
  • Question Question
Autres Petite mise a jour (exceptionnellement pour cp4) du calendar V4.1(OLDVERSION)
2
Réponses
21
Affichages
1 K
patricktoulon
patricktoulon
G
  • Question Question
Microsoft 365 Incompatibilité de type - Array
Réponses
2
Affichages
762
guiyom
G
F
  • Résolu(e)
Microsoft 365 Annulation target
Réponses
5
Affichages
942
FCMLE44
F
P
  • Résolu(e)
XL 2019 Conditions dans Worksheet_Change(ByVal Target As Range)
Réponses
4
Affichages
567
pat66
P
U
  • Question Question
Autres [RÉSOLU] Faire afficher ligne sur tout le classeur par double clic et la faire maquer à l’enregistrement
Réponses
11
Affichages
899
un internaute
U
U
  • Question Question
Autres Enregistrer sur Onglet TOTO
Réponses
2
Affichages
682
un internaute
U
Usine à gaz
  • Résolu(e)
XL 2021 Filtrage que je ne parviens pas à faire
Réponses
6
Affichages
700
Usine à gaz
Usine à gaz
U
  • Question Question
Autres [RÉSOLU] Problème macro mais lequel?
Réponses
4
Affichages
674
un internaute
U
M
  • Question Question
XL 2010 Calcul possible dans la zone de liste pour le débit et le crédit lors d'une recherche basée sur la zone de texte
Réponses
0
Affichages
861
Mody200
M
tactic6
  • Question Question
XL 2016 Aide pour userform (sujet clos)
Réponses
8
Affichages
589
tactic6
tactic6
Nicolas JACQUIN
  • Résolu(e)
XL 2021 Doublons, Colorer partie de ligne en fonction de valeur dans colonne défini
Réponses
2
Affichages
522
Nicolas JACQUIN
Nicolas JACQUIN
U
  • Question Question
Autres [RÉSOLU] Pour faire afficher colonne F par double clic dans tout le classeur
Réponses
3
Affichages
561
vgendron
vgendron
U
  • Résolu(e)
Autres Mettre en couleur ligne avec VBA car MFC occupées (Excel 2003)
2
Réponses
15
Affichages
2 K
un internaute
U
U
  • Question Question
Autres {RÉSOLU] Problème macro
Réponses
2
Affichages
766
un internaute
U
L
  • Résolu(e)
Microsoft 365 Ajouter une ligne dans un tableau structuré
Réponses
8
Affichages
3 K
Lune999
L
Retour