XL 2010 Jour en lettre d'une date

[cp4]

Bonjour,

Pourriez-vous m'éclairer? Utilisant le code ci-dessous, le jour en lettre d'une date est erroné.

Option Explicit
Sub jour_en_lettres()
    Dim c As Range
    Range("e2:e18").ClearContents
    For Each c In Range("a2:a32")
        c.Offset(, 4) = Format(Day(c.Value), "dddd")
    Next
End Sub

J'avoue ne pas comprendre pourquoi. J'ai utilisé Value et Value2, et pour les cas le problème est identique.
Avec mes remerciements anticipés.

 

[Compte Supprimé 979]

Salut CP4

Il ne faut pas utiliser Day()

c.Offset(, 4) = Format(c.Value, "dddd")

@+

 

[ChTi160]

Bonjour
Histoire de vous saluer Lol
Je peaufine en mettant une majuscule au Jour !

Sub jour_en_lettres()
    Dim c As Range
    Range("e2:e18").ClearContents
    For Each c In Range("a2:a32")
        c.Offset(, 4) = Application.Proper(Format(c.Value, "dddd"))
    Next
End Sub

Bonne Journée
jean marie

 

[Compte Supprimé 979]

Salut ChTi160

Pour faire mon chiant comme d'habitude

En français, les noms des jours s'écrivent en minuscules : lundi, mardi, mercredi, jeudi, vendredi, samedi et dimanche. C'est en anglais qu'on écrit Monday, Tuesday, Wenesday, Thursday, Friday, Saturday et Sunday, avec une majuscule

 

[ChTi160]

Re
mdr!
Oui mais il voulait comme la Colonne "C" .
Et ça m'a permis de vous saluer
Bonne fin de journée
Jean marie

 

[cp4]

Salut CP4

Il ne faut pas utiliser Day()

c.Offset(, 4) = Format(c.Value, "dddd")

@+

@BrunoM45 , salut.

Merci beaucoup. C'est parfait.

Bon week-end.

 

[cp4]

Bonjour
Histoire de vous saluer Lol
Je peaufine en mettant une majuscule au Jour !

Sub jour_en_lettres()
    Dim c As Range
    Range("e2:e18").ClearContents
    For Each c In Range("a2:a32")
        c.Offset(, 4) = Application.Proper(Format(c.Value, "dddd"))
    Next
End Sub

Bonne Journée
jean marie

@ChTi160 , bonjour

Je suis preneur de tout ce qui me permet de m'améliorer.

Bon week-end.