mdf Calendar et data validation
#1
Débutant XLPages

Inscription: 02/02/2010

Messages: 1

Système d'exploitation:
PC
Version Excel utilisée:
2003
Posté le : 02-02-2010 12h11
 Bonjour,

Je voudrais effectuer le réglage suivant :
- dans deux cellules je définis une date de début et une date de fin de période.
- dans une troisième case je laisse l'utilisateur choisir une date par le calendrier mdf, mais si cette date n'est pas entre les dates de début et de fin de période un message d'erreur s'affiche.

Cette manip devrait être très simple avec l'option "Data validation"... mais le problème est que quand la date est validée par l'intermédiaire du calendrier mdf cela ne marche pas (ie la mauvaise date peut être entrée sans problème)!

Connaissez-vous un moyen de résoudre ce problème?

Merci d'avance!
Hors Ligne
Rapport   Haut 

Re: mdf Calendar et data validation
#2
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1518

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365
Posté le : 02-02-2010 19h53
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,
Edité par myDearFriend! le 02/02/2010 21:03:27

Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
Rapport   Haut 

Re: mdf Calendar et data validation
#3
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1518

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365
Posté le : 02-02-2010 23h46
Re,

Notre ami vinzopius vient de me laisser le message privé suivant :
Citation :

vinzopius a écrit :
Super, ça marche!
Il ne me reste plus qu'à trouver un moyen de l'adopter à mes cellules qui sont fusionnées (et qui refusent donc l'instruction target.clearcontents), ou à me débrouiller pour les défusionner...

Merci beaucoup et bonne soirée!


vinzopius, je te conseille donc de remplacer Target.ClearContents par Target.Value = ""

Je te prie également de bien vouloir répondre directement dans le forum à l'avenir... et je clos donc le présent fil de discussions en [résolu].

Cordialement,

Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
Rapport   Haut 


Vous pouvez voir les sujets.
Vous ne pouvez pas débuter de nouveaux sujets.
Vous ne pouvez pas répondre aux contributions.
Vous ne pouvez pas éditer vos contributions.
Vous ne pouvez pas effacez vos contributions.
Vous ne pouvez pas ajouter de nouveaux sondages.
Vous ne pouvez pas voter en sondage.
Vous ne pouvez pas attacher des fichiers à vos contributions.
Vous ne pouvez pas poster sans approbation.

[Recherche avancée]


Qui consulte actuellement ce sujet ?   1 Utilisateur(s) anonymes