Discussion :

[alfprod]

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 :

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

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 :

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

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.

[Piotrek]

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 ?

[bidou]

Code :

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

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"

[alfprod]

Merci beaucoup de vos réponses.