[XL-2003] aide pour commande sur ToggleButton [Résolu]

[redstoff]

Bonjour

j'ai plusieurs toggleButton et je cherche à faire en sorte qu'un seul d'entre eux soit à 1 et donc le reste à 0

j'ai tenté avec cette commande mais ca fait planté le fichier.

Code :

1
2
3
4
5
6
Private Sub SelectionnerModeleMultiModele_Change()
    For c = Support.Controls.Count - 1 To 0 Step -1
        If TypeName(Support.Controls(c)) = "ToggleButton" Then Support.Controls(c) = 0
    Next c
    SelectionnerModeleMultiModele = 1
End Sub

je précise que c'est un toggle crée en dynamique

quelqu'un a une solution?

merci

[patricktoulon]

bonjour

Code :

1
2
3
4
5
6
7
8
9
10
11
Private Sub ToggleButton1_Click()
Dim control As Object ' variable object pour les controls
'on boucles sur tout le controls
For Each control In Me.Controls
'si le nom du  control est différentde  "togglebutton1"
If control.Name <> "ToggleButton1" Then
'on met le control a false
control = False
End If
Next
End Sub

tu n'a qua te faire une classe sur cet exemple

et pour cela te baser sur mon exemple d'effet mouse in out dans les contributions si tu n'y arrive pas je te le ferais

au plaisir

[Theze]

Bonsoir,

Je pense qu'il va falloir que tu te tourne vers des boutons d'option car avec un module de classe, chaque fois que tu mettras une valeur à False pour un bouton, l'évènement dans le module de classe sera à nouveau appelé mais bon, à voir. Si j'ai le temps, je fais un test demain.

Hervé.

[redstoff]

Bonjour et merci pour ta solution

je viens de la tester avec une petite modification

Code :

1
2
3
4
5
6
7
8
9
Private Sub SelectionnerModeleMultiModele_click()
    Dim control As Object
    For Each control In Support.controls
        If control.Name <> SelectionnerModeleMultiModele.Name _
            And TypeName(control) = "ToggleButton" Then
            control = False
        End If
    Next
End Sub

c'est déjà une bonne avancée mais il persiste un mauvais point.
lorsque je clique sur un des boutons, les autres se deselectionnent (ok jusque la) mais le bouton cliqué ne reste pas selectionné.
il faut que je reclique dessus pour le selectionner.
Je pourrai me contenter de ca mais je pense qu'il est possible de résoudre ce probleme

[patricktoulon]

bonjour
c'est normal tu a fait une erreur!


on recomence

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub SelectionnerModeleMultiModele_Click()
    Dim control As Object    ' variable object pour les controls
'on boucles sur tout le controls
    For Each control In Me.Controls
        If TypeName(control) = "ToggleButton" Then
            'si le nom du  control est différent de  "SelectionnerModeleMultiModele"
            If control.Name <> "SelectionnerModeleMultiModele" Then
                'on met le control a false
                control = False
            End If
        End If
    Next
End Sub

j'ai tester ca fonctionne avec 10 togglebutton et plus donc tu maintenant ta base pour pouvoir faire ta classe

au plaisir

[redstoff]

Bonjour,

je viens de regarder ta solution mais dans un module classe ca ne marche pas car à chaque changement d'etat le Sub se relance et donc fait que ca ne marche pas. mais j'ai trouvé une petite parade pour que ca fonctionne.

je la met en dessous

Code :

1
2
3
4
5
6
7
8
9
10
11
If FeinteChoixMultiModele = "" Then
    Dim control As control
    FeinteChoixMultiModele = SelectionnerModeleMultiModele.Caption
    For Each control In Support.controls
        If TypeName(control) = "ToggleButton" Then
            b = control.Caption
            If control.Caption <> SelectionnerModeleMultiModele.Caption Then control = False
        End If
    Next
    FeinteChoixMultiModele = ""
End If

le principe est de créer une variable public afin de faire une petite feinte au programme lol ^^

[patricktoulon]

bonjour

allons donc

si tu a pris la peine d'aller voir mon effet mouse dans les contribution

tu aurais vu que c'est tout a fait possible de faire la meme chose avec une classe

surtout que ta solution devra etre répété autant de fois que tu a de togglebutton
mais tu n'a pas du sufusament regardé

je vais te le faire rien que pour te le prouver

au plaisir

[redstoff]

j'attend ta solution. je suis ouvert pour toutes propositions ^^