Page 71 - Excel et son VBA

Faire le point

( exercices optionnels pour vous tester, merci à Frédérique Zimmer de l’académie de Strasbourg )

Pour chaque code ci-dessous, expliquer précisément son rôle et son

type (macro ou fonction personnalisée)

Vous prendrez soin de répondre aux questions éventuelles posées

pour les deux premiers codes.

Code 1
Public Function MonTTCNormReduit (pht As Double, cat As String) As Double
Dim pttc As Double
If (cat = "normal") Then
pttc = pht * 1.20
Else
pttc = pht * 1.1
End if
MonTTCNormReduit = pttc
End Function
Question sur le code 1 : reformulez ce code en utilisant une structure Select Case.

Code 2
Public Function MonPU (quantite As Long) As Double
Dim pu As Double
Select Case quantite
Case Is < 100
pu = 0.5
Case 100 To 200
pu = 0.3
Case Is > 200
pu = 0.2
End Select
MonPU = pu
End Function
Question sur le code 2 : reformulez ce code en utilisant une structure If.

68