Comment peut-on insérer dans toutes les cellules d'une colonne un contrôle
qui interdit la saisie autre que la saisie d'une date au format jj/mm/aaaa et
l'expression alpha NC ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
michdenis
Bonjour Bruno,
Je crois que le plus simple est l'utilisation d'une mise en forme conditionnelle dans ta problématique.
Dans un module Standard, copie la fonction suivante :
'----------------------- Function EstDate(Rg As Range) As Boolean
Select Case TypeName(Rg.Value) Case Is = "Date" EstDate = Rg.NumberFormatLocal <> "jj/mm/aa" Case Is = "String" EstDate = UCase(Rg) <> "NC" End Select
End Function '-----------------------
Et barre des menus / format / mise en forme conditionnelle / la formule est : =EstDate(AdresseDeLaFormuleSélectionnée) Choix du format à appliquer si l'usager ne saisie pas ce qui doit être !
Salutations!
"Bruno caye" a écrit dans le message de news: Comment peut-on insérer dans toutes les cellules d'une colonne un contrôle qui interdit la saisie autre que la saisie d'une date au format jj/mm/aaaa et l'expression alpha NC ?
Merci de vos réponses
Bonjour Bruno,
Je crois que le plus simple est l'utilisation d'une mise en forme conditionnelle dans ta problématique.
Dans un module Standard, copie la fonction suivante :
'-----------------------
Function EstDate(Rg As Range) As Boolean
Select Case TypeName(Rg.Value)
Case Is = "Date"
EstDate = Rg.NumberFormatLocal <> "jj/mm/aa"
Case Is = "String"
EstDate = UCase(Rg) <> "NC"
End Select
End Function
'-----------------------
Et barre des menus / format / mise en forme conditionnelle /
la formule est : =EstDate(AdresseDeLaFormuleSélectionnée)
Choix du format à appliquer si l'usager ne saisie pas ce qui doit être !
Salutations!
"Bruno caye" <Brunocaye@discussions.microsoft.com> a écrit dans le message de
news:53A2DCDE-1288-43EA-809C-97A41E5341FC@microsoft.com...
Comment peut-on insérer dans toutes les cellules d'une colonne un contrôle
qui interdit la saisie autre que la saisie d'une date au format jj/mm/aaaa et
l'expression alpha NC ?
Je crois que le plus simple est l'utilisation d'une mise en forme conditionnelle dans ta problématique.
Dans un module Standard, copie la fonction suivante :
'----------------------- Function EstDate(Rg As Range) As Boolean
Select Case TypeName(Rg.Value) Case Is = "Date" EstDate = Rg.NumberFormatLocal <> "jj/mm/aa" Case Is = "String" EstDate = UCase(Rg) <> "NC" End Select
End Function '-----------------------
Et barre des menus / format / mise en forme conditionnelle / la formule est : =EstDate(AdresseDeLaFormuleSélectionnée) Choix du format à appliquer si l'usager ne saisie pas ce qui doit être !
Salutations!
"Bruno caye" a écrit dans le message de news: Comment peut-on insérer dans toutes les cellules d'une colonne un contrôle qui interdit la saisie autre que la saisie d'une date au format jj/mm/aaaa et l'expression alpha NC ?
