[XL-2003] Pb Format da date [Résolu]

[MBen69]

Bonjour à toutes et à tous,
J'ai développé une appli qui me calcule des Heures supplémentaires. OK tout va bien, mais les utilisateurs ne respectent pas toujours le format de date "jj/mm/aaaa".
1) Dans une plage B7:B20 comment faire pour que quelque soit la façon dont est rentrée la date (01 01 2011, 1er janvier 2011, 01.01.2011.....) le résultat dans la celulle soit "jj/mm/aaaa". Par VBA dans le code de la feuille serait mieux car pas de risque d'éffacement de la formule.
2) dans cette plage, comment en colonne C, je peux extraite le jour en toutes lettres.
merci d'avance pour votre aide.
Bonnes Fêtes de Fin d'année.
MBEN69

[Daniel.C]

Bonjour,

Code :

1
2
3
4
5
6
7
8
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [B7:B20]) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    Target.Value = CDate(Target.Value)
    Target.Offset(, 1).Value = Day(Target)
    Application.EnableEvents = True
    Target.NumberFormat = "dd/mm/yyyy"
End Sub

[Qwazerty]

Salut

Le plus simple je pense est de forcer l'utilisateur à ne pas mettre n'importe quoi, regarde les validations de données dans Excel, tu peux choisir une validation Date, ainsi seule les date valide seront autorisé, si l'utilisateur tape une date dans un format non reconnu, tu peux afficher le message d'erreur que tu veux (c'est dans les options de la validation)

Je te déconseilles de faire un système qui reconnait des format de date, ce sera toujours aléatoire, prend l'exemple du 12/06/2011 : le 12 juin ou le 06 décembre?

Pour ta colonne C regarde dans les fonction, tu doit avoir Jour() qui te permet d'extraire la jour d'une date.

++
Qwaz

[BlueMonkey]

Bonsoir,

Dans l'idée de faire coup double, forcer le format de la date, et aider les utilisateurs à la saisie, en faisant apparaître un calendrier (DateTimePicker sous XLS2003).

Attention, ce type d'objet existe bien sous la version 2003, mais sauf erreur de ma part, PAS dans la version 2010 d'Office )

Pour une question de portabilité, tu peux également créer ta propre fenêtre de sélection de date. (ex basique 3 ComboBox JJ, MM, AAAA).
Dans ce dernier cas, il faudra déterminer si ça vaut toujours le coup d'implémenter ça (par rapport à la méthode de Quazerty),
parce que la simplification n'est plus énorme. (au moins 8 clics pour une saisie de Date, alors qu'avec le DateTimePicker
en 3 clics la date est choisie)

[Qwazerty]

Salut

Pour abonder dans le sens de BlueMonkey il existe même un xla tout fait qui traîne sur le net, une fois celui-ci lancé un calendrier est automatiquement affiché sur les cellules contenant un format date.

++
Qwaz

[Daniel.C]

Bonjour,

Attention, ce type d'objet existe bien sous la version 2003, mais sauf erreur de ma part, PAS dans la version 2010 d'Office

