bonjour MichD
je reviens car il y a un souci lors du changement de taux de tva quand je change la tva de 7 a 19 il y a un bug a cette ligne
X.ListSubItems(10).Text = Format((CDbl(X.ListSubItems(9).Text) - CDbl(X.ListSubItems(8).Text)) + X.ListSubItems(7).Text, "##0.00")
et de 19 a 7 cela bug a cette ligne ci dessous
Me.TextBox17 = Format(CDbl(IIf(Me.TextBox17 <> "", Me.TextBox17, 0)) - CDbl(IIf(Tblo(8) <> 0, Tblo(8), 0)) + CDbl(IIf(X.ListSubItems(6).Text <> "", X.ListSubItems(6).Text, 0)), "##0.00")
et pour les 2 il a l'erreur 13 incompatibilité de type
Pascal