Discussion :

[mysterauto]

bonjour à tous et toutes.

voilà mon souci: j'ai placé plusieurs commandButton dans un frame ce qui est très pratique car le comportement est celui des boutons d'option, si on clique sur un, on désélectionne le précédent. par contre j'aimerais qu'une instruction puisse les remettre tous à zéro, c'est à dire tous désélectionnés.

je ne trouve pas. désolé si la question est basique et que je n'y arrive pas, enfin il n'y pas de question bête il parait.

merci pour votre aide

[Invité]

Bonjour

Tes boutons de commande n'ont pas un comportement particuliers parce que tu es dans une frame, c'est leur comportement normal, car il ne peut y avoir qu'un bouton de commande qui a le focus.

Il suffit de mettre le focus sur un autre contrôle de ton UserForm.

Philippe

[mysterauto]

à priori, plusieurs ont le focus. chaque groupe de 4 commandbutton est dans un frame différent. ce qui est gênant, ce que le formateur qui doit noter le compte rendu a l'impression que les choix sont prédéfinis. cela ne fait pas très propre.

en fait les commandbutton sont normalement des "boutons poussoirs" mais en les mettant dans une frame, ils se comportent un peu comme des boutons à bascule ("tooglebutton") si je ne me trompe pas.

[Invité]

la méthode la plus simple pour désélectionner une option est d'en sélectionner une autre. ajoute une option dans chaque frame avec un libellé explicite pour informer l'utilisateur que cette option désélectionne toutes les autres!

[mysterauto]

merci pour ces éléments

en fait à chaque appel de cette notation, j'aimerais que la fiche soit "vierge" donc pas avec quelques boutons actionnés.

j'ai testé mais le bouton de "reset" doit être visible, sinon cela ne fonctionne pas. comme je voudrais qu'il ne soit jamais visible, je suis obligé de:

1 le rendre visible
2 lui donner le focus
3 le rendre invisible

c'est un peu lourd, avez-vous une autre manière de faire?

j'ai testé en rendant la frame invisible et en la remettant visible, les boutons sont encore cochés.

[Invité]

Code :

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

1
2
3
4
5
6
Private Sub Reset_Click()
Dim i As Integer
For i = 1 To 12
Me.Controls("OptionButton" & i).Value = False
Next
End Sub