Discussion :

[Dirtech]

Bonjour à tous, j,ai une liste de OptionButton à remettre à false avec une boucle For...next oupar un autre code, je nY arrive pas.

Voici une partie de mon code. Ma liste comportera environ 600 boutons à remettre à false.

OptionButton1.Value = False
OptionButton2.Value = False
OptionButton3.Value = False
OptionButton4.Value = False
OptionButton5.Value = False
OptionButton6.Value = False
OptionButton7.Value = False
OptionButton8.Value = False
OptionButton9.Value = False
OptionButton10.Value = False
OptionButton11.Value = False
OptionButton12.Value = False
OptionButton13.Value = False
OptionButton14.Value = False
OptionButton15.Value = False
OptionButton16.Value = False

Merci de votre aide

[Invité]

Bonjour,

Dans la discussion Listes-deroulantes-cascades-sous-word-2010-a, vous pourriez vous servir du code présent dans la procédure Document_Open() sachant qu'il vous faudrait tester les objets du type "Forms.OptionButton.1" et le modifier pour avoir :

Code :

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

 ControleEnCours.OLEFormat.Object.Value = False

[Dirtech]

J'ai créé un bouton dans mon fichier Word qui lance la procédure au besoin et non à l'ouverture de mon fichier.

J'ai déja essayé de la façon suivante et ça ne fonctionne pas.

Dim i as integer

For i = 1 to 15
OptionButton(i).value = false
Next i

Voici ma procédure au complet

Private Sub CommandButton2_Click()
' Effacer les sélections


OptionButton1.Value = False
OptionButton2.Value = False
OptionButton3.Value = False
OptionButton4.Value = False
OptionButton5.Value = False
OptionButton6.Value = False
OptionButton7.Value = False
OptionButton8.Value = False
OptionButton9.Value = False
OptionButton10.Value = False
OptionButton11.Value = False
OptionButton12.Value = False
OptionButton13.Value = False
OptionButton14.Value = False
OptionButton15.Value = False

End Sub

[Invité]

J'ai créé un bouton dans mon fichier Word qui lance la procédure au besoin et non à l'ouverture de mon fichier.

Ce qui compte c'est le code à l'intérieur de la procédure Document_Open(). Vous pouvez l'utiliser dans votre procédure.
En revanche, parmi tous ces contrôles aucun d'entre eux ne sont liés par un GroupeName ?

[Dirtech]

Merci beaucoup Eric, j'avais créé des groupes, mais avec ton explication, je crois que je pourrai enfin finaliser mon fichier.

[Invité]

Merci beaucoup Eric, j'avais créé des groupes, mais avec ton explication, je crois que je pourrai enfin finaliser mon fichier.

Bonjour,

Dans mon précédent message, je vous avais posé une question sur les associations possibles des OptionButton via la propriété GroupeName. Cette propriété permet de n'avoir qu'un seul des contrôles sélectionné parmi ceux du groupement. Avec ce code correspondant à celui de ma procédure Document_Open() :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Option Explicit
 
Sub RemettreAFalseLesOptionButton()
Dim ControleEnCours As InlineShape
    For Each ControleEnCours In ActiveDocument.InlineShapes
        If ControleEnCours.Type = wdInlineShapeOLEControlObject Then
            If ControleEnCours.OLEFormat.ClassType = "Forms.OptionButton.1" Then
               ControleEnCours.OLEFormat.Object.Value = False
            End If
        End If
    Next
End Sub

Les valeurs True par défaut n'existeront plus. La solution n'est donc peut-être pas celle là.