qu'est-ce qu'y ne va pas avec cette simple fonction en anglais et en français
3 réponses
cherriesbaked
Voici la fonction en anglais:
Function DayName(InputDate As Date)
Dim DayNumber As Integer
DayNumber =3D Weekday(InputDate, vbSunday)
Select Case DayNumber
Case 1
DayName =3D "Sunday"
Case 2
DayName =3D "Monday"
Case 3
DayName =3D "Tuesday"
Case 4
DayName =3D "Wednesday"
Case 5
DayName =3D "Thursday"
Case 6
DayName =3D "Friday"
Case 7
DayName =3D "Saturday"
End Select
End Function
Et voici ma traduction en fran=E7ais:
Function DayName(DateSaisie As Date)
Dim DayNumber As Integer
DayNumber =3D JOURSEM(DateSaisie, vbdimanche)
Select Case DayNumber
Case 1
DayName =3D "Sunday"
Case 2
DayName =3D "Monday"
Case 3
DayName =3D "Tuesday"
Case 4
DayName =3D "Wednesday"
Case 5
DayName =3D "Thursday"
Case 6
DayName =3D "Friday"
Case 7
DayName =3D "Saturday"
End Select
End Function
Alors qui a raison qui =E0 faux?
Merci
Pascal
Nb.:en fait j'explore excel et vba tout seul et voici ou j'en suis.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Clément Marcotte
vbsunday
biquause Joursem et vblundi n'existent pas en vba
"cherriesbaked" a écrit dans le message de news:
Voici la fonction en anglais:
Function DayName(InputDate As Date) Dim DayNumber As Integer DayNumber = Weekday(InputDate, vbSunday) Select Case DayNumber Case 1 DayName = "Sunday" Case 2 DayName = "Monday" Case 3 DayName = "Tuesday" Case 4 DayName = "Wednesday" Case 5 DayName = "Thursday" Case 6 DayName = "Friday" Case 7 DayName = "Saturday" End Select End Function
Et voici ma traduction en français:
Function DayName(DateSaisie As Date)
Dim DayNumber As Integer
DayNumber = JOURSEM(DateSaisie, vbdimanche)
Select Case DayNumber
Case 1 DayName = "Sunday" Case 2 DayName = "Monday" Case 3 DayName = "Tuesday" Case 4 DayName = "Wednesday" Case 5 DayName = "Thursday" Case 6 DayName = "Friday" Case 7 DayName = "Saturday"
End Select
End Function
Alors qui a raison qui à faux?
Merci
Pascal
Nb.:en fait j'explore excel et vba tout seul et voici ou j'en suis.
vbsunday
biquause Joursem et vblundi n'existent pas en vba
"cherriesbaked" <pfbaro@gmail.com> a écrit dans le message de news:
1153683055.499757.39800@75g2000cwc.googlegroups.com...
Voici la fonction en anglais:
Function DayName(InputDate As Date)
Dim DayNumber As Integer
DayNumber = Weekday(InputDate, vbSunday)
Select Case DayNumber
Case 1
DayName = "Sunday"
Case 2
DayName = "Monday"
Case 3
DayName = "Tuesday"
Case 4
DayName = "Wednesday"
Case 5
DayName = "Thursday"
Case 6
DayName = "Friday"
Case 7
DayName = "Saturday"
End Select
End Function
Et voici ma traduction en français:
Function DayName(DateSaisie As Date)
Dim DayNumber As Integer
DayNumber = JOURSEM(DateSaisie, vbdimanche)
Select Case DayNumber
Case 1
DayName = "Sunday"
Case 2
DayName = "Monday"
Case 3
DayName = "Tuesday"
Case 4
DayName = "Wednesday"
Case 5
DayName = "Thursday"
Case 6
DayName = "Friday"
Case 7
DayName = "Saturday"
End Select
End Function
Alors qui a raison qui à faux?
Merci
Pascal
Nb.:en fait j'explore excel et vba tout seul et voici ou j'en suis.
Function DayName(InputDate As Date) Dim DayNumber As Integer DayNumber = Weekday(InputDate, vbSunday) Select Case DayNumber Case 1 DayName = "Sunday" Case 2 DayName = "Monday" Case 3 DayName = "Tuesday" Case 4 DayName = "Wednesday" Case 5 DayName = "Thursday" Case 6 DayName = "Friday" Case 7 DayName = "Saturday" End Select End Function
Et voici ma traduction en français:
Function DayName(DateSaisie As Date)
Dim DayNumber As Integer
DayNumber = JOURSEM(DateSaisie, vbdimanche)
Select Case DayNumber
Case 1 DayName = "Sunday" Case 2 DayName = "Monday" Case 3 DayName = "Tuesday" Case 4 DayName = "Wednesday" Case 5 DayName = "Thursday" Case 6 DayName = "Friday" Case 7 DayName = "Saturday"
End Select
End Function
Alors qui a raison qui à faux?
Merci
Pascal
Nb.:en fait j'explore excel et vba tout seul et voici ou j'en suis.
Youky
Bonsoir, VBA connait Weekday mais pas Joursem les formules sont traduites en Francais mais pour VB faut la langue de Bill Youky "cherriesbaked" a écrit dans le message de news:
Voici la fonction en anglais:
Function DayName(InputDate As Date) Dim DayNumber As Integer DayNumber = Weekday(InputDate, vbSunday) Select Case DayNumber Case 1 DayName = "Sunday" Case 2 DayName = "Monday" Case 3 DayName = "Tuesday" Case 4 DayName = "Wednesday" Case 5 DayName = "Thursday" Case 6 DayName = "Friday" Case 7 DayName = "Saturday" End Select End Function
Et voici ma traduction en français:
Function DayName(DateSaisie As Date)
Dim DayNumber As Integer
DayNumber = JOURSEM(DateSaisie, vbdimanche)
Select Case DayNumber
Case 1 DayName = "Sunday" Case 2 DayName = "Monday" Case 3 DayName = "Tuesday" Case 4 DayName = "Wednesday" Case 5 DayName = "Thursday" Case 6 DayName = "Friday" Case 7 DayName = "Saturday"
End Select
End Function
Alors qui a raison qui à faux?
Merci
Pascal
Nb.:en fait j'explore excel et vba tout seul et voici ou j'en suis.
Bonsoir,
VBA connait Weekday mais pas Joursem
les formules sont traduites en Francais mais pour VB faut la langue de Bill
Youky
"cherriesbaked" <pfbaro@gmail.com> a écrit dans le message de news:
1153683055.499757.39800@75g2000cwc.googlegroups.com...
Voici la fonction en anglais:
Function DayName(InputDate As Date)
Dim DayNumber As Integer
DayNumber = Weekday(InputDate, vbSunday)
Select Case DayNumber
Case 1
DayName = "Sunday"
Case 2
DayName = "Monday"
Case 3
DayName = "Tuesday"
Case 4
DayName = "Wednesday"
Case 5
DayName = "Thursday"
Case 6
DayName = "Friday"
Case 7
DayName = "Saturday"
End Select
End Function
Et voici ma traduction en français:
Function DayName(DateSaisie As Date)
Dim DayNumber As Integer
DayNumber = JOURSEM(DateSaisie, vbdimanche)
Select Case DayNumber
Case 1
DayName = "Sunday"
Case 2
DayName = "Monday"
Case 3
DayName = "Tuesday"
Case 4
DayName = "Wednesday"
Case 5
DayName = "Thursday"
Case 6
DayName = "Friday"
Case 7
DayName = "Saturday"
End Select
End Function
Alors qui a raison qui à faux?
Merci
Pascal
Nb.:en fait j'explore excel et vba tout seul et voici ou j'en suis.
Bonsoir, VBA connait Weekday mais pas Joursem les formules sont traduites en Francais mais pour VB faut la langue de Bill Youky "cherriesbaked" a écrit dans le message de news:
Voici la fonction en anglais:
Function DayName(InputDate As Date) Dim DayNumber As Integer DayNumber = Weekday(InputDate, vbSunday) Select Case DayNumber Case 1 DayName = "Sunday" Case 2 DayName = "Monday" Case 3 DayName = "Tuesday" Case 4 DayName = "Wednesday" Case 5 DayName = "Thursday" Case 6 DayName = "Friday" Case 7 DayName = "Saturday" End Select End Function
Et voici ma traduction en français:
Function DayName(DateSaisie As Date)
Dim DayNumber As Integer
DayNumber = JOURSEM(DateSaisie, vbdimanche)
Select Case DayNumber
Case 1 DayName = "Sunday" Case 2 DayName = "Monday" Case 3 DayName = "Tuesday" Case 4 DayName = "Wednesday" Case 5 DayName = "Thursday" Case 6 DayName = "Friday" Case 7 DayName = "Saturday"
End Select
End Function
Alors qui a raison qui à faux?
Merci
Pascal
Nb.:en fait j'explore excel et vba tout seul et voici ou j'en suis.
JB
Function DayName(InputDate As Date) semaine = Array("Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday", "Sunday") DayName = semaine(Weekday(InputDate, vbMonday) - 1) End Function
JB
Voici la fonction en anglais:
Function DayName(InputDate As Date) Dim DayNumber As Integer DayNumber = Weekday(InputDate, vbSunday) Select Case DayNumber Case 1 DayName = "Sunday" Case 2 DayName = "Monday" Case 3 DayName = "Tuesday" Case 4 DayName = "Wednesday" Case 5 DayName = "Thursday" Case 6 DayName = "Friday" Case 7 DayName = "Saturday" End Select End Function
Et voici ma traduction en français:
Function DayName(DateSaisie As Date)
Dim DayNumber As Integer
DayNumber = JOURSEM(DateSaisie, vbdimanche)
Select Case DayNumber
Case 1 DayName = "Sunday" Case 2 DayName = "Monday" Case 3 DayName = "Tuesday" Case 4 DayName = "Wednesday" Case 5 DayName = "Thursday" Case 6 DayName = "Friday" Case 7 DayName = "Saturday"
End Select
End Function
Alors qui a raison qui à faux?
Merci
Pascal
Nb.:en fait j'explore excel et vba tout seul et voici ou j'en suis.
Function DayName(InputDate As Date)
semaine = Array("Monday", "Tuesday", "Wednesday", "Thursday",
"Friday", "Saturday", "Sunday")
DayName = semaine(Weekday(InputDate, vbMonday) - 1)
End Function
JB
Voici la fonction en anglais:
Function DayName(InputDate As Date)
Dim DayNumber As Integer
DayNumber = Weekday(InputDate, vbSunday)
Select Case DayNumber
Case 1
DayName = "Sunday"
Case 2
DayName = "Monday"
Case 3
DayName = "Tuesday"
Case 4
DayName = "Wednesday"
Case 5
DayName = "Thursday"
Case 6
DayName = "Friday"
Case 7
DayName = "Saturday"
End Select
End Function
Et voici ma traduction en français:
Function DayName(DateSaisie As Date)
Dim DayNumber As Integer
DayNumber = JOURSEM(DateSaisie, vbdimanche)
Select Case DayNumber
Case 1
DayName = "Sunday"
Case 2
DayName = "Monday"
Case 3
DayName = "Tuesday"
Case 4
DayName = "Wednesday"
Case 5
DayName = "Thursday"
Case 6
DayName = "Friday"
Case 7
DayName = "Saturday"
End Select
End Function
Alors qui a raison qui à faux?
Merci
Pascal
Nb.:en fait j'explore excel et vba tout seul et voici ou j'en suis.
Function DayName(InputDate As Date) semaine = Array("Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday", "Sunday") DayName = semaine(Weekday(InputDate, vbMonday) - 1) End Function
JB
Voici la fonction en anglais:
Function DayName(InputDate As Date) Dim DayNumber As Integer DayNumber = Weekday(InputDate, vbSunday) Select Case DayNumber Case 1 DayName = "Sunday" Case 2 DayName = "Monday" Case 3 DayName = "Tuesday" Case 4 DayName = "Wednesday" Case 5 DayName = "Thursday" Case 6 DayName = "Friday" Case 7 DayName = "Saturday" End Select End Function
Et voici ma traduction en français:
Function DayName(DateSaisie As Date)
Dim DayNumber As Integer
DayNumber = JOURSEM(DateSaisie, vbdimanche)
Select Case DayNumber
Case 1 DayName = "Sunday" Case 2 DayName = "Monday" Case 3 DayName = "Tuesday" Case 4 DayName = "Wednesday" Case 5 DayName = "Thursday" Case 6 DayName = "Friday" Case 7 DayName = "Saturday"
End Select
End Function
Alors qui a raison qui à faux?
Merci
Pascal
Nb.:en fait j'explore excel et vba tout seul et voici ou j'en suis.