quel jour??

[Bob]

Bonjour,

Voila j'ai une date dans une cellule
Je voudrai pouvoir récupérer par vba de quel jour il s'agit: lundi mardi...??

QQn peut il m'éclairer?

Merci d'avance

 

[pierrejean]

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

 

[Hervé]

bonjour bob, pierrejean

une autre solution, la date en A1 :

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

salut

 

[ziopizza]

Bonjour Bob PierreJean,

Autre façon,

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

Yves

 

[Jacques87]

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