Formater une colonne

fr-users
#1

A ma grande surprise le fichier avec ci-joint semble illisible.
Copie du code :
Public Sub JoursFeries()

     Dim vAnnee As Variant, DimanchePaques As Variant
     Dim G As Integer, C As Integer, C_4 As Integer, E As Integer
     Dim H As Integer, K As Integer, P As Integer, Q As Integer
     Dim I As Integer, B As Integer, J1 As Integer, J2 As Integer
     Dim R As Integer, lstJF(1 To 11) As Variant
     Dim MaZone As Object, MesColonnes As Object, MaFeuille As Object
     Dim Cellule As Object, MaColonne As Object

     vAnnee = InputBox(prompt:="Saisir l'année", Title:="Jour de paques")
     vAnnee = Cint(vAnnee)

     If vAnnee = "" Then
         Exit Sub
     End If

     G = vAnnee Mod 19
     C = vAnnee \ 100
     C_4 = C \ 4
     E = (8 * C + 13) \ 25
     H = (19 * G + C - C_4 - E + 15) Mod 30
     K = H \ 28
     P = 29 \ (H + 1)
     Q = (21 - G \ 11)
     I = (K * P * Q - 1) * K + H
     B = vAnnee \ 4 + vAnnee
     J1 = B + I + 2 + C_4 - C
     J2 = J1 Mod 7
     R = 28 + I - J2

     If R <= 31 Then
         DimanchePaques = DateValue(CStr(R) & "/3/" & CStr(vAnnee))
     Else
         DimanchePaques = DateValue(CStr(R - 31) & "/4/" & CStr(vAnnee))
     End If

     MaFeuille=ThisComponent.Sheets(0)

     '----------------- premier janvier ----------------------------------
     lstJF(1) = DateSerial(vAnnee, 1, 1)
     Cellule = MaFeuille.getCellRangeByName("A1")
     Cellule.Value = lstJF(1)
     '----------------- lundi de pâques ----------------------------------
     lstJF(2) = DateAdd("d", 1, DimanchePaques)
     Cellule = MaFeuille.getCellRangeByName("A2")
     Cellule.Value = lstJF(2)
     '----------------- premier mai --------------------------------------
     lstJF(3) = DateSerial(vAnnee, 5, 1)
     Cellule = MaFeuille.getCellRangeByName("A3")
     Cellule.Value = lstJF(3)
     '----------------- huit mai------- ----------------------------------
     lstJF(4) = DateSerial(vAnnee, 5, 8)
     Cellule = MaFeuille.getCellRangeByName("A4")
     Cellule.Value = lstJF(4)
      '----------------- jeudi de l'ascencion -----------------------------
     lstJF(5) = DateAdd("d", 39, DimanchePaques)
     Cellule = MaFeuille.getCellRangeByName("A5")
     Cellule.Value = lstJF(5)
     '----------------- lundi de pentecôte -------------------------------
     lstJF(6) = DateAdd("d", 50, DimanchePaques)
     Cellule = MaFeuille.getCellRangeByName("A6")
     Cellule.Value = lstJF(6)
     '----------------- 14 juillet ---------------------------------------
     lstJF(7) = DateSerial(vAnnee, 7, 14)
     Cellule = MaFeuille.getCellRangeByName("A7")
     Cellule.Value = lstJF(7)
     '----------------- 15 aout ------------------------------------------
     lstJF(8) = DateSerial(vAnnee, 8, 15)
     Cellule = MaFeuille.getCellRangeByName("A8")
     Cellule.Value = lstJF(8)
     '----------------- toussaint ----------------------------------------
     lstJF(9) = DateSerial(vAnnee, 11, 1)
     Cellule = MaFeuille.getCellRangeByName("A9")
     Cellule.Value = lstJF(9)
     '----------------- 11 novembre --------------------------------------
     lstJF(10) = DateSerial(vAnnee, 11, 11)
     Cellule = MaFeuille.getCellRangeByName("A10")
     Cellule.Value = lstJF(10)
     '----------------- noël ---------------------------------------------
     lstJF(11) = DateSerial(vAnnee, 12, 25)
     Cellule = MaFeuille.getCellRangeByName("A11")
     Cellule.Value = lstJF(11)

     MaColonne = MaFeuille.getCellRangeByName("colonne_A")

     With MaColonne
         .CellBackColor = RGB(100,220,220)
         .CharWeight = com.sun.star.awt.FontWeight.BOLD
           .CharPosture = com.sun.star.awt.FontSlant.ITALIC
           .CharFontName = "Comic Sans MS"
       End With

       MaZone = MaFeuille.getCellRangeByName("A1")
     MesColonnes = MaZone.Columns
     MesColonnes.OptimalWidth = True

End Sub

#2

Du tout, il faut seulement faire Enregistrer sous et ensuite ouvrir le fichier. Je ne sais pas pourquoi Firefox a décidé de l'ouvrir directement, mais c'est comme ça depuis quelques versions (oui je sais il faudrait le signaler).

#3

Bonjour,

A ma grande surprise le fichier avec ci-joint semble illisible.

Pourquoi recalculer la date de Pâques ? Il existe une fonction pour ça.

Bonne journée
JBF