Discussion :

[vandman]

Bonjour,

Je voudrais dans une colonne forcer le formatage de la date au format ##/##/####.

Si le format entré n'est pas bon=> message d'erreur.
si lors d'un copier coller,une ou plusieurs cellule n'a pas le bon format => message d'erreur et coloration de la ou des cellules en erreur en rouge.

Comment faire ca?

Merci

[Menhir]

Tu peux utiliser la validation de données :
Ruban Données > Validation de données > Autoriser = Date
Mais je ne crois pas que ça marchera pour empêcher un copier/coller. Il est même probable que ce copier/coller éliminera la validation de données que tu aurais pu placer.

Je ne suis pas sûr qu'il soit possible d'utiliser la Mise en Forme Conditionnelle. Une date étant une simple valeur numérique classique avec simplement un Format nombre particulier, je ne vois pas quelle formule pourrait la distinguer d'une valeur classique.
A moins de mettre ta cellule au format texte, mais dans ce cas-là, tu perdrais toute possibilités de traitement sur les dates (tri, calcul, etc.).
Et dans ce cas également, un copier/coller supprimerait ta mise en forme conditionnelle.

La seule solution véritablement fiable est sans doute de passer par une macro VBA, par exemple une macro évènementielle sur l'évènement Change de ton onglet.

[vinc_bilb]

Bonjour,

La validation de données ne marche pas, sauf erreur, avec un copy paste
=> Vous pouvez par contre tester le format en le remettant (cellule supplémentaire ou dans un format conditionnel), sous la forme =TEXT(A1,"mm/dd/yy"), puis tester par =EXACT(A1,VALUE(B1)) que les deux cellules donnent le même résultat, sinon, lever une erreur (ou un format spécifique, .....)

Code :

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

1
2
3
4
 
A  
10/21/2014	10/21/14	TRUE
45.00 02/14/00	FALSE

J'espère que ça peut vous aider....

[PierrotMfff]

Bonjour,

un élément de réponse...

en VBA, sur l'événement Change:

Code :

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

1
2
3
4
5
 
 
If Target.column = le numéro de ta colone then
    Target.Value = Format(Target.value, "dd/mm/yyyy")
end if

si tu rentres une date par exemple 12/11/2014 ça marchera, et ton format de cellule est bien celui d'une date

[Invité]

Bonjour,

Pour les saisies pour peu qu'elles soient faites dans un format date valide le code suivant fera le nécessaire.

Code :

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

1
2
3
4
5
6
7
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim C As Range
    If Intersect(Target, [E:E]) Is Nothing Then Exit Sub
    For Each C In Intersect(Target, [E:E])
        If C.NumberFormat <> "m/d/yyyy" Then C.NumberFormat = "m/d/yyyy"
    Next
End Sub

Pour le copier-coller il faut utiliser

le collage spécial soit "une valeur" soit une "formule".