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

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.

--
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