Microsoft 365 Mettre un code dans un UserForm calendrier pour bloquer si pas de date sélectionnée

[Usine à gaz]

Bonsoir à toutes et à tous

Je reviens sur l'utilisation de mon calendrier (fait par Roland-M).
Un autre souci a été résolu par Hasco dans ce fil https://excel-downloads.com/threads...n-existante-dans-la-portee-en-cours.20071761/

Je voudrais obliger la sélection d'une date sur le calendrier ouvert.
C'est à dire que si clic sur la "X" de sortie sans sélection de date, je voudrais que ce code s'exécute :

Si clic sur la "X" sans sélectionner de date alors
    If ActiveCell = Cells(ActiveCell.Row, 15) Then
        If CalendrierDateSELECT <= Date Then
            Unload Me
            Cells(ActiveCell.Row, 5).Select
            Application.EnableEvents = True
            Application.ScreenUpdating = True
            Cells(ActiveCell.Row, 15) = ""
            Exit Sub
        End If
    End If

        If CalendrierDateSELECT <= Date Then
            MsgBox ("Vous devez sélectionner une date de Rappel !")
        Else
            Cells(ActiveCell.Row, 13) = CalendrierDateSELECT
            Unload Me
        End If
End Sub

Ce code fonctionne sur un autre calendrier que je ne peux pas utiliser dans ce fichier.
Je n'arrive pas à le placer correctement.
Pourriez-vous m'aider ?
En cas, je joins le fichier test...
Un grand merci à tous

 

[patricktoulon]

bonsoir lionel
et pourquoi va tu chercher midi 14 heures
il te suffit de modifier le queryclose
a la place de ceci

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = 0 Then DateSelectUser = "": Cancel = True: Me.Hide: ActiveCell.ColumnWidth = 8: Cells(ActiveCell.Row, 5).Select
End Sub

tu met simplement

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = 0 Then Cancel = True
End Sub

tu pourra tout simplement plus le fermer par la croix
pas compliqué

 

[Usine à gaz]

Merci Patrick, je vais voir