[Validation de données] Critère date ou "Sans Objet"

DoubleZero

XLDnaute Barbatruc

• 12 Décembre 2012

• #2

Re : [Validation de données] Critère date ou "Sans Objet"

Bonjour, franzoose, le Forum,

Voici un code, à adapter, lequel impose une saisie en cellule A1.

Code:

xxxxxxx

A bientôt 🙂

Code inadapté au besoin 🙄. Mes excuses...

 

Dernière édition: 12 Décembre 2012

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 12 Décembre 2012

• #3

Re : [Validation de données] Critère date ou "Sans Objet"

Re-bonjour,

Ce code, placé dans le module de l'onglet concerné, impose la saisie d'une date ou l'inscription "Sans objet" en colonne A.

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For n = 1 To Range("A65536").End(xlUp).Row
 If IsDate(Range("A" & n)) = False Then Range("A" & n) = "Sans objet"
Next
End Sub

A bientôt 🙂

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 12 Décembre 2012

• #4

Re : [Validation de données] Critère date ou "Sans Objet"

Bonsoir à tous, Bonsoir 00 😉

Par sécurité, j'ajouterai à ton code
Dim n as Long

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 12 Décembre 2012

• #5

Re : [Validation de données] Critère date ou "Sans Objet"

Re-bonjour, bonjour, Staple1600 😀,

Je te remercie pour ton oeil bienveillant 😱 !

A bientôt 🙂🙂

 

Vote positif 0 Vote négatif

F

franzoose

Guest

• 13 Décembre 2012

• #6

Re : [Validation de données] Critère date ou "Sans Objet"

Bonjour DoubleZero et Staple1600,

Merci pour votre aide 🙂
Cependant, j'ai omis de dire quelques petites choses :
*Le fichier en question est exporter au format .xlsx et donc ne peut fonctionner avec des macros.
*Dans la plage de cellule en question, il peut y avoir rien (""), une date ou "Sans Objet".

A mon avis, on n'a pas le choix, il faut utiliser l'interface de validation des données (Onglet Données/Validation des données). Avez-vous une idée ?

 

Vote positif 0 Vote négatif

F

franzoose

Guest

• 13 Décembre 2012

• #7

Re : [Validation de données] Critère date ou "Sans Objet"

Après quelques recherches et réflexions, je pense avoir trouvé quelque chose qui marche 🙂

Cette formule est à intégrer dans le formulaire de validation personnalisé :

Prérequis : Coché la case "Ignoré si vide"

Ensuite, dans "Formules" entrez ceci :
=OU(SI(SIERREUR(DATEVAL(TEXTE(AP19;"jj/mm/aaaa"));"FAUX")="FAUX";FAUX;VRAI);AP19 = "Sans Objet")

 

Vote positif 0 Vote négatif