code pour effacer plusieurs optionbutton

[ccpapy]

bonjour,
j'aurai 32 optionbutton à effacer d'un coup
malgré mes recherches sur le forum et plusieurs essais,
je ne trouve pas la solution
merci par avance

un petit exemple du souci joint

 

[Papou-net]

Re : code pour effacer plusieurs optionbutton

Bonjour ccpapy,

Essaie comme ceci :

Private Sub CommandButton1_Click()
For Each ctl In UserForm1.Controls
  If TypeOf ctl Is MSForms.OptionButton Then ctl = False
Next
UserForm1.Show
End Sub

Bon dimanche.

Cordialement.

 

[Si...]

Re : code pour effacer plusieurs optionbutton

salut

avec ton exemple et ce que j'ai compris, je ferais ainSi...

Private Sub OptionButton1_Click()
  Frame1.Visible = True
  Frame2.Visible = False
  For n = 3 To 5
    Me("OptionButton" & n) = False
  Next
End Sub

Private Sub OptionButton2_Click()
  Frame2.Visible = True
  Frame1.Visible = False
  For n = 6 To 8
    Me("OptionButton" & n) = False
  Next
End Sub

 

[ccpapy]

Re : code pour effacer plusieurs optionbutton

Merci à vous,
j'ai une petite préférence pour la solution de Si...
ça rejoint ce que j'essayais de faire depuis hier et je comprends mieux mon (mes) erreur (s)

Papou-net:
je n'ai pas essayé ton code, merci quand même

bon dimanche à tous

 

[Papou-net]

Re : code pour effacer plusieurs optionbutton

Merci à vous,
j'ai une petite préférence pour la solution de Si...
ça rejoint ce que j'essayais de faire depuis hier et je comprends mieux mon (mes) erreur (s)

Papou-net:
je n'ai pas essayé ton code, merci quand même

bon dimanche à tous

RE :

Avec une boucle For Each... tu effaces tous les OptionButton, quel que soit leur nombre. Pas besoin d'adapter les variables aux index des boutons en cas de modification.

Mais il est vrai que je ne dois pas avoir compris la demande car ma solution remet toutes les options à zéro au moyen du bouton de commande de la feuille de calcul.

Cordialement.

 

[ccpapy]

Re : code pour effacer plusieurs optionbutton

effectivement j'ai d'autres options que je ne veux pas remettre à zéro dans mon fichier
j'ai simplifié au maximum mon exemple.
merci encore