Facture avec numéro qui change
Bonjour
C'est la macro: Sub new_fact() dans le module1
Problème corrigé
A+ François
Bonjour François, voici un copié collé de mon code, peux tu me dire ce que je dois modifier, je pourrais voir pourquoi ça bug par moments. Merci beaucoup !
EDIT : La ligne TEST 6 ne s’additionne pas au total.
Sub PDF() ' PDF Macro ENREGISTRER EN PDF
Dim fichier As String
With Sheets("FACTURES")
fichier = "C:\Users\odyssee\Documents\" & .Range("G9").Value & "_" & Format(.Range("I3").Value, "dd_mm_yyyy") & ".pdf"
End With
ChDir "C:\Users\odyssee\Documents"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
fichier, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
End Sub
Sub IMPRIMER() ' L'IMPRESSION SE LANCE AUTOMATIQUEMENT
Dim nbpages As Long, i As Integer
Application.ScreenUpdating = False
ActiveSheet.PageSetup.PrintArea = "$B$2:$J$73"
i = 50
Do While True
nbpages = ExecuteExcel4Macro("GET.DOCUMENT(50)")
If i = 16 Then Exit Do
If Range("B" & i) = "" Then
Rows(i).EntireRow.Hidden = True
Else
Rows(i).EntireRow.Hidden = False
End If
i = i - 1
If nbpages = 1 Then Exit Do
Loop
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
End Sub
Sub new_fact()
Sheets("FACTURES").Select
Rows("16:53").RowHeight = 18.75
Range("O6").Select
Range("b16:i53").ClearContents
Range("b16:i53").EntireRow.Hidden = False
Range("G8:J13").ClearContents
Range("J56:J57").ClearContents
UserForm1.Show
End Sub
Bonjour à tous.
dan25, la "Sub new_fact()" la ligne "Rows("16:53").RowHeight = 18.75" doit être : "Rows("b16:i53"). Pour le reste je n'ai pas vérifié.
Mais pourquoi tu ne t'appui pas sur le fichier que je vous ai transmis ?
Comme tu peux le voir dans le dernier fichier, c'est:
Range("b16:i53").ClearContents
qui est changé en Range("b16:i39").ClearContents
en j16 copie la formule suivante à étirer jusque J39
=SI(H16="";"";H16*I16)
A+ François
j'ai pris ce fichier qui date d'il y a quelques mois et qui fonctionne. J'ai compris ce qui en va pas, quand j'ajoute du texte dans les lignes, plutôt que d'aller à la ligne, j’agrandis al ligne, cela modifie toute la structure et fait disparaitre le code source ! Je vais taper le texte ligne par ligne, ça sera plus simple.
@Claude Payet, ton fichier est beaucoup trop complexe pour moi, il y a trop de couleurs, de plus je ne facture pas de TVA. Mais c'est gentil pour ton aide.
Bonjour à tous.
Dan25, J'entends bien votre remarque. Mais vous verrez que vous aurez autant de code à la fin.
Quoique qu'il en soit, j'ai repris votre fichier et je l'ai finalisé, et je le mets en pièce jointe : cela pourrait intéresser d'autres personnes.
Ceux qui sont intéressés : ne pas hésiter à demander des explications.
Les couleurs peuvent être changées : rien n'est figé !
Cordialement.
Bonjour Claude,
Merci pour votre retour. je me permets quelques précisions:
sur votre fichier "Mouvement des stocks", peut être inclus dans la page stock et décompter à la création d'une facture.
La page facture, j'entre du détail à chaque factures, quand par exemple je répare un véhicule, il y a plusieurs réparations, ce qui inclus d'ajouter des lignes à chaque fois, ce n'est pas possible sur votre fichier.
Il ne faut pas de HT mais que du net, car je n'ai pas de TVA en auto entrepreneur. Il faut des cases frais de port, frais de déplacement..
Pour le logo, je dois entrer les coordonnées de mon entreprise.
Il faut que le mode de paiement soit en bas, à coté du total à régler.
Pour cela que c'est très complexe pour moi...
Cdt Daniel
Dan25, j'avais bien compris que le fichier que j'ai proposé ne vous convenait pas.
Je l'ai mis parce que je vois que ce dossier est très suivi, et ce que je proposais pouvait éventuellement servir à d'autres.
Je vous souhaite une bonne continuation.
Cordialement.