On peut l'avoir avec Office 2010 en chargent mscomctl2.ocx.
Ci-joint un exemple en ajoutant la commande "Date ?" au menu contextuel "Cell" (bouton droit de la souris. Voici le code (nécessite un contrôle DTPicker et un command button sur un userform. Dans le module "ThisWorkbook" :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    On Error Resume Next
    Application.CommandBars("Cell").Controls("Date ?").Delete
End Sub
 
Private Sub Workbook_Open()
    On Error Resume Next
    Set myControl = Application.CommandBars("Cell").Controls _
        .Add(Type:=msoControlPopup)
    With myControl
        .Caption = "Date ?"
        .OnAction = "ShowUF"
    End With
End Sub

Dans le module de l'userform :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub CommandButton1_Click()
    ActiveCell = Me.DTPicker1.Value
    Unload Me
End Sub
 
Private Sub DTPicker1_Change()
    ActiveCell = Me.DTPicker1.Value
    Unload Me
End Sub
 
Private Sub UserForm_Initialize()
    Me.DTPicker1.Value = Date
End Sub

Dans un module standard :

Code :

1
2
3
Sub ShowUF()
    UserForm1.Show
End Sub

[MBen69]

Bonjour Daniel.C
Merci pour ta réponse rapide. Celà fonctionne parfaitement pour tous les formats sauf si je rentre une date avec des points comme séparateurs (ex : 21.12.2011). Plantage ligne 4 du code "Target.value=cdate(target.value)
Cordialement
MBen69

Envoyé par Daniel.C

Bonjour,

Code :

Qwazerty Bonjour,
Merci pour ta réponse. je vais le chercher
Bonnes Fêtes
MBen69

Envoyé par Qwazerty

Salut

Pour abonder dans le sens de BlueMonkey il existe même un xla tout fait qui traîne sur le net, une fois celui-ci lancé un calendrier est automatiquement affiché sur les cellules contenant un format date.

++
Qwaz

[Daniel.C]

Oui, moi aussi. Je suppose que c'est parce que le point est mon symbole décimal (et toi ?). Raison de plus pour adopter la solution de Qwazerty ou ma seconde proposition.

[MBen69]

Daniel.C
Tu as raison, moi aussi.
Cependant en colonne C, quand la date s'affiche au bon format, j'ai pas le nom du jour mais 01/01/1900 ? Tu vois d'ou ça vient ?
MBen69

[Daniel.C]

Ca vient que j'avais mal compris ce que tu voulais. "01/01/1900", c'est 1 au format date. Mets :

Code :

1
2
3
4
5
6
7
8
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [B7:B20]) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    Target.Value = CDate(Target.Value)
    Target.Offset(, 1).Value = Format(Target.Value, "dddd")
    Application.EnableEvents = True
    Target.NumberFormat = "dd/mm/yyyy"
End Sub

[MBen69]

Bonjour Daniel.C,
Pour le jour en colonne C celà fonctionne impéccable. Merci encore.
J'ai tjrs ce Pb de format de date, mais je ne désespère pas.
Merci encore pour toutes vos contributions
MBen69

[Daniel.C]

Bonjour,
Ceci, peut-être :

Code :

1
2
3
4
5
6
7
8
9
10
11
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [B7:B20]) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    On Error Resume Next
    Target.Value = Application.Substitute(Target.Value, ".", "/")
    Target.Value = CDate(Target.Value)
    Target.Offset(, 1).Value = Format(Target.Value, "dddd")
    Application.EnableEvents = True
    Target.NumberFormat = "dd/mm/yyyy"
    On Error GoTo 0
End Sub

[MBen69]

Daniel.C
Désolé mais cela ne fonctionne toujours pas et en plus le jour "dddd" ne s'affiche pas dans la colonne C
Merci pour ton temps
MBen69

[Qwazerty]

Salut

Pourquoi tu t’embêtes, si j'ai bien compris le nombre de lignes est fixe?
Dans ce cas dans la colonne B, tu mets =cellule colonne A
exemple
pour la ligne 1, dans la cellule B2, tu mets

Code :

=$A2

Puis tu vas dans le format de ta cellule et tu choisis "Personnalisée" et tu met "jjjj" comme format (sans les " ").

Ensuite tu étires la cellule B2 jusqu'en bas de ton tableau et le tour est joué.

++
Qwaz

[MBen69]

Bonjour Qwazerty,
Merci, cela fonctionne : J'ai encore appris qque chose aujourd'hui.
J'avais fini par mettre : =SI($B8="";"";TEXTE($B8;"jjjj")).
Cela revient au même mais sympa ta soluce.
J'ai activé l'enregistreur de macro, Nickel
merci encore
MBen69

[Qwazerty]

Salut

Ca ne revient pas tout a fait au même, lorsque tu changes uniquement le format de la cellule comme je te l'ai indiqué, le contenu "interne" de la cellule ne change pas (on a toujours la date au format numérique), seul le contenu "visible" est modifié.
Il faut donc faire attention si tu utilises le contenu d'une des cellule de la colonne B pour assembler avec une autre chaîne de caractère.
Exemple
tu veux afficher en colonne C mardi Matin (j'ai pris mardi au pif).
Si tu mets en colonne C

Code :

=B2 & " Matin"

tu vas te retrouver avec "32561 Matin", 32561 représentant la date stocké en interne...
Dans ce cas la il faudra faire

Code :

= TEXTE(C5;"jjjj") & " Matin"

++
Qwaz

[Daniel.C]

Désolé mais cela ne fonctionne toujours pas et en plus le jour "dddd" ne s'affiche pas dans la colonne C

On régresse, alors, puisque ça fonctionnait ce matin pour le jour en colonne C.


Dans quel cas est-ce que ça ne fonctionne pas ?

[MBen69]

Daniel.C,
C'est de ma faute. Celà n'a jamais fonctionné mais en colonne C j'avais laissé une formule de conversion texte="jjjj".
désolé
MBen69

Merci Qwaz, j'en tiendrais compte
MBen69

[Daniel.C]

Daniel.C,
C'est de ma faute. Celà n'a jamais fonctionné

Qu'est-ce que tu saisis et qui ne fonctionne pas ?

[patricktoulon]

bonjour a tous

j'interviens un peu tard mais pour les points servant de separateurs tu peut utiliser la fonction (replace)

Code :

target=replace(target,".","/")

et metre les propriétés des cellules au format texte

au plaisir