Discussion :

[zandru]

Bonjour,

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

voici le code que j'utilise :

Code :

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

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"

un peu d'aide svp

[fring]

Bonjour,

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

Code :

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

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

[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.

[zandru]

merci , ça marche