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

Microsoft 365 Calendrier : Ne pas pourvoir sélectionner une heure inférieure à maintenant

Usine à gaz

XLDnaute Barbatruc
Bonjour à toutes et à tous,
Je vous souhaite une belle journée

J'utilise l'excellent calendrier du non moins excellent Roland
Je lui avais demandé des modifications qu'il avait bien voulu prendre en compte.

Une modification très importante était la suivante :
Ne pas pouvoir sélectionner une date avant "aujourd'hui".
Et ça fonctionne nickel

J'ai besoin maintenant d'une autre sécurité qui concerne la saisie des heures de Rappels ou de rdvs
je souhaite que l'on ne puisse pas sélectionner une heure inférieure à l'heure "d'aujourd'hui".

Je tente de modifier le code mais, vu mon niveau, je n'y arrive pas
Pourriez-vous m'aider ?
je joins le fichier et je continue à bidouiller lol et Grrrrrr !

ça peut peut-être aussi intéresser notre ami patricktoulon
je vous remercie
lionel,
 

Pièces jointes

  • Calendrier_test_Roland_CodeThiswork - OK.xlsm
    108.6 KB · Affichages: 65
Dernière édition:
Solution
Bonjour Lionel,
Celle là je n'y avais pas pensé.
Un nouvel essai en PJ avec :
On ne limite les heures que si c'est aujourd'hui.
Code: 
Private Sub UserForm_Initialize()
If CDate(ActiveCell.Value) < CDate(Now) Then
    Hmin = 1 + Hour(Now): If Hmin > 20 Then Hmin = 20
    For I = Hmin To 20: CbHeure.AddItem I: Next
Else
    For I = 7 To 20: CbHeure.AddItem I: Next
End If
For I = 0 To 45 Step 15: CbMinute.AddItem I: Next
Me.Caption = "   Quitte X ou Sélect heure"
UserformPosSurCell ActiveCell 'position userf
End Sub
On ne limite l'heure affichée que si c'est aujourd'hui.
VB: 
Private Sub UserForm_Terminate()
H = Val(CbHeure): M = Val(CbMinute): If H = 24 Then M = 0
If CDate(ActiveCell.Value) < CDate(Now) Then
    T1 = Now - Int(Now)...
Trier par date Trier par votes

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonsoir Lionel,
Une demi solution : En ne mettant dans la liste que les heures postérieures à l'heure actuelle :
VB: 
Private Sub UserForm_Initialize()
Hmin = Hour(Now): If Hmin > 20 Then Hmin = 20
For I = Hmin To 20: CbHeure.AddItem I: Next
For I = 0 To 45 Step 15: CbMinute.AddItem I: Next
Me.Caption = "   Quitte X ou Sélect heure"
UserformPosSurCell ActiveCell 'position userf
End Sub
S'il est 18H40 par exemple, on aura accès qu'à 18,19 et 20H. Mais on pourra toujours entrer 18H15, donc avant l'heure actuelle.
Par contre la modif est très légère.
 
Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc
Supporter XLD
Re,
Une autre petite modif possible pour parer au defaut précédent :
VB: 
Private Sub UserForm_Terminate()
H = Val(CbHeure): M = Val(CbMinute): If H = 24 Then M = 0
T1 = Now - Int(Now)         ' Temps maintenant
T2 = (H + M / 60) / 24      ' Temps entré
If T1 > T2 Then
    H = 1+Hour(Now): M = 0    ' T entré < T maintenant alors T entré =1 T maintenant avec Min=0
    If H > 20 Then H = 20
End If
On Error Resume Next
'extraire seulement la date> JJ/MM/AAAA puis rajoute HH:MM <= MODIF Roland
ActiveCell = Format(Left(ActiveCell, 10), "dd mm yyyy ") & Format(H, "0#") & ":" & Format(M, "0#")
Unload Me
End Sub
Si l'heure entrée est < maintenant, on met l'heure présente entière.
 
