Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 UserForm calendrier ne pas pouvoir en sortir si pas de date sélectionnée

Usine à gaz

XLDnaute Barbatruc
Bonjour à toutes et à tous

Je bute encore sur un code que je n'arrive pas à FAIRE.
Je voudrais "NE PAS POUVOIR SORTIR SI PAS DE DATE SELECTIONNEE"
Mon contexte :
Pour obliger à sélectionner une date de rappel, je souhaite qu'on ne puisse pas sortir si pas de date sélectionnée = seule sortie possible, la sélection d'une date.
Pour arriver au calendrier, on clique dans la colonne "L", on affecte en sélectionnant "A Rappeler" (le 1er en haut du déroulant) et le calendrier s'affiche.

J'ai tenter plusieurs code dont celui ci-dessous :
VB: 
Private Sub ButtonOK_Click()
If Date = TODAY Then
'If Date = .FormulaR1C1 = "=TODAY()" Then
MsgBox ("Vous devez sélectionner une date de Rappel !")
Exit Sub
Else
ActiveCell = CalendrierDateSELECT: Unload Me
End If
End Sub
Sans succès Grrr !!!
Pourriez-vous m'aider ?

En cas, je joins mon fichier test et le fichier qui fonctionne.
Un grand merci à tous,
 

Pièces jointes

  • sortie UF test.xlsm
    92.2 KB · Affichages: 2
Solution
Salut Lionel, le code ci-dessous devrait faire l'affaire :
VB: 
Private Sub ButtonOK_Click()
    If CalendrierDateSELECT <= Date Then
        MsgBox ("Vous devez sélectionner une date de Rappel !")
    Else
        ActiveCell = CalendrierDateSELECT
        Unload Me
    End If
End Sub
Trier par date Trier par votes

fanch55

XLDnaute Barbatruc
Salut Lionel, le code ci-dessous devrait faire l'affaire :
VB: 
Private Sub ButtonOK_Click()
    If CalendrierDateSELECT <= Date Then
        MsgBox ("Vous devez sélectionner une date de Rappel !")
    Else
        ActiveCell = CalendrierDateSELECT
        Unload Me
    End If
End Sub
 
Vote positif 0 Vote négatif
Solution

Usine à gaz

XLDnaute Barbatruc
Re-fanch55
Ton code est nickel mais j'avais omis une autre situation :

Ce que je voudrais :
1 - Si clic dans une cellule de la colonne "L" (Cells(ActiveCell.Row, 13)) = ton code s'éxécute et bloque si pas de date sélectionnée,
2 - Si clic dans une cellule de la colonne "O" (Cells(ActiveCell.Row, 15)) = la possibilité est laissée de ne pas sélectionner de date et le calendrier se ferne.

J'ai tenté de bidouiller et j'en suis à ce code :
VB: 
Private Sub ButtonOK_Click()
    If ActiveCell = Cells(ActiveCell.Row, 13) Or ActiveCell = Cells(ActiveCell.Row, 15) Then
        If ActiveCell = Cells(ActiveCell.Row, 15) And CalendrierDateSELECT <= Date Then
            Unload Me
            Cells(ActiveCell.Row, 5).Select
            Application.EnableEvents = True
            Application.ScreenUpdating = True
            Cells(ActiveCell.Row, 15) = ""
        End If
        If ActiveCell = Cells(ActiveCell.Row, 13) And CalendrierDateSELECT <= Date Then
            MsgBox ("Vous devez sélectionner une date de Rappel !")
        Else
            ActiveCell = CalendrierDateSELECT
            Unload Me
        End If
    End If
End Sub
Mais ça ne marche pas ol
tu aurais le bon code ?
Je remets le fichier avec juste ton code ci-dessus inclus.
Voudrais-tu encore m'aider ?
UN re-Grand merci à toi...
 

Pièces jointes

  • sortie UF test.xlsm
    86.8 KB · Affichages: 6
