Macro d'enregistrement de factures

[Olivier18071981]

Permière macro excel... pas simple

Je suis un vrai novice en programmation vba.

Je cherche à faire une macro qui me permette d'enregistrer une série de factures dans une liste. Cette liste irait prendre le nom du client, le montant HT,TTC et la TVA de sa facture. Cette facture doit respecter une mise en page assez spéciale, car mon client a déjà ses habitudes de mise en page.

De plus je souhaite élaborer un générateur de facture, qui génère automatiquement un numéro de facture et affiche la date d'aujourd'hui.
Je vois bien comment programmer ca en algorithme mais je ne connais pas du tout la syntaxe Excel qui m'a l'air assez peu explicite (j'ai appris l'algorithmique en TurboPascal).

Je joins un exemplaire du fichier que j'aimerai pouvoir dupliquer.

Quelqu'un peut il m'aider?

Merci d'avance

 

[Staple1600]

Re : Macro d'enregistrement de factures

Re


Tu veux point nous montrer ton code final?


Ca pourrait servir à d'autres..

 

[Olivier18071981]

Re : Macro d'enregistrement de factures

Sub Macro4()
Application.ScreenUpdating = False
Application.Goto Reference:="modfact"
Selection.Copy
Sheets("Base de Facture").Select
Sheets.Add
With Selection
.PasteSpecial xlValues, xlNone, False, False
.PasteSpecial xlFormats, xlNone, False, False
End With
[B17] = [numfac] + 1
['liste facture'!A2] = [insertionligne]
Sheets("liste facture").Select
Selection.EntireRow.Insert
End Sub


Concrètemement j'ai deux modestes problèmes.
Le premier est peu significatif. Je n'arrive pas à récupérer la mise en page exacte dans le fichier créé (largeur des colonnes par exemple) (je pense qu'un 3ème pastespecial fera l'affaire)
Le second est plus embetant. Mon insertionligne (voir dans nom...) ne fonctionne plus...il fonctionnait lors de mon dernier message ce qui explique mon triomphalisme antérieur à ce message

 

[Staple1600]

Re : Macro d'enregistrement de factures

re

Sub Macro4()
'Déclarations
Dim rng As Range
Dim derlig As Integer
'definie une plage ici A1 de la feuille liste facture
Set rng = Sheets("liste facture").[A1]
derlig = Sheets("liste facture").[A65000].End(xlUp).Row
'identife la dernière cellule non vide
Application.ScreenUpdating = False
' sélectionne la zone nommée modfact
Application.Goto Reference:="modfact"
Selection.Copy
Sheets.Add
With Selection
    .PasteSpecial xlValues, xlNone, False, False
    .PasteSpecial xlFormats, xlNone, False, False
End With
'renomme la feuille
ActiveSheet.Name = [B17]
'insére le numéro de commande dans lla feuille liste facture
rng.Cells(derlig + 1, 1) = ActiveSheet.Name
End Sub

Je te laisse continuer sur cette piste

en attendant que d'autres VBAIstes plus chevronnés interviennent dans ton post

 

[Olivier18071981]

Re : Macro d'enregistrement de factures

Merci infiniment pour tous tes conseils.
Mon affaire commence à bien prendre forme.
Dès que je boucle ma macro et mon fichier excel attenant, je le mets en pièce jointe pour que ma modeste contribution serve éventuellement à d'autres.

 

[Olivier18071981]

Re : Macro d'enregistrement de factures

Voilà le fichier définitif.

C'est dans un style très lourdeau mais ca marche....on fait ce qu'on peut.
L'avantage c'est que c'est très accessible et qu'un enfant de 5 ans comprendrait (la preuve 🙂)

Merci Staple pour ta très précieuse contribution...