Rapport de message :*
 

Re: mdf Calendar et data validation

Titre du sujet : Re: mdf Calendar et data validation
par myDearFriend! le 02/02/2010 19:53:25

Bonsoir vinzopius et bienvenue sur XLpages.com
Bonsoir le Forum,

Effectivement, le traitement de validation de données ne réagit pas sur l'affectation d'une valeur par macro VBA dans une cellule (et le mDF XLcalendar est une macro VBA !).

Je prends l'exemple suivant :
Soit en A1 la borne mini (date), en C1 la borne maxi (date), l'utilisateur est sensé insérer une date test en B1 (via le mDF XLcalendar ou manuellement, au choix).

Tu peux copier le modèle de code suivant dans le module de code de ta feuille :
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Static EnCours As Boolean
    If Target.Count > 1 Or EnCours Then Exit Sub
    If Not Application.Intersect(Target, Range("B1")) Is Nothing Then
        Select Case Target.Value
        Case Is < Range("A1").Value, Is > Range("C1").Value
            MsgBox "Date non autorisée !"
            EnCours = True
            Target.ClearContents
            EnCours = False
        End Select
    End If
End Sub
En espérant t'avoir dépanné.

Cordialement,