Instruction If dans VB 6.0 Fermé

Question

Bonjour,Pouvez-vous SVP me corriger le code suivant:Vérifier surtout l'utilisation de Else If et la définition des conditions.If Rep = "01" Or Rep = "02" Or Rep = "03" Then        VarNum = Varold        operator.Text = Varoperator        ElseIf Rep = "14" Or rep = "20" Or Rep = "23" Then                VarNum = VaroldNum + 1                operator.Text = Varoperator                ElseIf Rep = "05" Or Rep = "06" Then                VarNum = Varold - 15                Operator.Text = VarNum                end If	End IfEndIfMerci d'avancePolly.

Armojax · Answer

Salut polly,Je ne vois pas de problème, à part 2 End If en trop en fin de proc.Je conseillerais plutôt, pour la clarté, l'utilisation de Select Case :Select Case Rep  Case "01", "02", "03"    VarNum = Varold    Operator.Text = Varoperator  Case "14", "20", "23"    VarNum = VaroldNum + 1    Operator.Text = Varoperator  Case "05", "06"    VarNum = Varold - 15    Operator.Text = VarNumEnd Select

Instruction If dans VB 6.0

1 réponse

Discussions similaires