convertisseur de calendrier Options

[fregnier]

Bonsoir,

J'utilisais RAMCAL sur mon ancien PC, mais il est devenu payant, après période d'essai (IMG:http://www.gennpdc.net/lesforums/style_emoticons/default/mad.gif)
Quel logiciel de conversion de calendrier perpétuel téléchargeable gratuitement conseillez-vous ?

@ bientôt

[jmdubreucq]

Bonsoir Vincent

Je viens de tester ... faut le temps - pas vu à l'époque ou pas le temps ? ...

J'ai modifié légèrement en ajoutant une instruction FOR NEXT qui permet de traiter une feuille "complète sans avoir à relancer pour chaque ligne
Ça marche sous Windows

Je te laisse le copyright (IMG:style_emoticons/default/tongue.gif)
Amiticalement

Jean-Marie



Sub RepGreg()
'
' RepGreg Macro
' Macro enregistrée le 07/08/2013 par Moi
'
'---------------------------------------------------
'conversion de calendrier républicain -> grégorien

'sur la ligne dont le numéro se trouve dans la variable "ligne" :

'source : date républicaine en colonnes 1, 2 et 3
'(attention à respecter - ou modifier - les abréviations des mois républicains ci-dessous)
'résultat : date grégorienne en colonnes 4, 5 et 6

'la variable "ligne" peut servir de compteur à une instruction FOR...NEXT
'ou bien être la ligne active dans la feuille de calcul avec l'instruction
'ligne = SELECTION.ROW

'jour, mois et an républicains
For Row = 1 To 10
jr = Cells(Row, 1)
Select Case Cells(Row, 2)
Case "Vend": mr = 0
Case "Brum": mr = 1
Case "Frim": mr = 2
Case "Nivo": mr = 3
Case "Pluv": mr = 4
Case "Vent": mr = 5
Case "Germ": mr = 6
Case "Flor": mr = 7
Case "Prai": mr = 8
Case "Mess": mr = 9
Case "Ther": mr = 10
Case "Fruc": mr = 11
Case "Cp": mr = 12
Case Else: Cells(Row, 2).Select: MsgBox "mois non identifié": End

End Select
ar = Cells(Row, 3)

'nombre de jours écoulés depuis le "1er vendémiaire an 0" = 22/09/1791
nb_jour = jr + 30 * mr + 365 * ar + Int(ar / 4)

'recalage de la date et affichage
date_gregorienne = DateAdd("d", nb_jour, "22-Sep-1791")
Cells(Row, 4) = Day(date_gregorienne)
Cells(Row, 5) = Month(date_gregorienne)
Cells(Row, 6) = Year(date_gregorienne)
Next
End Sub
'---------------------------------------------------