Bonjour,
La fonction suivante fonctionne bien.
La condition ne me plaisant pas (trop fastidieuse) je l'ai remplacé par le n° de série :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11 Public Function EssaiGJ(xdate As Range) Dim jour As Integer, Mois As Integer, An As Integer jour = CInt(Split(xdate.Text, "/")(0)) Mois = CInt(Split(xdate.Text, "/")(1)) An = CInt(Split(xdate.Text, "/")(2)) If An < 1582 Or An = 1582 And Mois < 10 Or An = 1582 And Mois = 10 And jour < 15 Then EssaiGJ = "Julien" Else EssaiGJ = "Grégorien" End If End Function
Cela fonctionne également
Code : Sélectionner tout - Visualiser dans une fenêtre à part IF CLng (CDate(xdate.Text)) < - 115858 Then ...
Je pense qu'il y a d'autres façons de procéder.
Merci
Partager