Public Function Decode(strCompare As String, ParamArray strValues() As Variant) As Variant
Dim i As Long
For i = LBound(strValues) + 1 To UBound(strValues) Step 2
If strValues(i - 1) = strCompare Then
Decode = strValues(i)
Exit Function
End If
Next i
If UBound(strValues) Mod 2 = 0 Then Decode = strValues(UBound(strValues)) Else Decode = Null
End Function
Remarque :
mieux que le switch du vba (à mon avis) et indispensable dans les algo et requêtes! nombre d'argument illimité selon besoins.
DECODE(ValATester, "val1", "Valeur 1", "val2", "Valeur 2", "valeur par défaut")