Discussion :

[AgriPhilou]

Bonjour,

Je découvre donnée validation, serait-il possible d'obliger l'utilisateur à
saisir obligatoirement une heure au format 0:00 ?

De même l'obligé à saisir une date bien précise, le jour commençant
obligatoirement par 01 ou 1 ?

Par exemple 01/01/08 et non pas 15/01/08

Merci d'avance.

[did103]

salut

J'aime pas trop

obliger l'utilisateur

Je préfère faire corriger par le VBA si l'info n'est pas correcte.

Pour l'heure c'est simple, il suffit d'appliquer le format désiré:

Code :

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

format(Range("A1"),h:mm)

Pour la date, c'est un petit + compliqué:

Code :

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

1
2
3
        While Left(Range("D3"), 2) <> "01"
            Range("D3") = Range("D3") - 1
        Wend

La date est saisie en D3 et la cellule est au format date.

[Gorfael]

Salut AgriPhilou

Par exemple 01/01/08 et non pas 15/01/08

??? il doit saisir le 1 ou le 15 ?!!?

La saisie est différente de la visualisation
Dans A1, clic-droit=>Menu contextuel>>format de cellule>>Onglet Nombre
Catégorie : personnalisé
Type : jj/mm/aa
tu valide, et tu rentre 1/5/08 => le'&ffichage sera : 01/05/08
A+

[AgriPhilou]

Merci Gorfael , il doit saisir obligatoirement le 1er du mois et aucun autre jours.

@+

[Gorfael]

Salut AgriPhilou et le forum
je ne sais pas faire par validation, mais par macro
Clic-droit sur nom de l'onglet=>Menu contextuel>>Visualiser le code
Tu colles la macro :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cel As Range
Dim Plage_T As Range
Set Plage_T = Intersect(Target, Range("A1:A10")) '***
If Plage_T Is Nothing Then Exit Sub
For Each Cel In Plage_T
    If IsDate(Cel) Then
        If Day(Cel) <> 1 Then Cel = Cel + 1 - Day(Cel)
    End If
Next Cel
End Sub

Tu rectifies dans la ligne *** la valeur de la plage concernée (ici A1:A10)
et tu essaies
A+

[Daranc]

Salut si ta date saisie est corrigé par formule
en b5 la date (n'importe quel quantieme)
en c5

Code :

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

=mois.decaler(fin.mois(b5)+1;-1)

ces fonctions sont dans les macros complémentaires enfin ça dépends des version d'excel