Bonjour,
A partir d'une macro en VBA pour incrémenter un numéro de facture j'ai
commencé une conversion en LOBasic.
Tout fonctionne correctement sauf la dernière étape, l'insertion du
résultat dans la cellule du numéro de facture.
Où est ce que je commets une erreur ?
Ci-dessous le code VBA et LOBasic
Sub Incrémenter_Facture()
Dim num As String
Dim i As Integer
Range("B9:B12").ClearContents
Range("E9:E12").ClearContents
Range("D14").ClearContents
num = Right(Range("C6").Value, 6) + 1
For i = 1 To 6 - Len(num)
num = "0" & num
Next i
Range("C6").Value = "FA" & " / " & CStr(Year(Date)) & "-" & num
End Sub
Sub Incrementer_Facture()
Dim MonDocument As Object
Dim lesFeuilles As Object
Dim MaFeuille As Object
Dim MaCellule As Object
Dim laZoneUn As Object
Dim laZoneDeux As Object
Dim leTaux As Object
Dim numFact As String
Dim gomme As Long
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)
Dim i As Integer
numFact = Right(MaCellule.value,6)
numFact = numFact + 1
For i = 1 To 6 - Len(numFact)
numFact = "0" & numFact
Next i
numFact = "FA" & " / " & CStr(Year(Date)) & "-" & numFact
msgBox numFact
'------------- écriture dans la cellule qui ne focntionne pas
---------------------------------------------
'MaCellule = MaFeuille.getCellRangeByName("C2")
'MaCellule.Value = "FA" & " / " & CStr(Year(Date)) & "-" & numFact
End Sub
Cordialement
Michel B.
--
Envoyez un mail à [email protected] 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
