Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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
Trier par date Trier par votes

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
Vote positif 0 Vote négatif

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+
 
Vote positif 0 Vote négatif

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
 
Vote positif 0 Vote négatif

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:
Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc
Usine à gaz à dit:
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.
Cliquez pour agrandir...
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
 
Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc
Re-Jean-Marie

Nickel et est plus simple.
Je te remercie,

Bsr gérard

merci beaucoup, comme ça c'est bon aussi
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

C
  • Question
Microsoft 365 Avoir un calendrier d'équipe du type Outlook, mais sur Excel pour bénéficier des champs de listes
Réponses
1
Affichages
373
ChTi160
  • Résolu(e)
Microsoft 365 UserForm calendrier ne pas pouvoir en sortir si pas de date sélectionnée
Réponses
6
Affichages
579
Usine à gaz
  • Question
Microsoft 365 Mettre un code dans un UserForm calendrier pour bloquer si pas de date sélectionnée
Réponses
2
Affichages
531
Usine à gaz
S
  • Question
Microsoft 365 Problème d'affichage du calendrier dans mes cellules
Réponses
9
Affichages
664
scoubidou35
S
  • Résolu(e)
Microsoft 365 VBA Insertion du numéro de semaine de manière dynamique
Réponses
11
Affichages
220
Etoto
M
  • Résolu(e)
Microsoft 365 Suivi clients consigner les évènements du suivi (calendrier)
2
Réponses
21
Affichages
1 K
mcfv
M
F
  • Résolu(e)
XL 2021 Je ne trouve pas de calendrier
Réponses
7
Affichages
803
fanou06
F
  • Résolu(e)
XL 2021 Cellule vide : sélectionner et atteindre
2
Réponses
15
Affichages
1 K
Usine à gaz
T
  • Résolu(e)
XL 2016 Automatisation de la mise à jour de la date en fonction de l'état de la colonne F
Réponses
4
Affichages
575
telemarrk
T
  • Résolu(e)
XL 2021 Sélectionner la 1ère cellule après filtrage
Réponses
2
Affichages
469
Usine à gaz
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…