Discussion :

[hzdvd]

Bonjour à tous et merci par avance pour l'aide que vous m'apportez.

Evidemment, je suis un débutant...
Je cherche à créer un groupe de contrôles ToggleButton mutuellement exclusifs dans une frame ActiveX sachant que je ne souhaite pas utiliser de Userform car je veux que mes éléments soient intégrés dans ma feuille de calcul.
J'ai trouvé une réponse sur le site microsoft :
http://support.microsoft.com/kb/166252

Tout fonctionne à merveille mais uniquement avec un UserForm.
Même si je suis sûr que la réponse est ultra simple, je bloque sur le code du module si je fais une frame ActiveX sans UserForm !.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
'Variable to hold name of ToggleButton that was clicked.
Public Clicked As String
 
Sub ExclusiveToggleButtons()
    Dim Toggle As Control
 
'Loop through all of the ToggleButtons on Frame1
     For Each Toggle In UserForm1.Frame1.Controls
 
        'If Name of ToggleButton matches name of ToggleButton
           'that was clicked...  
              If Toggle.Name = clicked Then   
               '...select the button
              Toggle.Value = True   
              Else
            '...deselect the button
              Toggle.Value = False   
              End If   
         Next 
End Sub

En d'autres termes, je ne sais pas accéder à ma frame ActiveX qui n'est pas dans un Userform.

Pouvez-vous m'aider ?
De plus je ne sais pas où insérer ce bout de code. Toujours dans un module ?
Et où insérer le code des event MouseUp des ToggleButton dans mon cas ?

Merci !

[Theze]

Bonjour,

Une piste, tu mets tes boutons bascule directement sur la feuille. Tu mes ce code dans un module standard :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 
Public Clicked As String
Public Fe As Worksheet
 
Sub ExclusiveToggleButtons()
 
    Dim Objet As OLEObject
    Dim Toggle As MSForms.ToggleButton
 
    'parcours les objets OLE
    For Each Objet In Fe.OLEObjects
 
        'évite l'erreur si le contrôle n'est pas
        'un bouton bascule
        On Error Resume Next
 
        'passe l'objet à la variable
        Set Toggle = Objet.Object
 
        'défini son état
        If Toggle.Name = Clicked Then
 
            Toggle.Value = True
 
        Else
 
            Toggle.Value = False
 
        End If
 
    Next Objet
 
End Sub

et ce code (celui de l'exemple du lien) dans le module de la feuille :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 
Private Sub ToggleButton1_MouseUp(ByVal Button As Integer, _
        ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
 
    Set Fe = Me
    Clicked = ToggleButton1.Name
    Application.OnTime Now, "ExclusiveToggleButtons"
 
End Sub
 
Private Sub ToggleButton2_MouseUp(ByVal Button As Integer, _
        ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
 
    Set Fe = Me
    Clicked = ToggleButton2.Name
    Application.OnTime Now, "ExclusiveToggleButtons"
 
End Sub
 
 
Private Sub ToggleButton3_MouseUp(ByVal Button As Integer, _
        ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
 
    Set Fe = Me
    Clicked = ToggleButton3.Name
    Application.OnTime Now, "ExclusiveToggleButtons"
 
End Sub

Je pense qu'il va te falloir te passer de Frame car apparemment, sur une feuille de calcul il n'est pas contenair ? A voir !!!

Hervé.

[hzdvd]

Merci pour cette réponse rapide Hervé.

C'est effectivement une bonne première piste.
La difficulté de cette méthode est la gestion de mes 264 boutons !
Si je ne peux pas les regrouper en frames, je ne vais pas pouvoir m'y retrouver et le code va probablement être terrible.
J'ai 6 parties dans ma feuille de calcul.
Chaque partie contient 11 éléments et pour chaque élément, il y a 4 boutons...

D'autres idées ?
Dois-je me limiter à un UserForm ?

Merci encore !
David

[Theze]

Re,

Vu le nombre de contrôles que tu veux utiliser, je pense qu'il serait mieux d'utiliser un UserForm mais à toi de voir.
Je te poste un petit exemple pour un groupe de 11 x 4 contrôles (il t'en faut 6 de groupes !!!). J'ai utiliser un module de classe afin que les évènements soient communs à chaque bloc que forme 4 contrôles.
Le chargement des contrôles dans les tableaux se fait sur l'évènement "Activate" de la feuille "Feuil1" donc, il suffit de sélectionner une autre feuille puis revenir sur "Feuil1" et tester

Hervé.

[PMO2017]

Bonjour,

Une piste avec l'exemple suivant qui construit dynamiquement des groupes d'OptionButton en fonction d'un questionnaire (situé ici en colonne A)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
Dim Reponses As Variant
 
Sub PlageDesQuestions()
'### Du nombre de réponses dépend le nombre d'OptionButton
'### Adapter le Array du variant ci-dessous en fonction des réponses
Reponses = Array("Je n'aime pas", "J'aime un peu", "J'aime", "J'aime beaucoup")
'###
 
Dim C As Range
If TypeName(Selection) <> "Range" Then Exit Sub
If Selection.Columns.Count > 1 Then Exit Sub
 
Application.ScreenUpdating = False
For Each C In Selection
  Call MakeOptionButton(C, UBound(Reponses))
Next C
Application.ScreenUpdating = True
End Sub
 
Sub DeleteShapes()
Dim SH As Shape
For Each SH In ActiveSheet.Shapes
  SH.Delete
Next SH
End Sub
 
Sub MakeOptionButton(CelluleQuestion As Range, NombreOptionButton As Long)
Dim R As Range
Dim i&
Dim OL As OLEObject
Dim OB As MSForms.OptionButton
'---
For i& = 0 To NombreOptionButton
  Set R = CelluleQuestion.Offset(0, i& + 1)
  Set OL = ActiveSheet.OLEObjects.Add(ClassType:="Forms.OptionButton.1", Link:=False, DisplayAsIcon:=False, _
    Left:=R.Left, Top:=R.Top, Width:=R.Width, Height:=R.Height)
  Set OB = OL.Object
  OB.Caption = Reponses(i&)
  OB.GroupName = CelluleQuestion
Next i&
End Sub

Je mets l'exemple en pièce jointe pour plus de facilité.

[Theze]

Bonjour,

Une autre piste et bien plus légère en terme de poids et de code.
Utiliser une fonte qui permet d'afficher une coche dans la cellule (fonte Webdings) sur laquelle on viens de cliquer tout en vidant les autres cellules de la même ligne (exclusivité). Je te poste un autre classeur pour que tu puisse tester.

Hervé.