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

M92_

XLDnaute Junior
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:

Scorpio

XLDnaute Impliqué
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 mon model fonctionne avec le click droit
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,
J'aimerais utiliser votre UF calendrier dans ce classeur, dans la colonne B, a partir de B2, mais je ne suis pas un expert en code, alors je m'adresse
a vous pour me donner un coup de pouce.
Est-ce possible, et merci d'avance
Scorpio
 

Pièces jointes

  • Gestion_Compte.xlsm
    76.5 KB · Affichages: 5

Discussions similaires

Statistiques des forums

Discussions
314 631
Messages
2 111 389
Membres
111 119
dernier inscrit
cooc