Ilino
XLDnaute Barbatruc
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
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