Gestion des factures à partir d'une base clients

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

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

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

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?

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.

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

Bonsoir ,

Regardes si cela va mieux ?


@ Bonsoir Gosselien , ma solution ressemble à la tienne

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

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

P.

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 🙂