Pb Format da date

Citation:

---

Envoyé par Daniel.C

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

---

Daniel.C
Désolé de te solliciter autant.
J'ai intégré dans le code de la feuille le dernoer code que tu m'as envoyé.
Cependant en B7 par exemple je saisi une date (ex : 21 10 2011) mais cette date ne se transforme pas en jj/mm/aa (elle reste telle quelle et l'envoie en C7 ) et en colonne C le jour ne s'affiche pas.
Les mystères de l'info.....
Cordialement
MBen69

Non, mais les particularités de CDate (regarde l'aide VBA) :

Code:

---

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

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 = 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

---

Bonjour Daniel.C,
Cette fois j'ai tout effacé dans la feuille et placé ton code. Celà fonctionne parfaitement. C'est génial.
Grand Merci à toi et aux autres contributeurs.:ccool:
Meilleurs voeux
MBen69