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

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 3 Février 2024

• #16

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

• 3 Février 2024

• #17

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

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 3 Février 2024

• #18

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 3 Février 2024

• #19

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

Supporter XLD

• 3 Février 2024

• #20

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: 3 Février 2024

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 3 Février 2024

• #21

re
peut être ainsi a tester !
Jean marie

 

Pièces jointes

• calendrier test Chti160-2.xlsm

  73.9 KB · Affichages: 3

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 3 Février 2024

• #22

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 ?

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 3 Février 2024

• #23

ChTi160 à dit:

re
peut être ainsi a tester !
Jean marie

Cliquez pour agrandir...

Tout bon
Merci jean-Marie

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 3 Février 2024

• #24

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 3 Février 2024

• #25

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

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 3 Février 2024

• #26

un exemple
Jean marie

 

Pièces jointes

• Lionel_Test_2.gif

  796.7 KB · Affichages: 8

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 3 Février 2024

• #27

ChTi160 à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 3 Février 2024

• #28

Re
Voir le Fichier
Jean marie

 

Pièces jointes

• calendrier test Chti160-3.xlsm

  73.5 KB · Affichages: 8

Vote positif 0 Vote négatif

Solution

job75

XLDnaute Barbatruc

• 3 Février 2024

• #29

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

Supporter XLD

• 3 Février 2024

• #30

Re-Jean-Marie

Nickel et est plus simple.
Je te remercie,

job75 à dit:

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

Cliquez pour agrandir...

Bsr gérard

merci beaucoup, comme ça c'est bon aussi

 

Vote positif 0 Vote négatif