macro sur office xp

3 réponses

francis

08/12/2006 à 08:49

bonjour
j'ai ecrit c'ette macro.
bien sur j'ai une ereur (fonction)weekday
merci.
et serait il possible de remplire la macro pour l'adapter au champs que je
nommerais jour au lieux de remplire la macro cellule par cel..(b2),(b3),...
si joint la macro et mil merci
Sub jourdate()
'
' jourdate Macro
' Macro enregistrée le 08/12/2006 par sisco
'

'
Dim vardate As Date, joursem As Byte
vardate = Range("b2").Select
joursem = veekday(vardate)
Select Case jousem
case1
Range("c2").Select ("dimanche")
case2
Range("c2").Select ("lundi")
case3
Range("c2").Select ("mardi")
case4
Range("c2").Select ("mercredi")
case5
Range("c2").Select ("jeudi")
case6
Range("c2").Select ("vendredi")
case7
Range("c2").Select ("samedi")
End Select

End Sub

3 réponses

Garette

08/12/2006 à 09:10

Bonjour,

Sans macro, il est également possible d'écrire en C2 la formule : ² et de
formater cette cellule au format "jjjj" dans
Format/Cellule/Nombre/Personnalisé.

La macro, avec qqs petits aménagements :

Sub jourdate()
Dim vardate As Date, joursem As Byte
vardate = Range("b2")
joursem = Weekday(vardate)
Select Case joursem
Case 1
Range("c2").Value = "dimanche"
Case 2
Range("c2").Value = "lundi"
Case 3
Range("c2").Value = "mardi"
Case 4
Range("c2").Value = "mercredi"
Case 5
Range("c2").Value = "jeudi"
Case 6
Range("c2").Value = "vendredi"
Case 7
Range("c2").Value = "samedi"
End Select
End Sub

Garette

08/12/2006 à 09:35

Re,

Sans le Select Case :

Sub jourdate()
Range("c2").Value = WeekdayName(Weekday(Range("b2")), , 1)
End Sub

francis

08/12/2006 à 13:48

merci tes reponses
il est vrai que je n'avais pas penser a formater mes cellules
merci pour tout
--
"Garette" a écrit dans le message de news:
%23%

Re,

Sans le Select Case :

Sub jourdate()
Range("c2").Value = WeekdayName(Weekday(Range("b2")), , 1)
End Sub

macro sur office xp

3 réponses

Veuillez sélectionner un problème