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...
🙂

 

[Eric C]

Bonjour le forum
Bonjour Lionel

Pour ne pas te fracasser les neurones, tu ajoutes un Bouton (Cancel - Annul...) à l'Usf du calendrier où tu places ce code :

Private Sub CommandButton1_Click()
Unload Me
End Sub

Bon ouikand à toutes & à tous
Eric c

 

[youky(BJ)]

Bonjour tous,
Pour le fun encore une autre version de calendrier qui s'adapte sur onglet ou userform.
Possibilité de changer directement l'année on change dans l'année.
Dispo aussi en telechargement du forum
Bruno

 

[Usine à gaz]

Merci Eric C pour ce retour;
Evidemment, ça fonctionne mais ne convient pas dans mon fonctionnement.
J'ai vraiment besoin que la date ne soit pas sélectionnée à l'ouverture du calendrier.
🙂

 

[Usine à gaz]

Bonjour et Merci youky(BJ) pou ce retour 🙂

Je garde ton fichier pour une autre utilisation.
Mais j'ai besoin d'utiliser le calendrier de mon post pour mon fichier de travail.
🙂

 

[youky(BJ)]

Bon,
Va dans le module Croixformulaire
Ajoute Exit sub ici en gras

Sub OteCroix(UF As UserForm)
Exit Sub
Dim hwnd As Long

Bruno

 

[Usine à gaz]

Merci youky(BJ) 🙂
Dsl, je ne veux pas que la "X" soit dispo lol
J'ai vraiment besoin que la date ne soit pas sélectionnée à l'ouverture du calendrier.
🙂

 

[ChTi160]

Bonjour le Fil
ce que j'ai bidouillé Lol
dans la procédure Activate du Userform j'ai mis

LbAujourdhui.Tag = Empty 'Ici à l'ouverture on vide le Tag
LbAujourdhui.Caption = Application.Proper(Format(Date, "dddd")) 'Left(C$, I - 1) & vbLf & Mid(C$, I + 1)

Dans la procédure "BoutonJourCalendrier(CtrlBouton As Control) "
'J 'ai rajouté sous CalendrierMiseAjour NoJour & "/" & NoMois & "/" & NoAn 'passage données au format date !
LbAujourdhui.Tag = Format(NoJour & "/" & NoMois & "/" & NoAn, "00000") 'ceux-ci
'puis lors l'appui sur le Bouton OK , On teste la Propriété Tag du Label "LbAujourdhui"
'ainsi si l'on n'a pas cliquer sur une date pas d'affichage sur la feuille lors de la fermeture

à voir !
Jean marie

 

[Usine à gaz]

Bonjour Jean-Marie 🙂
Merci pour ce retour.
Malheureusement, ça ne fonctionne pas bien.

cas 1 : si cellule est vide, c'est bon, ça fonctionne,
cas 2 : si cellule contient déjà une date, elle n'est pas effacée.

Je pense qu'il faudrait que la date sélectionnée à l'ouverture du calendrier (en bleue) soit vraiment désélectionnée donc de la même couleur que les autres (en gris clair)
🙂

 

[ChTi160]

Re
chez moi ça semble fonctionné Lol
Jean marie

 

[Usine à gaz]

Chez moi :
cas 1 : si cellule est vide, c'est bon, ça fonctionne,
cas 2 : si cellule contient déjà une date, elle n'est pas effacée.

Je pense qu'il faudrait peut-être que la date sélectionnée à l'ouverture du calendrier (en bleue) soit vraiment désélectionnée donc de la même couleur que les autres (en gris clair)
🙂

 

[ChTi160]

Re
tu dis :

Je pense qu'il faudrait que la date sélectionnée à l'ouverture du calendrier (en bleue) soit vraiment désélectionnée donc de la même couleur que les autres (en gris clair)

mais il n'y a pas de Date de sélectionnée a l'ouverture ! mais une affectation de la date du Jour

ici

CalendrierMiseAjour CalendrierDateSELECT '<ICI

 

[ChTi160]

Re
Il suffit d'effacer avant de quitter ou de remettre la date !
je regarde
Jean marie

 

[ChTi160]

comme ceux ci

Private Sub ButtonOK_Click()
ActiveCell = Empty 'ici on vide la cellule Cible
If LbAujourdhui.Tag = Empty Then Unload Me: Exit Sub
ActiveCell = CalendrierDateSELECT: Unload Me
End Sub

à voir!
Jean marie

 

[Usine à gaz]

lol : suis-je bête... Evidemment 🙂
Bon, je vrais retourner monger du fouin 🤣
Merci Jean-Marie
🙂