[fr-users] Formater une colonne

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

--
Envoyez un mail à users+unsubscribe@fr.libreoffice.org pour savoir comment vous désinscrire
Les archives de la liste sont disponibles à http://listarchives.libreoffice.org/fr/users/
Tous les messages envoyés sur cette liste seront archivés publiquement et ne pourront pas être 
supprimés