optionbutton dans un frame

Version imprimable

Bonjour,

je souhaite faire un traitement sur tout les optionbuttons d'un frame.

voici le code que j'utilise :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
With faccreation
    Dim ob As OptionButton
    For Each ob In .Frame4
        If ob.Value = True Then
            Select Case ob.Index
                Case 0
                traitement...
                Case 1
                traitement...
                Case n...
                traitement...
            End Select
            .echmois.Caption = Month(datetmp)
            .echannnée.Caption = Year(datetmp)
        End If
    Next
End With

j'ai le message d'erreur n°438 suivant : "propriété ou méthode non gérée par cet objet" sur la ligne "For Each ob In .Frame4" :aie:

un peu d'aide svp

Bonjour,

Si tu n'as pas d'autres type de contrôle que des OptionButton dans la Frame, tu peux essayer comme ceci :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
With faccreation
    Dim ob As Control
    For Each ob In .Frame4.Controls
        If ob.Object.Value = True Then
            Select Case ob.Object.Index
                Case 0
                traitement...
                Case 1
                traitement...
                Case n...
                traitement...
            End Select
            .echmois.Caption = Month(datetmp)
            .echannnée.Caption = Year(datetmp)
            Exit For '<-- une fois le bouton d'option trouvé on peu stopper la boucle
        End If
    Next
End With

22/08/2008, 14h59
ucfoutu

Bonjour, (et salut, Fring)

et si tu en as d'autrres, la méthode de Fring reste valable, en ajoutant simplement une expression conditionnelle utilisant TypeName pour ne traiter que les boutons d'option.
22/08/2008, 15h00
zandru

merci , ça marche:king: