Faire un choix avec Select Case

Sub Choix()

Dim Valeur As Long

    Select Case Valeur

            Case Is = 0
                    'Code

            Case 1 To 5
                    'Code

            Case 6, 8, 10
                    'Code

            Case 7
                    'Code

            Case Else
                    'Code

    End Select

End Sub

Laisser un commentaire

Votre adresse de messagerie ne sera pas publiée. Les champs obligatoires sont indiqués avec *