XL 2010 Jour en lettre d'une date

cp4

XLDnaute Barbatruc
Bonjour,

Pourriez-vous m'éclairer? Utilisant le code ci-dessous, le jour en lettre d'une date est erroné.
VB:
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.
 

Pièces jointes

  • Jour en lettres.xlsm
    17.4 KB · Affichages: 6
C

Compte Supprimé 979

Guest
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 ✌️
 

cp4

XLDnaute Barbatruc
Bonjour
Histoire de vous saluer Lol
Je peaufine en mettant une majuscule au Jour !
VB:
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.
 

Discussions similaires

Réponses
4
Affichages
532

Statistiques des forums

Discussions
311 724
Messages
2 081 938
Membres
101 844
dernier inscrit
pktla