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

Samedi à 10:00

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 ?

Samedi à 10:04

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

Samedi à 18:08

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.