Format date cellule

salut
je veux une piste pour programmer un format de date sur des cellules de telle manière que si on entre autre chose dans la cellule un message d'erreur sorte.
merci.

Code:

---

1 2 3 4 5 6

Sub test() Range("a1") = InputBox("entrer la date au format dd/mm/yyyy") If IsDate([a1]) = False Then MsgBox "l'entrée n'est pas valide" End If End Sub

---

j'ai réussi à écrire le code que je voulais
Mais seulement il ne fonctionne que quand je clique sur le bouton auquel j'ai associé le macro
Mais je veux pas de bouton je me demande comment faire pour que lorsque l'utilisateur écris
directement dans la cellule a1 le code soit exécuté.

Bonjour

Voici une piste :
Utiliser la Validation des données associée a SelectionChange :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Cells.Validation.Delete Set r = Target.Cells(1, 1) If r.NumberFormat = "dd/mm/yyyy" Or r.NumberFormat = "m/d/yyyy" Then Call ValiderTarget(r) End If End Sub   Sub ValiderTarget(r) With r.Validation .....   End With End Sub

---

Bonjour,

Citation:

---

Envoyé par ketmax

salut
je veux une piste pour programmer un format de date sur des cellules de telle manière que si on entre autre chose dans la cellule un message d'erreur sorte.
merci.

---

en fait la Validation n'a pas besoin de programmation dans ton cas

Pièce jointe 191193

tu peux facilement limité la saisie sur un format de Date et même vérifier si cela fait partie d'une plage de date etc....

de plus l'onglet "Alerte d'erreur" te permet de paramétrer comme tu le souhaites ton message d'erreur.

donc dans ce cas précis on peut s'abstenir d'un bout de code et du coup cela allège ton code final. :twisted:


A+

Merci Igloobel c'est exactement la stratégie que j'ai adopté ce matin.Au lieu de saisir j'ai plutot imposé un calendrier déroulant sur les cellules que je veux
avec le meun Data Validation.Je vais regarder aussi ta piste pour optimiser.
Merci Docmarti pour ton code.