Microsoft 365 Calendrier à la saisie d'une cellule de type date

Mes3oud92

XLDnaute Nouveau
Bonjour,

Serait-il possible de me montrer comment mettre en place un contrôle de cellule qui me permettra de choisir une date depuis un calendrier ?

Un peu de cette manière (e.g, add-in Time Picker) :
1623421837115.png

Merci par avance de votre aide.

Cdt,
M92
 
Dernière édition:

herve62

XLDnaute Barbatruc
Bonjour
Un petit fichier aurait été bienvenu !!
sinon ce code déclenchera l'ouverture ... un usf ?? à la selection de cellule dans la plage D5 : E20 donc à adapter
VB:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("D5:E20")) Is Nothing Then
 
T = Target.Row
If Target.Count > 1 Then Exit Sub
ICI METTRE L'ACTION QUI AFFICHE LE CALENDRIER
End If
End Sub
 

Mes3oud92

XLDnaute Nouveau
Bonjour
Un petit fichier aurait été bienvenu !!
sinon ce code déclenchera l'ouverture ... un usf ?? à la selection de cellule dans la plage D5 : E20 donc à adapter
VB:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("D5:E20")) Is Nothing Then
 
T = Target.Row
If Target.Count > 1 Then Exit Sub
ICI METTRE L'ACTION QUI AFFICHE LE CALENDRIER
End If
End Sub
Merci beaucoup pour votre retour. Vous trouverez ci-joint le fichier excel !
Je voudrais que la calendrier s'affiche suite au clic gauche de la souris sur une des cellules de la colonne 'Date'

1623439017070.png
 

Pièces jointes

  • Classeur1_Calendrier.xlsx
    8.5 KB · Affichages: 6

patricktoulon

XLDnaute Barbatruc
bonjour a tous
sinon on en fait un très simple ressemblant a celui du #post 1
en mode applicatif (modal ou non modal(voir si dessous explication))
compatible toute version (d'office/windows)(utilisation des api en excel4macro )

copier le module UFcalendrier dans votre projet

dans le module de (la/les) feuille concerné(s) mettre ceci
bien sur!! adapter les conditions ligne colonne à votre guise
pour le mode non modal débloquez tout ce qui est vert (en commentaire )

VB:
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Target.Count > 1 Then Exit Sub
UFcalendrier.Show '0
Cancel = True
End Sub

'Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'If UFcalendrier.Visible Then Unload UFcalendrier
'End Sub

Voila comme ça tu sera pas dépaysé ;) tu te retrouve avec quasiment le même
les calendriers chez patricktoulon ,c'est a la carte 🤣🤣🤣

petite démo
demo7.gif
 

Pièces jointes

  • calendrier v7.xlsm
    33.9 KB · Affichages: 6

Mes3oud92

XLDnaute Nouveau
bonjour a tous
sinon on en fait un très simple ressemblant a celui du #post 1
en mode applicatif (modal ou non modal(voir si dessous explication))
compatible toute version (d'office/windows)(utilisation des api en excel4macro )

copier le module UFcalendrier dans votre projet

dans le module de (la/les) feuille concerné(s) mettre ceci
bien sur!! adapter les conditions ligne colonne à votre guise
pour le mode non modal débloquez tout ce qui est vert (en commentaire )

VB:
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Target.Count > 1 Then Exit Sub
UFcalendrier.Show '0
Cancel = True
End Sub

'Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'If UFcalendrier.Visible Then Unload UFcalendrier
'End Sub

Voila comme ça tu sera pas dépaysé ;) tu te retrouve avec quasiment le même
les calendriers chez patricktoulon ,c'est a la carte 🤣🤣🤣

petite démo
Regarde la pièce jointe 1108354

Bonjour @patricktoulon, merci beaucoup pour votre retour.
J'ai un petit soucis de mon côté car en sélectionnant une cellule vide de la colonne A, le calendrier ne s'affiche pas. Pouvez-vous apporter de l'aide, svp ?

1623604088243.png


Cdt,
M92
 

patricktoulon

XLDnaute Barbatruc
perso un dialog ou un menu j'estime qu'il doit toujours être appelé du click droit pour 2 raisons
la première c'est comme ca partout dans toute application
la 2d et plus particulièrement dans excel ,c'est que le clickdroit fonctionne même sur une cellule déjà sélectionné
 

patricktoulon

XLDnaute Barbatruc
je suis quand même content d'avoir enfin un retour de 365 pour les api avec les macro4
ce qui valide définitivement la compatibilité (toute version d'office) et pour peu que tu soit en 64 bits c'est le pompon je peux clore cette recherche de compatibilité
 

Discussions similaires

Statistiques des forums

Discussions
288 693
Messages
1 894 017
Membres
170 246
dernier inscrit
Fahdj2002
Haut Bas