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;