Gestion des factures à partir d'une base clients

[karlito]

Bonjour à tous,

Je suis actuellement sur une macro me permettant de facturer une base client automatiquement mais j'ai quelques petits soucis..
Mon fichier arrive bien à créer les factures en fonction du nombre de lignes client.
Il permet d'attribuer un numéro via un compteur mais Je n'arrive pas à créer une facture en lui attribuant un numéro puis passer à la deuxième facture en lui attribuant le numéro suivant etc.
Je ne sais pas plus comment modifier mon code.

En espérant que vous pourrez m'aider
Merci

 

[camarchepas]

Re : Gestion des factures à partir d'une base clients

Bonjour ,

Pourquoi ne pas intéger ton numéro de facture dans la base de données (Cela te permettrais d'avoir une clé unique )

Si la partie lettre est toujours la même , pas la peine de l'enregistrer , juste le numéro ,

ensuite , il suffit de faire une fonction max sur la colonne et de l'incrémenter de 1 Puis de recomposer en ajoutant la partie libellé le numéro de facture suivante

 

[karlito]

Re : Gestion des factures à partir d'une base clients

Oui en effet je pourrais mettre mon numéro client dans la base client.
JE vais essayer pour voir ce que ça donne.
Merci pour le conseil

 

[karlito]

Re : Gestion des factures à partir d'une base clients

Par contre je ne suis pas sûr de savoir faire une incrémentation à chaque fois que je rajoute une ligne client avec la fonction max..
JE vais quand même essayer

 

[karlito]

Re : Gestion des factures à partir d'une base clients

En fait je viens de m'apercevoir que mon code ne permet pas de balayer toutes mes lignes client.
J'ai bien la création de 4 factures mais pas les bonnes informations.
Que faudrait-il modifier dans la boucle pour demander de lire chaque ligne jusqu'à la dernière et a chaque fois créer une facture d'après le modèle?

 

[gosselien]

Re : Gestion des factures à partir d'une base clients

Bonjour,
essaye ceci:

Sub Factures_ITP()

'Edition de factures en fonction du fichier mensuel des locations'
'Numérotation automatique des factures avec ITP15 suivi de trois chiffres'
Application.ScreenUpdating = False
Dim WS1 As Worksheet
Set WS1 = Sheets("Facture")
WS1.Select
Dim dlg As Integer
dlg = Sheets("Mensuel").Range("A" & Rows.Count).End(xlUp).Row
For i = 4 To dlg
With WS1
.Range("B13") = Sheets("Mensuel").Range("M" & i).Value
.Range("D7") = Sheets("Mensuel").Range("A" & i).Value
.Range("D8") = Sheets("Mensuel").Range("G" & i)
.Range("D9") = Sheets("Mensuel").Range("J" & i)
.Range("D10") = Sheets("Mensuel").Range("K" & i) & " " & Sheets("Mensuel").Range("L" & i)
.Range("A19") = "Location " & Sheets("Mensuel").Range("C" & i) & " pour " & _
Sheets("Mensuel").Range("E" & i) & " le " & Sheets("Mensuel").Range("D" & i)
.Range("A20") = Sheets("Mensuel").Range("I" & i)
.Range("E19") = Sheets("Mensuel").Range("H" & i)
End With
ActiveSheet.Copy after:=Sheets(Sheets.Count)
WS1.Select
Next
End Sub

P.

 

[camarchepas]

Re : Gestion des factures à partir d'une base clients

Bonsoir ,

Regardes si cela va mieux ?


@ Bonsoir Gosselien , ma solution ressemble à la tienne

 

[gosselien]

Re : Gestion des factures à partir d'une base clients

Oui , "camarchepas", pas 36 solutions , 2 ou 3 max 🙂

P.

 

[karlito]

Re : Gestion des factures à partir d'une base clients

Merci beaucoup à vous deux!! C'est exactement ce dont j'avais besoin.

Je vais continuer mon apprentissage 🙂