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.
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.
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 :
Dans la macro on balaie tous les boutons radio du groupe gr1 , et suivant leur état on barre ou pas le texte du label.
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
Ami calmant, J.P
Jurassic computer : Sinclair ZX81 - Zilog Z80A à 3,25 MHz - RAM 1 Ko - ROM 8 Ko
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
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
Jurassic computer : Sinclair ZX81 - Zilog Z80A à 3,25 MHz - RAM 1 Ko - ROM 8 Ko
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager