[VB.NET] Problème avec un OptionButton dans Excel 2003

Environnement : VB.NET
Office 2003.

Bonjour,

J'ai une application en VBNET qui génère une feuille Excel. Dans cette feuille Excel, j'ai besoin de créer dynamiquement deux radios boutons(optionbutton).
Jusque là, pas de problème :

Code:

---

1 2 3

xlSheet.Shapes.AddFormControl(Excel.XlFormControl.xlOptionButton, x1, y1, xx1, yy1) xlSheet.Shapes.AddFormControl(Excel.XlFormControl.xlOptionButton, x2, y2, xx2, yy2)

---

Je relie ensuite ces deux radio boutons à une cellule Excel et je coche par défaut le radio bouton 1.

Code:

---

1 2 3

xlSheet.Shapes.Item(1).ControlFormat.LinkedCell = "A1" xlSheet.Shapes.Item(1).ControlFormat.Value = 1

---

Mon problème est le suivant : je n'arrive pas à changer le caption de mes radio boutons. Sur la feuille Excel apparaît Case d'option 1 et Case d'option 2. Je ne trouve aucune propriété me permettant de changer ce texte, ce qui est fort embêtant.

Si quelqu'un a une idée, elle est la bienvenue car je commence à tourner en rond.

Merci d'avance.

salut

- mets un point d'arret sur:
xlSheet.Shapes.Item(1).ControlFormat.LinkedCell = "A1"

- execute ton prog et lorsqu'il se met sur "pause" ajoute un espion sur:
xlSheet.Shapes.Item(1).ControlFormat

N'existe-il pas une propriete "caption" ou "text" que tu pourrais modifier ?

Code:

---

1 2 3

Dim MonOpt As Excel.Shape MonOpt = Feuille.Shapes.AddFormControlxlSheet.Shapes.AddFormControl(Excel.XlFormControl.xlOptionButton, x1, y1, xx1, yy1) MonOpt.TextFrame.Characters.Text = "MaLegende"

---

Merci beaucoup de vos réponses.