VBA Lignes total plusieurs TVA

Bonjour

Dans la facture jointe (les lignes non colorées sont générées automatiquement) il me faudrait de l'aide pour générer en VBA la plage en jaune.

Le nombre de ligne de produits est variable (de 1 à xxx) et la difficulté est que l'on peut se trouver avec des tva variables comme vous pouvez le constater.

Est-ce faisable svp ?

Merci

Bonsoir le forum,

Une proposition sans VBA :

Re,

Ou : C3 :

=SOMME.SI(D:D;0,055;(F:F))*0,055

Merci mbbp pour ce début de piste

Vais essayer d'adapter ça en vba mais c'est pas gagné.

Bonne soirée

Bonjour,

Je te propose une solution qui consiste à créer tout le bloc en jaune via une procédure qui pourrait être appelée par un bouton.

Je te donne un exemple qui insère automatiquement la formule pour le total à 5,5%.

La formule est placée sur la dernière ligne + 2 (+ 3 pour le total à 10% et + 4 pour le total à 20%).

Il y a également la mise en forme (couleur jaune, bordure et format monétaire).

Je te laisse le soin d'écrire les autres lignes de code ainsi que les titres.

Si cela te pose des soucis n'hésite pas à demander.

Pour simplifier le code tu peux utiliser un bloc with...End With

Voici le code:

Sub TOT55()

Dim DL As Long

DL = Sheets(1).Cells(65535, 1).End(xlUp).Row

Sheets(1).Cells(DL + 2, 6).Borders(xlEdgeLeft).LineStyle = xlContinuous

Sheets(1).Cells(DL + 2, 6).Borders(xlEdgeTop).LineStyle = xlContinuous

Sheets(1).Cells(DL + 2, 6).Borders(xlEdgeBottom).LineStyle = xlContinuous

Sheets(1).Cells(DL + 2, 6).Borders(xlEdgeRight).LineStyle = xlContinuous

Sheets(1).Cells(DL + 2, 6).Interior.Color = 65535

Sheets(1).Cells(DL + 2, 6).NumberFormat = "#,##0.00 $"

Sheets(1).Cells(DL + 2, 6) = "=SUMIF(R1C4:R" & DL & "C4,0.055,R1C6:R" & DL & "C6)"

End Sub

Bon courage !

Bonjour GNIN

Je vais regarder tout ça dans la matinée et vous tiens au jus.

Merci d'avoir planché sur mon problème en tout cas

Bonne journée

C'est parfait.

Merci à vous deux et bonne journée;