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

[M92_]

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

Merci par avance de votre aide.

Cdt,
M92

 

[herve62]

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

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

 

[M92_]

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

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'

 

[Dranreb]

Bonsoir.
Proposition

 

[M92_]

Bonsoir.
Proposition

Bonsoir,

Un grand merci. Cela répond parfaitement à mon besoin.
Puis-je comprendre comment la macro est construite ? le rôle de chaque ligne VBA ?
Merci encore.

Cdt,
M92

 

[Dranreb]

Il y a des commentaires guides d'utilisation de ces méthodes dans l'UFmCalend et l'UFmCalenS.

 

[patricktoulon]

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 )

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

 

[M92_]

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 )

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 ?

Cdt,
M92

 

[patricktoulon]

bonjour mon model fonctionne avec le click droit

 

[M92_]

bonjour mon model fonctionne avec le click droit

Un grand merci, ça marche avec le click droit!

Cdt,
M92

 

[patricktoulon]

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]

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é

 

[fredd]

bonjour. J'ai une question sur le code de @patricktoulon

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

Celui çi permet de lancer le calendrier si on fait un clique droit sur n'importe quel cellule de la feuille.
mais comment limiter par exemple à la colonne A et la colonne H?
Merci

 

[Dranreb]

Bonsoir.
Que ce soit pour mon calendrier ou un autre c'est pareil: vous ajoutez un instruction qui le vérifie :

If Target.Column <> 1 And Target.Column <> 8 Then Exit Sub

 

[fredd]

Bonsoir.
Que ce soit pour mon calendrier ou un autre c'est pareil: vous ajoutez un instruction qui le vérifie :

If Target.Column <> 1 And Target.Column <> 8 Then Exit Sub

ah oui, tous simplement!!!
Il suffisant d'ajouter and et rappeler la commande ...
Je ne maitrise pas le VBA et je découvre à chaque fois des choses et dans ma tete c'était plutot "Or" et j'avais tester un
If Target.Column <> 1 or 8 Then Exit Sub Ben ça marche pas

Merci beaucoup @Dranreb c'est parfait.