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

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
5
Affichages
485
Deleted member 453598
D
Réponses
2
Affichages
283
Réponses
8
Affichages
662
Réponses
12
Affichages
1 K
Retour