Optimisation de code Option button

Version imprimable

bonjour
j'ai sur un userform plusieurs frames avec plusieurs OptionButton (une dizaine par frame).
j'enregistre dans une feuille Xls chaque optionButton dans chaque frame.
mais vu le nombre d'optionbutton dans chaque frame, je me retrouve avec des lignes de code interminable .

y a-t-il moyen d'optimiser toute cette partie ?

merci

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Private Sub OptionButton400_Click()
Cells(2, 16).Value = "Tête"
End Sub
 
Private Sub OptionButton401_Click()
Cells(2, 16).Value = "Yeux"
End Sub
 
Private Sub OptionButton402_Click()
Cells(2, 16).Value = "Bras"
End Sub
 
Private Sub OptionButton403_Click()
Cells(2, 16).Value = "Avant Bras"
End Sub
 
Private Sub OptionButton404_Click()
Cells(2, 16).Value = "Ventre"
End Sub
 
Private Sub OptionButton405_Click()
Cells(2, 16).Value = "Torse"
End Sub
 
Private Sub OptionButton406_Click()
Cells(2, 16).Value = "Mains"
End Sub
 
Private Sub OptionButton407_Click()
Cells(2, 16).Value = "Dos"
End Sub
 
Private Sub OptionButton408_Click()
Cells(2, 16).Value = "Pieds"
End Sub
 
Private Sub OptionButton409_Click()
Cells(2, 16).Value = "Cuisse"
End Sub
 
Private Sub OptionButton410_Click()
Cells(2, 16).Value = "Jambes"
End Sub

23/02/2017, 18h28
joe.levrai

Bonjour,

je te propose de stocker la chaine de caractère :

- dans la propriété .Tag des tes optionbuttons
- de l'écrire dans le .Caption de tes optionbuttons

et de rédiger une procédure générique qui reçoit l'argument "MaPhrase" (récupérée via le .Caption ou le .Tag) et qui fera le travail (voir l'argument Destination qui sera le Range d'arrivée de la valeur)

sans passer par un module de classe, tu n'enlèvera cependant pas l'obligation d'avoir une procédure par contrôle
avec un module de classe, tout est simplifié, mais c'est plus technique à mettre en place

Bonjour !
Code:

1 2 3 4 Private Sub OptionButton401_411_Click() V = [{"Tête","Yeux","Bras","Avant Bras","Ventre","Torse","Mains","Dos","Pieds","Cuisse","Jambes"}] Cells(2, 16).Value = V(Replace(Application.Caller, "OptionButton", "") - 399) End Sub
Sinon effectivement avec le Tag c'est plus simple …

_________________________________________________________________________________________________________

:arrow: Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

_________________________________________________________________________________________________________
Je suis Paris, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

23/02/2017, 19h56
elafye

Merci à vous deux

bon voilà ma solution
ca marche et c'est le principal:mouarf:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
' Copie du siege de la blessure dans la cellule 16 de la ligne 2
Private Sub Frame1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Dim Ctrl As Control
 
    For Each Ctrl In Frame1.Controls
        If Ctrl.Object.Value = True Then
            Cells(2, 16) = Ctrl.Object.Caption
            Exit For
        End If
    Next Ctrl
 
End Sub