XL 2010 Jour en lettre d'une date

cp4 · 8 Octobre 2021

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.

Compte Supprimé 979 · 8 Octobre 2021

Salut CP4

Il ne faut pas utiliser Day()

VB:

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

@+

Compte Supprimé 979 · 8 Octobre 2021

Salut CP4

Il ne faut pas utiliser Day()

VB:

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

@+

ChTi160 · 8 Octobre 2021

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

Compte Supprimé 979 · 8 Octobre 2021

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 · 8 Octobre 2021

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 · 8 Octobre 2021

BrunoM45 à dit:
Salut CP4

Il ne faut pas utiliser Day()

VB:

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

@+

@BrunoM45 , salut.

Merci beaucoup. C'est parfait.

Bon week-end.

cp4 · 8 Octobre 2021

ChTi160 à dit:
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.

XL 2010 Jour en lettre d'une date

cp4

XLDnaute Barbatruc

Pièces jointes

Compte Supprimé 979

Compte Supprimé 979

Guest

ChTi160

XLDnaute Barbatruc

Compte Supprimé 979

Guest

ChTi160

XLDnaute Barbatruc

cp4

XLDnaute Barbatruc

cp4

XLDnaute Barbatruc

Discussions similaires