Discussion :

[VieuxGeek]

Bonjour Amis Astuciens,
Suis bloquié pour la procédure évenementielle afin de remettre en état avant appuie de mes 20 boutons...
Il peut y en avoir un ou plus et je veux TOUT resetter.
----------------------------------------------------------------
1/ Private Sub Commande624_Click()
'Pour annuler l'événement des 20 Boutons Filtre_Type

2/ Me.Filtre_Type = ""
3/ Me.Filtre_Type_Change

4/ End Sub
-------------------------------------------------------------
Mais n'ayant plus accés à la baguette magique qui m'aidait (Je ne sais pas pourquoi !)
Je suis bloqué.Avez vous la possibilité de m'aider
L'obet source du bouton à resetter se nomme [Filtre Type1]
Il fait apparaitre [ENTREE1]
Etc... jusqu'à [Filtre Type20] et [ENTREE20]

Une piste, me suis-je bien expliqué ?
Merci et bon grand Week End.
Bernard

[gui_li_aume]

Bonjour,

Fermer puis reouvrir le formulaire serait il plus simple?

[hyperion13]

Salut

Qu'entendez-vous par boutons ? Bouton de commande, à bascule, radio ?
Sont-ils organisés sous forme de groupe d'options ?

Capture d'écran du form serait la bienvenue.

[VieuxGeek]

Bonjour hyperion13,

Qu'entendez-vous par boutons ? Ce sont des Boutons à BASCULE

Sont-ils organisés sous forme de groupe d'options ? OUI Tout le rectangle avec le coté droit des boutons

Pour INFO j'ai essayé d'en copier un et cela me bloquait le formulaire de données côté gauche
=ChangeEtat([Filtre 1];[ENTREE1]) fonctionne très bien mais peut-être rajouter : ??? pour MIEUX voir que le bouton est basculer ?? Changement de couleur ou grossissement, car ils ne se voient pas assez qu'ils sont enfoncés

Capture d'écran du form serait la bienvenue. Ci-Jointe

Merci pour ton amical aide et bon grand week end
PS (J'étais en panne de souris alors je n'ai pas pu répondre de suite)
Bernard

[hyperion13]

De mémoire il est impossible de faire une sélection multiple (plusieurs cases cochées, plusieurs btn bascule activés, etc.) dans un groupe d'options.

Les boutons affectés d'un octothorpe sont isolés les uns des autres.

Si vous voulez que tous vos boutons soient libérés, une solution

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub resetBtnBascule_Click()
Dim Ctrl As Control
 
For Each Ctrl In Me.Controls
    If Ctrl.ControlType = acToggleButton Then
        Ctrl.Value = False ' on désactive le btn bascule
        Ctrl.ForeColor = IIf(Ctrl.Value = True, vbRed, vbBlack) ' l'octothorpe passe en noir quand btn bascule désactivé
    End If
Next
End Sub

[VieuxGeek]

Super Hyperion13,Merciiiiiiiiiii
Je marque résolu...
On apprend tous les jours avec Toi.
Tu as la science infuse.
Bernard