Bonjour
Blanchard Michel wrote
> 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 ?
Dans la dernière ligne :
'MaCellule.Value = "FA" & " / " & CStr(Year(Date)) & "-" & numFact
Remplacer Value par String
MaCellule.string = "FA" & " / " & CStr(Year(Date)) & "-" & numFact
LibreOffice est plus "strict" : ici c'est une chaîne de caractères que tu
entres dans la cellule. Si tu utilises Value tu obtiens zéro.
Une lecture rapide de ton code me conduit à te faire aussi vérifier ce
qui suit:
numFact = Right(MaCellule.value,6)
numFact = numFact + 1
For i = 1 To 6 - Len(numFact)
numFact = "0" & numFact
Next i
Tu as déclaré numFact en string et tu utilises la fonction
"chaîne" RIGHT permettant d'obtenir la droite d'une chaîne.
Le résultat étant une chaîne la ligne suivante:
numFact = numFact + 1
Fera une concaténation de chaîne. Par exemple si la cellule
contient 2 tu auras "21".
Est-ce bien ce que tu souhaites ?
Cordialement
Pierre-Yves
--
View this message in context:
http://nabble.documentfoundation.org/Macro-d-incrementation-d-un-numero-de-facture-tp4079213p4079230.html
Sent from the Users mailing list archive at Nabble.com.
--
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
