quel jour??

pierrejean

XLDnaute Barbatruc

• 8 Mars 2006

• #2

bonjour

F1 sur weekday

fonction personnalisée donnant ce que tusouhaites

Function lenom(ladate As Date) As String
Dim n As Integer
n = Weekday(ladate)
Select Case n
Case 1
lenom = 'dimanche'
Case 2
lenom = 'lundi'
Case 3
lenom = 'mardi'
Case 4
lenom = 'mercredi'
Case 5
lenom = 'jeudi'
Case 6
lenom = 'vendredi'
Case 7
lenom = 'samedi'
End Select
End Function

a+

Message édité par: pierrejean, à: 08/03/2006 14:33

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 8 Mars 2006

• #3

bonjour bob, pierrejean

une autre solution, la date en A1 :

MsgBox Format(Range('a1'), 'dddd')

salut

 

Vote positif 0 Vote négatif

ziopizza

XLDnaute Occasionnel

• 8 Mars 2006

• #4

Bonjour Bob PierreJean,

Autre façon,

'Si date en D1 pose le jour en A1
Range('a1').Value = Format(Range('D1'), 'dddd')

Yves

 

Vote positif 0 Vote négatif

Jacques87

XLDnaute Accro

• 8 Mars 2006

• #5

Bonjour Bob, pierre jean

ou encore
Jour = Format(DateValue(Range('A1').Value), 'dddd') ' Détermine le jour.
MsgBox Jour ' Affiche le jour.

bonne journée

OUPS Hervé je ne t'avais pas vu venir
cordialement

Message édité par: Jacques87, à: 08/03/2006 14:50

 

Vote positif 0 Vote négatif