[Résolu]Incrémentation d'un numéro de facture dans calc

fr-users
#1

Bonjour,
Merci Pierre-Yves pour la piste des types de données.
Le code suivant fonctionne correctement:
Sub Incrementer_Facture()
     Dim MonDocument As Object,lesFeuilles As Object,MaFeuille As Object
     Dim MaCellule As Object,laZoneUn As Object,laZoneDeux As Object
     Dim leTaux As Object,numFact As String,gomme As Long
     Dim i As Integer
     MonDocument = ThisComponent
     lesFeuilles = MonDocument.Sheets
     MaFeuille = lesFeuilles.getByName("facture")
     MaCellule = MaFeuille.getCellRangeByName("C2")
     laZoneUn = MaFeuille.getCellRangeByName("B6:B9")
     laZoneDeux = MaFeuille.getCellRangeByName("E6:E9")
     leTaux = MaFeuille.getCellRangeByName("D11")
     gomme = com.sun.star.sheet.CellFlags.STRING
     laZoneUn.clearContents(gomme)
     gomme = com.sun.star.sheet.CellFlags.VALUE
     laZoneDeux.clearContents(gomme)
     leTaux.clearContents(gomme)
     numFact = Right(MaCellule./*string*/,6)
     numFact = (Cint(numFact)) + 1
     numFact = (Cstr(numFact))
     For i = 1 To 6 - Len(numFact)
         numFact = "0" & numFact
     Next i
        MaCellule = MaFeuille.getCellRangeByName("C2")
     MaCellule./*string*/ = "FA" & " / " & CStr(Year(Date)) & "-" & numFact
End Sub
Cordialement
Michel B.