bonjour,

j'ai créé un style personnalisé (formatage de date dans une cellule), dans un document calc,(F11, nom du style : styleDate)

je n'arrive pas à employé ce style dans mes macros :



Sub formate_donnees
'variables
   Dim sheetIn As Object
   Dim CelIn As Object
   Dim iLig As Long
   Dim tOK As Boolean
'routines
   sheetIn = monDoc.Sheets.getByName("feuille1")
   tOK = True
   iLig = 0
   while tOK = True
       if sheetIn.getCellByPosition(2,iLig).String = "" then
           tOK = False
       else
           CelIn = sheetIn.getCellByPosition(0,iLig)
           CelIn.cellStyle = styleDate
           iLig = iLig + 1
       end if
   wend
End Sub



comprends pas pourquoi cela ne marche pas.

gérard

---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Répondre à