Dernière édition:
Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc
Bonjour Sylvanu, le Forum,
Bonne journée à toutes et à tous,

Encore merci Sylvanu, ton code est déjà super et c'est le premier qui correspond le mieux à mon besoin car il me permet de sélectionner également les 1/4 d'heures :
VB: 
Private Sub UserForm_Initialize()
Hmin = Hour(Now): If Hmin > 20 Then Hmin = 20
For I = Hmin To 20: CbHeure.AddItem I: Next
For I = 0 To 45 Step 15: CbMinute.AddItem I: Next
Me.Caption = "   Quitte X ou Sélect heure"
UserformPosSurCell ActiveCell 'position userf
End Sub
On y est presque lol
Est-il possible d'y apporter 2 modifications :
1 - si il est 9 heures, il m'affiche les heures à sélectionner à partir de 10h uniquement si je sélectionne la date d'aujourd'hui
2 - si je sélectionne à partir de demain, il m'affiche les heures à sélectionner à partir de 7h

Ce serait super top
Amicalement,
lionel,
 
Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Lionel,
Celle là je n'y avais pas pensé.
Un nouvel essai en PJ avec :
On ne limite les heures que si c'est aujourd'hui.
Code: 
Private Sub UserForm_Initialize()
If CDate(ActiveCell.Value) < CDate(Now) Then
    Hmin = 1 + Hour(Now): If Hmin > 20 Then Hmin = 20
    For I = Hmin To 20: CbHeure.AddItem I: Next
Else
    For I = 7 To 20: CbHeure.AddItem I: Next
End If
For I = 0 To 45 Step 15: CbMinute.AddItem I: Next
Me.Caption = "   Quitte X ou Sélect heure"
UserformPosSurCell ActiveCell 'position userf
End Sub
On ne limite l'heure affichée que si c'est aujourd'hui.
VB: 
Private Sub UserForm_Terminate()
H = Val(CbHeure): M = Val(CbMinute): If H = 24 Then M = 0
If CDate(ActiveCell.Value) < CDate(Now) Then
    T1 = Now - Int(Now)         ' Temps maintenant
    T2 = (H + M / 60) / 24      ' Temps entré
    If T1 > T2 Then
        H = 1 + Hour(Now): M = 0  ' T entré < T maintenant alors T entré =1 T maintenant avec Min=0
        If H > 20 Then H = 20
    End If
End If
On Error Resume Next
'extraire seulement la date> JJ/MM/AAAA puis rajoute HH:MM <= MODIF Roland
ActiveCell = Format(Left(ActiveCell, 10), "dd mm yyyy ") & Format(H, "0#") & ":" & Format(M, "0#")
Unload Me
End Sub
En espérant couvrir tous les besoins.
 

Pièces jointes

  • Calendrier_test_Roland_CodeThiswork - OK (3).xlsm
    106.1 KB · Affichages: 38
Vote positif 0 Vote négatif
Solution
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
  • Résolu(e)
Microsoft 365 Additionner 36 heures à des dates et heures
Réponses
5
Affichages
568
TooFatBoy
  • Résolu(e)
XL 2021 Filtrage que je ne parviens pas à faire
Réponses
6
Affichages
582
Usine à gaz
S
  • Question
Microsoft 365 Utilisation de SOMME.SI.ENS avec critères potentiellement à ne pas prendre en compte
Réponses
1
Affichages
532
job75
E
  • Question
Microsoft 365 VBA Calendrier, rien ne se passe.
Réponses
12
Affichages
936
fanch55
C
  • Question
XL 2021 case à cocher dans ListView impacte une cellule de feuille
Réponses
1
Affichages
771
fanch55
  • Résolu(e)
Microsoft 365 UserForm calendrier ne pas pouvoir en sortir si pas de date sélectionnée
Réponses
6
Affichages
577
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
  • Résolu(e)
Microsoft 365 Formule que je ne parviens pas à adapter
Réponses
2
Affichages
471
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…