OptionButton1.Value = True

[Evelynetfrancois]

BONJOUR a tous
juste pour la propreté , y a t il plus court sachant qu il n'y a pas un "PAS" regulier entre les optionButtons , donc pas de step possible avec un For i = 1 To 62 step 2
..............................................................
peut etre un
optionButtons 1,3,5 ,9........,20,21.value = true
............................................................
merci pour tout et bonne nuit
E et F
OptionButton1.Value = True
OptionButton3.Value = True
OptionButton5.Value = True
OptionButton7.Value = True
OptionButton9.Value = True
OptionButton11.Value = True
OptionButton13.Value = True
OptionButton16.Value = True
OptionButton18.Value = True
OptionButton22.Value = True
OptionButton24.Value = True
OptionButton26.Value = True
OptionButton28.Value = True
OptionButton30.Value = True
OptionButton32.Value = True
OptionButton34.Value = True
OptionButton36.Value = True
OptionButton38.Value = True
OptionButton43.Value = True
OptionButton45.Value = True
OptionButton47.Value = True
OptionButton50.Value = True
OptionButton52.Value = True
OptionButton54.Value = True
OptionButton57.Value = True
OptionButton59.Value = True
OptionButton61.Value = True

 

[Pierrot93]

Re : OptionButton1.Value = True

Re

en considérant le fichier que je t'ai donné avec le module de classe, et si tu veux mettre à "true" le 1er "optionbutton" de chaque "Frame", tu peux essayer en modifiant le code de l'initialisation de l'USF comme suit (il faut espérer que les noms correspondent aux index) :

Option Explicit
Private Sub UserForm_Initialize()
Dim c As Control, i As Integer, c2 As Control
For Each c In Me.Controls
    If TypeOf c Is MSForms.Frame Then
        ReDim Preserve mesframes(0 To i)
        Set mesframes(i).maframe = c
        i = i + 1
        For Each c2 In c.Controls
            If TypeOf c2 Is MSForms.OptionButton Then
                c2.Value = True
                Exit For
            End If
        Next c2
    End If
Next c
End Sub

@+

 

[Pierrot93]

Re : OptionButton1.Value = True

Re

sinon, autre solution, tu selectionnes sur l'USF tous les optionbutton que tu as listé. Dans l'éditeur vba => fenêtre propriété => tu renseignes la propriété "TAG" par "V". Ensuite tu utilises le code ci dessous :

Dim c As Control
For Each c In Me.Controls
    If TypeOf c Is MSForms.OptionButton Then
        If c.Tag = "V" Then c.Value = True
    End If
Next c

@+

 

[Evelynetfrancois]

Re : OptionButton1.Value = True

BONJOUR Pierrot93
Mais c'est quoi ce tag MERVEILLEUX, je n'avais jamais vu en exécution !!!
Une première !!! (je note)
C est exactement ce que je cherchais
Je l ai mis en fin de procédure, pour remettre tous les OButtons concernés à True , et recommencer ma saisie avec une feuille en ordre

Le but :
A l initialisation j’ai nommé lesOButtons concernés à True directement dans les propriétés, mais une fois la saisie prête :
Je valide .................., les infos vont a leur places respectives,.
et garce à TON vag , mon USF redevient prêt à être saisi de nouveau sans réinitialisation .
Mon USF garde donc certaines valeurs (textboxssss) par ci par là en mémoire
On peut donc saisir à la chaîne.....................
Bref c'est super !!!
Un très grand MERCI à toi .

E et F