Dernière édition:
Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc
Re
J'en suis là :
VB: 
Private Sub ButtonOK_Click()
    If ActiveCell.Address = Cells(ActiveCell.Row, 15) And CalendrierDateSELECT <= Date Then
        Unload Me
        Cells(ActiveCell.Row, 5).Select
        Application.EnableEvents = True
        Application.ScreenUpdating = True
        Cells(ActiveCell.Row, 15) = ""
    End If

    If ActiveCell.Address = Cells(ActiveCell.Row, 13) Then
        If CalendrierDateSELECT <= Date Then
            MsgBox ("Vous devez sélectionner une date de Rappel !")
        Else
            ActiveCell = CalendrierDateSELECT
            Unload Me
        End If
    End If
End Sub
Mais ça veut pas fonctionner
Sniff....
 
Vote positif 0 Vote négatif

fanch55

XLDnaute Barbatruc
Bonjour,
Déclaration d'une variable publique de type range dans le module CroixFormulaire .
VB: 
Option Explicit
...
...
Public SelCell As Range
Modification de Worksheet_SelectionChange de la feuille Répondeurs pour assigner la cellule cliquée à la variable publique .
Code: 
Private Sub Worksheet_SelectionChange(ByVal R As Range)
...
Set SelCell = R
    If Not Intersect(R, Range("l6:l12")) Is Nothing And R.Count = 1 Then
...
Modification de l'initialize de l'userform fm_CalendrierCellMinMax pour neutraliser la croix de fermeture sans choix uniquement si la colonne est "L"
VB: 
Private Sub UserForm_Initialize() 'place userf aux environs de la cellule
    If SelCell Is Nothing Then Set SelCell = ActiveCell
    If SelCell.Column = Columns("L").Column Then
        ' on neutralise la croix de fermeture
        hwnd = FindWindowA("Thunder" & _
               IIf(Application.Version Like "8*", "X", "D") & "Frame", _
               Me.Caption)
        SetWindowLongA hwnd, -16, GetWindowLongA(hwnd, -16) And &HFFF7FFFF
    End If
....
....
End Sub
 

Pièces jointes

  • sortie UF test.xlsm
    91.7 KB · Affichages: 5
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

  • Résolu(e)
XL 2021 Calendrier : à l'affichage ne pas sélectionner de date
2
Réponses
29
Affichages
1 K
Usine à gaz
  • Question
Microsoft 365 Mettre un code dans un UserForm calendrier pour bloquer si pas de date sélectionnée
Réponses
2
Affichages
531
Usine à gaz
  • Résolu(e)
Microsoft 365 Afficher l'UserForm Calendrier sans la "X" de sortie
Réponses
1
Affichages
567
Usine à gaz
E
  • Question
Microsoft 365 VBA Calendrier, rien ne se passe.
Réponses
12
Affichages
937
fanch55
  • Résolu(e)
XL 2021 Filtrage que je ne parviens pas à faire
Réponses
6
Affichages
582
Usine à gaz
  • Question
Microsoft 365 Selon de cellule : je n'ai pas la main
Réponses
3
Affichages
487
Dranreb
C
  • Question
Autres Dans Excel, à partir d'un UserForm, copier l'adresse sélectionnée dans enveloppe de publipostage Word et ouvrir la fenêtre "aperçu avant impression"
Réponses
11
Affichages
662
Chatron
C
  • Question
XL 2019 Target ne s'exécute pas si je valide ma cellule vide
Réponses
5
Affichages
772
patricktoulon
  • Résolu(e)
Microsoft 365 Calendrier : Ne pas pourvoir sélectionner une heure inférieure à maintenant
Réponses
6
Affichages
1 K
Usine à gaz
  • Résolu(e)
Microsoft 365 Calendrier : Modifier Target > change R
Réponses
10
Affichages
2 K
Usine à gaz
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…