Bonjour,
Je souhaiterais déclencher un message d'avertissement lorqu'une date n'est
pas saisie dans un format correct (jj/mm)
J'ai essayé la commande Donnée, Validation... mais elle ne fonctionne qu'en
entrant des conditions (date comprise entre X et Y...etc)
Quelqu'un vois-t-il une solution simple ?
Merci,
Michel,
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
docm
Bonjour Michel.
Pour des cellules au format texte, ceci semble répondre à ta demande. Sous toutes réserves.
Private Sub Worksheet_Change(ByVal Target As Excel.Range) TestFormat Target End Sub
Private Sub TestFormat(r As Range) If r.Text <> Format(r.Text, "dd/mm") Then MsgBox ("Veuillez utiliser le format jj/mm s.v.p.") Else On Error Resume Next m = Month(r.Text) If Err Then MsgBox ("Veuillez entrer un mois entre 01 et 12") End If End If End Sub
"michir" wrote in message news:423d80ff$0$25055$
Bonjour, Je souhaiterais déclencher un message d'avertissement lorqu'une date n'est pas saisie dans un format correct (jj/mm) J'ai essayé la commande Donnée, Validation... mais elle ne fonctionne qu'en
entrant des conditions (date comprise entre X et Y...etc) Quelqu'un vois-t-il une solution simple ? Merci, Michel,
Bonjour Michel.
Pour des cellules au format texte, ceci semble répondre à ta demande.
Sous toutes réserves.
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
TestFormat Target
End Sub
Private Sub TestFormat(r As Range)
If r.Text <> Format(r.Text, "dd/mm") Then
MsgBox ("Veuillez utiliser le format jj/mm s.v.p.")
Else
On Error Resume Next
m = Month(r.Text)
If Err Then
MsgBox ("Veuillez entrer un mois entre 01 et 12")
End If
End If
End Sub
"michir" <michir1789@wanadoo.fr> wrote in message
news:423d80ff$0$25055$8fcfb975@news.wanadoo.fr...
Bonjour,
Je souhaiterais déclencher un message d'avertissement lorqu'une date n'est
pas saisie dans un format correct (jj/mm)
J'ai essayé la commande Donnée, Validation... mais elle ne fonctionne
qu'en
entrant des conditions (date comprise entre X et Y...etc)
Quelqu'un vois-t-il une solution simple ?
Merci,
Michel,
Pour des cellules au format texte, ceci semble répondre à ta demande. Sous toutes réserves.
Private Sub Worksheet_Change(ByVal Target As Excel.Range) TestFormat Target End Sub
Private Sub TestFormat(r As Range) If r.Text <> Format(r.Text, "dd/mm") Then MsgBox ("Veuillez utiliser le format jj/mm s.v.p.") Else On Error Resume Next m = Month(r.Text) If Err Then MsgBox ("Veuillez entrer un mois entre 01 et 12") End If End If End Sub
"michir" wrote in message news:423d80ff$0$25055$
Bonjour, Je souhaiterais déclencher un message d'avertissement lorqu'une date n'est pas saisie dans un format correct (jj/mm) J'ai essayé la commande Donnée, Validation... mais elle ne fonctionne qu'en
entrant des conditions (date comprise entre X et Y...etc) Quelqu'un vois-t-il une solution simple ? Merci, Michel,
