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

Eric C

XLDnaute Barbatruc

• 3 Février 2024

• #2

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 :

VB:

Private Sub CommandButton1_Click()
Unload Me
End Sub

Bon ouikand à toutes & à tous
Eric c

 

Pièces jointes

• calendrier test2.xlsm

  77.2 KB · Affichages: 2

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 3 Février 2024

• #3

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

 

Pièces jointes

• Dateur_V3.xlsm

  50 KB · Affichages: 4

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 3 Février 2024

• #4

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

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 3 Février 2024

• #5

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

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 3 Février 2024

• #6

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

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

Bruno

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 3 Février 2024

• #7

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

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 3 Février 2024

• #8

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

VB:

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

 

Pièces jointes

• calendrier test Chti160.xlsm

  72.8 KB · Affichages: 5

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 3 Février 2024

• #9

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

 

Dernière édition: 3 Février 2024

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 3 Février 2024

• #10

Re
chez moi ça semble fonctionné Lol
Jean marie

 

Pièces jointes

• Lionel_Test_1.gif

  697 KB · Affichages: 9

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 3 Février 2024

• #11

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

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 3 Février 2024

• #12

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)

Cliquez pour agrandir...

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

ici

VB:

CalendrierMiseAjour CalendrierDateSELECT '<ICI

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 3 Février 2024

• #13

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

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 3 Février 2024

• #14

comme ceux ci

Code:

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

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 3 Février 2024

• #15

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

 

Vote positif 0 Vote négatif