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

Usine à gaz

XLDnaute Barbatruc
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...
:)
 

Pièces jointes

  • calendrier test.xlsm
    68.7 KB · Affichages: 9

Usine à gaz

XLDnaute Barbatruc
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...
:)
 

Pièces jointes

  • calendrier test Chti160.xlsm
    76.4 KB · Affichages: 2

job75

XLDnaute Barbatruc
Bonjour Lionel, le forum,

Tu peux peut-être conserver le code d'origine en modifiant seulement :
VB:
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+
 

job75

XLDnaute Barbatruc
Pardon, utilise :
VB:
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

XLDnaute Barbatruc
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.
:)
 
Dernière édition:

job75

XLDnaute Barbatruc
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 :
VB:
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

XLDnaute Barbatruc
Re-Jean-Marie :)

Nickel et est plus simple.
Je te remercie,
:)
Bon un petit effort :
VB:
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
:)
 

Discussions similaires

Statistiques des forums

Discussions
313 309
Messages
2 097 033
Membres
106 812
dernier inscrit
Excellou74