Discussion :

[MarcelG]

Bonjour le Forum,

Je souhaite modifier l'apparence des seuls boutons d'Option d'une feuille Excel.

Plutôt que de balayer tous les noms de mes "Shapes", je préfère tester leur type.

Or, si j'effectue le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Public Sub essai3()
 Dim sh As Shape
 For Each sh In Sheets("Accueil").Shapes
        With sh
                'If .Name <> "Btn_Texte_Libre" And .Name <> "Picture 1" And .Name <> "Group Box 3" Then
                        Debug.Print .Name & "  " & .Type
                        '.OLEFormat.Object.Object.BackColor = &HC00000
               'End If
        End With
Next sh
 
End Sub

alors ma fenêtre exécution me renvoie des numéros (8,12,13).

Picture 1 13

Btn_Texte_Libre 12

Group Box 3 8

Je m'attendais plutôt à des propriétés du type mso...

Y a-t-il une table de correspondance? Autrement dit, à quoi correspondent ces numéros?

J'ai peut-être mal cherché mais l'aide en ligne, comme la toile, ne semblent pas très explicites.

Par avance, je vous remercie;

[cb_60]

Bonjour,
Je sais pas si c'est cela que tu recherche:

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
msoShapeRectangle		1
msoShapeParallelogram		2
msoShapeTrapezoid		3
msoShapeDiamond		4
msoShapeRoundedRectangle		5
msoShapeOctagon		6
msoShapeIsoscelesTriangle		7
msoShapeRightTriangle		8
msoShapeOval		9
msoShapeHexagon		10
msoShapeCross		11
msoShapeRegularPentagon		12
msoShapeCan		13
msoShapeCube		14
msoShapeBevel		15
msoShapeFoldedCorner		16
msoShapeSmileyFace		17
msoShapeDonut		18
msoShapeNoSymbol		19
msoShapeBlockArc		20
msoShapeHeart		21
msoShapeLightningBolt		22
msoShapeSun		23
msoShapeMoon		24
msoShapeArc		25
msoShapeDoubleBracket		26
msoShapeDoubleBrace		27
msoShapePlaque		28
msoShapeLeftBracket		29
msoShapeRightBracket		30
msoShapeLeftBrace		31
msoShapeRightBrace		32
msoShapeRightArrow		33
msoShapeLeftArrow		34
msoShapeUpArrow		35
msoShapeDownArrow		36
msoShapeLeftRightArrow		37
msoShapeUpDownArrow		38
msoShapeQuadArrow		39
msoShapeLeftRightUpArrow		40
msoShapeBentArrow		41
msoShapeUTurnArrow		42
msoShapeLeftUpArrow		43
msoShapeBentUpArrow		44
msoShapeCurvedRightArrow		45
msoShapeCurvedLeftArrow		46
msoShapeCurvedUpArrow		47
msoShapeCurvedDownArrow		48
msoShapeStripedRightArrow		49
msoShapeNotchedRightArrow		50
msoShapePentagon		51
msoShapeChevron		52
msoShapeRightArrowCallout		53
msoShapeLeftArrowCallout		54
msoShapeUpArrowCallout		55
msoShapeDownArrowCallout		56
msoShapeLeftRightArrowCallout		57
msoShapeUpDownArrowCallout		58
msoShapeQuadArrowCallout		59
msoShapeCircularArrow		60
msoShapeFlowchartProcess		61
msoShapeFlowchartAlternateProcess		62
msoShapeFlowchartDecision		63
msoShapeFlowchartData		64
msoShapeFlowchartPredefinedProcess		65
msoShapeFlowchartInternalStorage		66
msoShapeFlowchartDocument		67
msoShapeFlowchartMultidocument		68
msoShapeFlowchartTerminator		69
msoShapeFlowchartPreparation		70
msoShapeFlowchartManualInput		71
msoShapeFlowchartManualOperation		72
msoShapeFlowchartConnector		73
msoShapeFlowchartOffpageConnector		74
msoShapeFlowchartCard		75
msoShapeFlowchartPunchedTape		76
msoShapeFlowchartSummingJunction		77
msoShapeFlowchartOr		78
msoShapeFlowchartCollate		79
msoShapeFlowchartSort		80
msoShapeFlowchartExtract		81
msoShapeFlowchartMerge		82
msoShapeFlowchartStoredData		83
msoShapeFlowchartDelay		84
msoShapeFlowchartSequentialAccessStorage		85
msoShapeFlowchartMagneticDisk		86
msoShapeFlowchartDirectAccessStorage		87
msoShapeFlowchartDisplay		88
msoShapeExplosion1		89
msoShapeExplosion2		90
msoShape4pointStar		91
msoShape5pointStar		92
msoShape8pointStar		93
msoShape16pointStar		94
msoShape24pointStar		95
msoShape32pointStar		96
msoShapeUpRibbon		97
msoShapeDownRibbon		98
msoShapeCurvedUpRibbon		99
msoShapeCurvedDownRibbon		100
msoShapeVerticalScroll		101
msoShapeHorizontalScroll		102
msoShapeWave		103
msoShapeDoubleWave		104
msoShapeRectangularCallout		105
msoShapeRoundedRectangularCallout		106
msoShapeOvalCallout		107
msoShapeCloudCallout		108
msoShapeLineCallout1		109
msoShapeLineCallout2		110
msoShapeLineCallout3		111
msoShapeLineCallout4		112
msoShapeLineCallout1AccentBar		113
msoShapeLineCallout2AccentBar		114
msoShapeLineCallout3AccentBar		115
msoShapeLineCallout4AccentBar		116
msoShapeLineCallout1NoBorder		117
msoShapeLineCallout2NoBorder		118
msoShapeLineCallout3NoBorder		119
msoShapeLineCallout4NoBorder		120
msoShapeLineCallout1BorderandAccentBar		121
msoShapeLineCallout2BorderandAccentBar		122
msoShapeLineCallout3BorderandAccentBar		123
msoShapeLineCallout4BorderandAccentBar		124
msoShapeActionButtonCustom		125
msoShapeActionButtonHome		126
msoShapeActionButtonHelp		127
msoShapeActionButtonInformation		128
msoShapeActionButtonBackorPrevious		129
msoShapeActionButtonForwardorNext		130
msoShapeActionButtonBeginning		131
msoShapeActionButtonEnd		132
msoShapeActionButtonReturn		133
msoShapeActionButtonDocument		134
msoShapeActionButtonSound		135
msoShapeActionButtonMovie		136
msoShapeBalloon		137

[MarcelG]

Bonjour ch_60,

Merci pour ta réponse.

Les boutons d'Option ont cette propriété

Code :

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

.Type

12

msoShapeRegularPentagon 12

Je ne vois pas à quoi correspond "RegularPentagon"

D'autre part, cette propriété désigne également les boutons macros.

La propriété

Code :

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

.Type

n e correspond donc pas à ce que je recherche.

Ma question alors : Quelle propriété dois-je utiliser avec quelle occurence, ou mieux la liste des cas possibles, pour désigner les seuls boutons d'option. Mes recherches, peut-être ma effectuées, n'ont donné aucun résultat.

Merci par avance.

[fring]

Bonjour,

Ceci pourrait peut-être t'intéresser
http://excel.developpez.com/faq/?pag...oucleOleObject

[Invité]

Bonjour à tous

En complément du lien de mon ami Fring

Comment retrouver le nom d'une constante par sa valeur ?

Philippe

[MarcelG]

Bonjour Fring, Philippe et Bonjour le Forum,

Grâce à vos indications, j'ai trouvé

Code :

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

If TypeOf Obj.Object Is MSForms.OptionButton

Merci.

Comme pourrait dire Fring, le bruxellois, cela vaut une bière!