Usine à gaz
XLDnaute Barbatruc
Bonjour à toutes et à tous
Je bute encore sur un code que je n'arrive pas à FAIRE.
Je voudrais "NE PAS POUVOIR SORTIR SI PAS DE DATE SELECTIONNEE"
Mon contexte :
Pour obliger à sélectionner une date de rappel, je souhaite qu'on ne puisse pas sortir si pas de date sélectionnée = seule sortie possible, la sélection d'une date.
Pour arriver au calendrier, on clique dans la colonne "L", on affecte en sélectionnant "A Rappeler" (le 1er en haut du déroulant) et le calendrier s'affiche.
J'ai tenter plusieurs code dont celui ci-dessous :
Sans succès Grrr !!!
Pourriez-vous m'aider ?
En cas, je joins mon fichier test et le fichier qui fonctionne.
Un grand merci à tous,
Je bute encore sur un code que je n'arrive pas à FAIRE.
Je voudrais "NE PAS POUVOIR SORTIR SI PAS DE DATE SELECTIONNEE"
Mon contexte :
Pour obliger à sélectionner une date de rappel, je souhaite qu'on ne puisse pas sortir si pas de date sélectionnée = seule sortie possible, la sélection d'une date.
Pour arriver au calendrier, on clique dans la colonne "L", on affecte en sélectionnant "A Rappeler" (le 1er en haut du déroulant) et le calendrier s'affiche.
J'ai tenter plusieurs code dont celui ci-dessous :
VB:
Private Sub ButtonOK_Click()
If Date = TODAY Then
'If Date = .FormulaR1C1 = "=TODAY()" Then
MsgBox ("Vous devez sélectionner une date de Rappel !")
Exit Sub
Else
ActiveCell = CalendrierDateSELECT: Unload Me
End If
End Sub
Pourriez-vous m'aider ?
En cas, je joins mon fichier test et le fichier qui fonctionne.
Un grand merci à tous,