[fr-users] Re: Macro d'incrémentation d'un numéro de facture

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