Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2010 Remplacer Exit sub par autre operateur

  • Initiateur de la discussion Initiateur de la discussion djiska
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

djiska

XLDnaute Junior
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
 
Solution
Bonjour,

Ou par inversion de test:
VB:
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.
Bonjour,

Ou par inversion de test:
VB:
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.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
588
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…