Discussion :

[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.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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é.

[Docmarti]

Bonjour

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Igloobel]

Bonjour,

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



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.


A+

[ketmax]

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.