XL 2010 Remplacer Exit sub par autre operateur

[djiska]

Bonjour j'aimerai remplacer Exit par un autre operateur .
Voici Une PARTIE de mon code .

Public Function Saisi() As Variant

Dim Reponse As Variant
Dim choix As String


choix = Val(InputBox(" Voici vos choix : " & vbCrLf & "1.Papa " _
& vbCrLf & "2.Maman " & vbCrLf & "3.Quitter " _
& vbNewLine & vbCrLf & "Entrer vos choix "))

j'ai crée une constante annuler qui est égal à 3

If (choix = ConstAnnuler) Or (choix = vbNullString) Then ' si la personne appuie sur le bouton annuler ou saisie 3 , la fonction s'arrete( on sort de la fonction).

Exit Function
Ma question:
Par quoi je pourrais remplacer if et exit ????


Merci

 

[laurent3372]

par un "affreux" goto

 

[Hasco]

Bonjour,

Ou par inversion de test:

Public Function Saisi() As Variant
    Const ConstAnnuler = 3
    Dim Reponse As Variant
    Dim choix As String


    choix = Val(InputBox(" Voici vos choix : " & vbCrLf & "1.Papa " _
                       & vbCrLf & "2.Maman " & vbCrLf & "3.Quitter " _
                       & vbNewLine & vbCrLf & "Entrer vos choix "))
    If choix <> ConstAnnuler And choix <> 0 Then
        MsgBox choix
    End If
End Function

P.S. Choix ne peut jamais être égal à vbnullstring puisque Val(inputBox) renverra une valeur numérique ou 0.

 

[djiska]

Merci à vous deux .
@Roblochon ,ton constat est pertinent , je ne l'avais pas vu.

Bonne soirée ou bonne nuit selon le feseau