OK pour le format jj/mm/aaaa, mais comment avoir pour alternative soit un format date, soit NC ?
Merci
Bonsoir Bruno ,
Menu Données Validation
lSteph
"Bruno caye" a écrit dans le message de news:
Bonsoir à tous,
LeSteph
Bonjour Bruno,
J'avais pas capté le AlphaNC compris donc pouvoir écrire "NC" en plus des dates On va utiliser VBA alors mettons soit ex: Feuil1 range("d:d") Tu enlève toute Validation sur cette colonneD
Copier de '** * à '*** et mettre dans le code de la feuille ( alt+f11 pour ouvrir VB puis Ctrl+r pour afficher l'explorateur de projet , dans le project du classeur dblclic sur Feuil1, un module de la feulle apparaît à droite tu colles tout cela dedans et refermer vba)
'*** Private Sub Worksheet_Change(ByVal Target As Range) Dim iSect As Range Set iSect = Intersect(Target, Range("d:d")) If iSect Is Nothing Then Exit Sub For Each c In iSect.Cells If c.Value = "" Then Exit For
If IsDate(c) Then Exit For If UCase(c.Text) = "NC" Then
OK pour le format jj/mm/aaaa, mais comment avoir pour alternative soit un format date, soit NC ?
Merci
Bonsoir Bruno ,
Menu Données Validation
lSteph
"Bruno caye" a écrit dans le message de news:
Bonsoir à tous,
Bonjour Bruno,
J'avais pas capté le AlphaNC
compris donc pouvoir écrire "NC" en plus des dates
On va utiliser VBA alors mettons
soit ex: Feuil1 range("d:d")
Tu enlève toute Validation sur cette colonneD
Copier de '** * à '***
et mettre dans le code de la feuille
( alt+f11 pour ouvrir VB puis Ctrl+r pour afficher
l'explorateur de projet , dans le project du classeur dblclic
sur Feuil1, un module de la feulle apparaît à droite
tu colles tout cela dedans et refermer vba)
'***
Private Sub Worksheet_Change(ByVal Target As Range)
Dim iSect As Range
Set iSect = Intersect(Target, Range("d:d"))
If iSect Is Nothing Then Exit Sub
For Each c In iSect.Cells
If c.Value = "" Then Exit For
If IsDate(c) Then Exit For
If UCase(c.Text) = "NC" Then
J'avais pas capté le AlphaNC compris donc pouvoir écrire "NC" en plus des dates On va utiliser VBA alors mettons soit ex: Feuil1 range("d:d") Tu enlève toute Validation sur cette colonneD
Copier de '** * à '*** et mettre dans le code de la feuille ( alt+f11 pour ouvrir VB puis Ctrl+r pour afficher l'explorateur de projet , dans le project du classeur dblclic sur Feuil1, un module de la feulle apparaît à droite tu colles tout cela dedans et refermer vba)
'*** Private Sub Worksheet_Change(ByVal Target As Range) Dim iSect As Range Set iSect = Intersect(Target, Range("d:d")) If iSect Is Nothing Then Exit Sub For Each c In iSect.Cells If c.Value = "" Then Exit For
If IsDate(c) Then Exit For If UCase(c.Text) = "NC" Then
