[XL-2016] Select case sur option button

Select case sur option button

Bonjour à tous,

Aujourd'hui je viens avec une question rapide contrairement à d'habitude :p

Celle-ci est la suivante : est-il possible de mettre en œuvre une structure de type select case avec le nom des options buttons d'un userform ?
Je m'explique : je dispose d'un userform dans lequel j'ai une partie consacrée à la conversion d'unité. Il s'agit en fait d'une textbox dans laquelle l'utilisateur rentre une valeur puis sélectionne un des 6 options buttons présents pour choisir l'unité. Le but étant que si l'utilisateur rentre une valeur mais qu'il change l'unité après, la conversion dans la textbox soit automatique.

En ce qui concerne l'algorithme, à priori je n'ai pas de problèmes. Là où j'aimerai être fixé, c'est s'il est possible d'utiliser un select case avec des options buttons et si oui, avec quelle syntaxe ? (Dans le but évidemment de simplifier le code et de ne pas passer par 6 conditions IF et d'une manière totalement inélégante)

Merci d'avance pour votre réponse et très bonne journée de travail à vous ;)

Matt

Bonjour,

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Valider_Click()
Dim sCase As Integer, pas As Integer: pas = 1
For i = 1 To 6
  sCase = sCase + (Abs(Me.Controls("OptionButton" & i)) * pas)
  pas = pas * 2
Next
Select Case sCase
    Case 1 '1
    Case 2 '2
    Case 4 '3
    Case 8 '4
    Case 16 '5
    Case 32 '6
    Case Else: MsgBox "pas Option sélcestionné!"
End Select
End Sub

Bonjour,

C'est exactement ce qu'il me fallait :p

Merci beaucoup et bonne journée !