PARTIE 2 - La structuration et le traitement de l'information dans les organisations APPLICATION CORRIGÉE L'entreprise CANDY SHOP, une confiserie, souhaiterait avoir un programme qui permette de calculer la remise dont peut bénéficier un client sur le montant total de sa commande. La règle de gestion est la suivante : remise de 3 % pour les commandes supérieures à 400 € HT ; le taux est de 5 % pour les commandes supérieures à 800 € HT. Écrivez le programme VBA optimisé qui permet le calcul de cette remise. Comme les taux de remise et les seuils peuvent être modifiés en cours d'année ou d'une année sur l'autre, le plus simple est de créer des constantes. En cas de changement, on ne modifie pas le corps du programme. Correction Sub Remise() Dim Totalcom As Single Dim Remise As Single Dim Tauxremise As Single Const Tauxrem1 As Integer = 3 Const Tauxrem2 As Integer = 5 Const Lim1 As Integer = 400 Const Lim2 As Integer = 800 Totalcom = InputBox(« Saisir le montant total de la commande : », « Totalcom ») If Totalcom ≥ Lim2 Then Tauxremise = Tauxrem2 Remise = Totalcom x Tauxrem2 / 100 Else If Totalcom >= Lim1 Then Tauxremise = Tauxrem1 Remise = Totalcom x Tauxrem1 / 100 Else Tauxremise = 0 Remise = 0 End If End If MsgBox (« Taux de la remise (%) : » & Tauxremise & vbCrLf_ & « Montant de la remise (€) : » & Remise) End Sub 1 a 270