Discussion :

[Figatelix]

Bonjour,

Ma question à deux anciens francs : comment, si cela est possible, conditionner le formatage de l'étiquette d'un bouton radio à son statut.
Par exemple, texte barré si le bouton est décoché et inversement.

Cordialement.

[jurassic pork]

hello,
voici une réponse à deux balles (pas de tennis): un exemple de ce que l'on peut faire :

l'exemple consiste à dans une feuille excel qui contient des boutons radio membres du groupe gr1 à changer l'aspect du label des boutons radios en connectant l'événement statut de l'élément modifié de chaque bouton radio à la macro suivante :

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
19
20
21
22
23
24
25
26
27
28
Sub Modifier_boutons()
Dim monDoc As Object
Dim maSheet As Object
Dim monDrawPage As Object
Dim maForm As Object
Dim MesBoutonsRadio()
 
monDoc = ThisComponent
maSheet = monDoc.Sheets.GetByIndex(0)
maDrawPage = maSheet.DrawPage
maForm = maDrawPage.Forms.GetByIndex(0)
maForm.getGroupByName("gr1",MesBoutonsRadio())
'Specify character strikeout using the com.sun.star.awt.FontStrikeout constant group:
'NONE = 0  – Do not strike out characters.
'SINGLE = 1 – Strike out the characters with a single line.
'DOUBLE = 2 – Strike out the characters with a double line.
'DONTKNOW = 3 – The strikeout mode is not specified.
'BOLD = 4 – Strike out the characters with a bold line.
'SLASH = 5 – Strike out the characters with slashes.
for each BoutonRadioEnCours in MesBoutonsRadio()                   
   if BoutonRadioEnCours.state = 1 then
      BoutonRadioEnCours.FontStrikeOut = 0
   else 
      BoutonRadioEnCours.FontStrikeOut = 1
   end if
 
next   
End Sub

Dans la macro on balaie tous les boutons radio du groupe gr1 , et suivant leur état on barre ou pas le texte du label.

Ami calmant, J.P

[Figatelix]

Quelles rapidité et qualité de réponse.

Question postée à 21h19 ; A peine ai-je eu le temps de flâner sur le forum et de constater la fréquence et la pertinence des tes réponses que tu me proposes une solution à mon problème : chapeau !

Bon ça m'oblige à recréer mon doc dans Calc plutôt que dans Writer (à moins que tu ais une solution pour les traitements de texte)

Encore merci

[jurassic pork]

Pour que cela fonctionne sous writer, ce n'est pas très compliqué, il suffit d'enlever la couche de la feuille :

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
19
20
21
22
23
24
25
26
Sub Modifier_boutons()
Dim monDoc As Object
Dim monDrawPage As Object
Dim maForm As Object
Dim MesBoutonsRadio()
 
monDoc = ThisComponent
maDrawPage = mondoc.DrawPage
maForm = maDrawPage.Forms.GetByIndex(0)
maForm.getGroupByName("gr1",MesBoutonsRadio())
'Specify character strikeout using the com.sun.star.awt.FontStrikeout constant group:
'NONE = 0  – Do not strike out characters.
'SINGLE = 1 – Strike out the characters with a single line.
'DOUBLE = 2 – Strike out the characters with a double line.
'DONTKNOW = 3 – The strikeout mode is not specified.
'BOLD = 4 – Strike out the characters with a bold line.
'SLASH = 5 – Strike out the characters with slashes.
for each BoutonRadioEnCours in MesBoutonsRadio()                   
   if BoutonRadioEnCours.state = 1 then
      BoutonRadioEnCours.FontStrikeOut = 0
   else 
      BoutonRadioEnCours.FontStrikeOut = 1
   end if
 
next   
End Sub

[Figatelix]

Merci pour la solution.