XL 2021 Calendrier : à l'affichage ne pas sélectionner de date

[Usine à gaz]

Bonjour à toutes et à tous

Je n'arrive pas à trouver le bon code pour mon calendrier
Contexte : A l'affichage, le calendrier sélectionne la date du jour,
Mon besoin : Je voudrais qu'il ne sélectionne pas de date,
Pourquoi ? si clic sur OK sans que j'ai sélectionné de date, je souhaite que ma cellule actice reste vide.
Codes concernés
vba : lignes calendrier
CalendrierMiseAjour CalendrierDateSELECT

Private Sub ButtonOK_Click()
ActiveCell = CalendrierDateSELECT: Unload Me
End Sub

Auriez-vous le bon code ?
Un grand mercie à toutes et à tous
Je joins le fichier test et je continue mes recherches...

 

[Usine à gaz]

Re-Bjr

lol un nouveau problème que je n'&avais pas vu :
Contexte : Le but est de s'assurer qu'une date de rappel soit bien sélectionnée
Mon besoin : Tant qu'une date n'est pas sélectionnée, un msgbox doit s'afficher et le calendrier doit revenir pour sélection d'une date.
Problème : Ca fontionne une 1ère fois mais ensuite, le msgbox ne revient pas tant qu'il n'y a pas de date sélectionnée.

Si tu veux bien encore m'aider, je remets ton dernier fichier en pièce jointe.
Grand merci...

 

[job75]

Bonjour Lionel, le forum,

Tu peux peut-être conserver le code d'origine en modifiant seulement :

Private Sub ButtonOK_Click()
If CalendrierDateSELECT = Date Then If MsgBox("Vous voulez vraiment la date du jour ?", 4) = 6 Then ActiveCell = CalendrierDateSELECT
Unload Me
End Sub

A+

 

[Usine à gaz]

Bonjour et merci Gérard
Mais pareil, ça ne fonctionne qu'une fois

 

[job75]

Pardon, utilise :

Private Sub ButtonOK_Click()
If CalendrierDateSELECT = Date Then If MsgBox("Vous voulez vraiment la date du jour ?", 4) = 7 Then CalendrierDateSELECT = ActiveCell
ActiveCell = CalendrierDateSELECT
Unload Me
End Sub

 

[Usine à gaz]

Encore merci gérard
Bizarre :
Si je répond OUI au msgbox, il met bien la date du jour dans la cellule...
Mais si je réponds NON, il me met "00:00:00" dans la cellule alors que dans ce cas, elle doit rester vide.

Et le msgbox de contrôle ne s'ouvre pas.

 

[ChTi160]

re
peut être ainsi a tester !
Jean marie

 

[Usine à gaz]

Ce qui simplifierait peut-être "la chose serait que la date ne soit pas sélectionnée à l'ouverture du calendrier.
Mais ce n'est peutêtre pas possible à coder ?

 

[Usine à gaz]

re
peut être ainsi a tester !
Jean marie

Tout bon
Merci jean-Marie

 

[ChTi160]

Ce qui simplifierait peut-être "la chose serait que la date ne soit pas sélectionnée à l'ouverture du calendrier.

la date n'est pas sélectionnée!

elle est affecté il me semble l'avoir dit ?????
tu dis : "Tout bon " regarde si tu peux optimiser Lol

Jean marie

 

[ChTi160]

Re
ou alors masquer a l'ouverture le Bouton OK et ne l'afficher que si une date est sélectionnée ?
Jean marie

 

[ChTi160]

un exemple
Jean marie

 

[Usine à gaz]

Re
ou alors masquer a l'ouverture le Bouton OK et ne l'afficher que si une date est sélectionnée ?
Jean marie

Oui, ce serait bien mais je ne sais pas le faire

 

[ChTi160]

Re
Voir le Fichier
Jean marie

 

[job75]

Bizarre :
Si je répond OUI au msgbox, il met bien la date du jour dans la cellule...
Mais si je réponds NON, il me met "00:00:00" dans la cellule alors que dans ce cas, elle doit rester vide.

Bon un petit effort :

Private Sub ButtonOK_Click()
If CalendrierDateSELECT = Date Then If MsgBox("Vous voulez vraiment la date du jour ?", 4) = 7 Then CalendrierDateSELECT = ActiveCell
ActiveCell = IIf(CalendrierDateSELECT = 0, "", CalendrierDateSELECT)
Unload Me
End Sub

 

[Usine à gaz]

Re-Jean-Marie

Nickel et est plus simple.
Je te remercie,

Bon un petit effort :

Private Sub ButtonOK_Click()
If CalendrierDateSELECT = Date Then If MsgBox("Vous voulez vraiment la date du jour ?", 4) = 7 Then CalendrierDateSELECT = ActiveCell
ActiveCell = IIf(CalendrierDateSELECT = 0, "", CalendrierDateSELECT)
Unload Me
End Sub

Bsr gérard

merci beaucoup, comme ça c'est bon aussi