Raccourci pour formule If + ElseIf

[dionys0s]

Bonjour le forum 🙂

J'ai le code suivant et j'aimerais le raccourcir, mais ne connais pas la fonction qui permet en une seule expression de lier un String issu d'une variable à un chiffre que je définis moi-même. Mon code marche très bien comme ça, mais je suis certain qu'il est possible de le raccourcir.

Private Sub CommandButton2_Click()

Dim AbréviationService As String
AbréviationService = Left(Cells(3, 2), InStr(Cells(3, 2), "-") - 1)

Dim RangFeuille As Integer
If AbréviationService = "BAR" Then

RangFeuille = 1
ElseIf AbréviationService = "CIAL" Then
RangFeuille = 2

...

ElseIf AbréviationService = "RES" Then
RangFeuille = 8
ElseIf AbréviationService = "SG" Then
RangFeuille = 9

End If

End Sub

Thanks in advance 🙂

 

[pierrejean]

Re : Raccourci pour formule If + ElseIf

Bonjour dionys0s

Vois si tu peux t'inspirer de cette macro

Sub test()
numero = Array("un", "deux", "trois", "quatre", "cinq", "six", "sept", "huit", "neuf")
For n = 1 To 9
MsgBox (numero(n - 1))
Next n
End Sub

 

[James007]

Re : Raccourci pour formule If + ElseIf

Bonjour dyonisOs, et pierrejean ... 🙂

Lorsqu'on déborde de Ifs et d'actions ... une possibilité est :

Select Case < Expression à tester>
    Case 1
      'faire action1
    Case 2
      'faire action2
    Case Else
      'faire autre chose
End Select

A +

 

[dionys0s]

Re : Raccourci pour formule If + ElseIf

Bonjour Pierrejean, bonjour Mr Bond.

Merci beaucoup pour votre aide. Je vais plancher sur vos codes de ce pas.