Condition dans un calenderier

[Ilino]

Bonjour Forum
Ci dessous un USF qui affiche un calendrier lors de clic sur une cellule, mon souci est comment faire ou ajouter une condition si je clic sur une date sup a today j’aurai un message « date non valable »
Merci

-----
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("D4 : D2012")) Is Nothing Then
Calandrier_date_facture.Show
Style = vbYesNo
Title = "La date est elle correcte ?"
réponse = MsgBox(msg, Style, Title)
If réponse = vbNo Then
ActiveCell.Value = Value
MsgBox "Entrer une nouvelle date"
Calandrier_date_facture.Show
If réponse = vbYes Then
Calandrier_date_facture.Show
End If
End If
End If
--------
Grazie

 

[joss56]

Re : Condition dans un calenderier

Bonjour,

if calendar.value>date then
msgbox "blabla..."
end if

calendar à adapter...monthview, dtpicker...ou le nom que tu as donné à ton contrôle
Jocelyn

 

[Ilino]

Re : Condition dans un calenderier

Bonjour ForUM, Bonjour Jocelyn
Merci pour ton aide, J’ai fait ce que tu m’as donné mais ca n’a pas marché
ci jont l'example

 

[joss56]

Re : Condition dans un calenderier

Le code est à placer là :
Private Sub Calendar1_Click()

If Calendar1.Value > Date Then
MsgBox "Date invalide", vbInformation + vbOKOnly, "DATE"
Exit Sub
End If

ActiveCell.Value = Format(Calendar1.Value, "mm/dd/YY")
Unload Me
End Sub

 

[Ilino]

Re : Condition dans un calenderier ( RESOLU)

Salut Jocelyn
Un grand Merci GRAZIE INFINITE ça fonctionne comme I LIKE
MERCI

 

[joss56]

Re : Condition dans un calenderier

Prego my friend!