Discussion :

[Le_MaLaDe]

Bonjour,
j'aimerais manipuler des boutons radio créés dans une feuille mais de type formulaire et non pas ActiveX. C'est-à-dire que j'ai une valeur dans une case, et j'aimerais que tel bouton radio ou autre se coche suivant la valeur de la case.
Ceci est dans le but de pouvoir interagir avec le DOM PHP mes fichiers excel en automatisant une saisie.
J'ai fait des tentatives avec des macros mais en vain, je n'arrive pas à manipuler un bouton radio type formulaire, alors qu'ActiveX fonctionne très bien.
Je pense que ce n'est pas possible mais sait-on jamais, je n'ai peut-être pas tout exploré.
Merci.

[Philippe Tulliez]

Bonsoir,
Avec une macro, tu peux le faire, en modifiant la valeur de la cellule liée mais j'imagine que tu voudrais le faire sans macro.
Avec une fonction (SI par exemple), tu pourrais aussi en plaçant cellule-ci sur la cellule liée mais alors tu ne pourrais plus faire une sélection sur le bouton radio car tu écraserais la fonction et là, je ne vois plus l'intérêt d'utiliser un formulaire.

[Le_MaLaDe]

Merci pour ta réponse.
Il est vrai que je n'avais pas précisé, mais mon souci et que je n'ai pas la main sur ce bouton radio et je ne peux donc pas le lier à une cellule. J'aurais voulu le faire en le manipulant directement avec une macro sans passer par "cellule liée".

[Philippe Tulliez]

Bonjour,
Ici un code un peu cochon mais qui fonctionne. Je n'ai pas réussi sans passer par le Select et je n'ai pas vraiment le temps de chercher plus loin aujourd'hui. Option Button 8 est à adapter bien sûr

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Sub ManipButton()
    ActiveSheet.Shapes("Option Button 8").Select
    With Selection
    .Value = xlOn
    .LinkedCell = ""
    .Display3DShading = False
    End With
    Range("A1").Select
End Sub

[Theze]

Bonsoir,

Et avec ceci ?

Code :

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

1
2
3
 
'adapter le nom "MonBoutonOption", 1=coché, 0=décoché
 ActiveSheet.Shapes("MonBoutonOption").ControlFormat.Value = 0

Hervé.

[Le_MaLaDe]

Merci Hervé et corona, j'arrive maintenant à manipuler mes Option Button depuis une macro, mais je ne peux pas manipuler ceux dans un groupe.

Le code

Code :

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

1
2
3
4
5
For Each ss In Sheets("Feuil1").Shapes(4).GroupItems
    MsgBox "Nom de " & i & " = " & ss.ControlFormat.Value, vbOKOnly
    'ss.ControlFormat.Value = 1
    i = i + 1
Next

me met "Impossible de lire la propriété Value de la classe OptionButton" alors que ça fonctionne bien pour les autres items qui ne sont pas dans un groupe items, j'ai essayé en les attaquant de différentes manières

Code :

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

ss.OLEFormat.Object.ControlFormat.Value

ou

Code :

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

Sheets("Feuil1").GroupObjects("Option Button 1").ShapeRange.GroupItems("Group 1").ControlFormat.Value

mais la valeur n'est toujours pas accessible...