Probleme pour cocher un bouton radioRésolu

Question

Je crois que mon message est pas bien passé, je la refais en couleur 
En tout cas j'aime bien ta réponse Thierry la fronde 

je cherche a selectionner un bouton radio contenue dans une feuille excel  mais pas déterminer. Je m'explique : j'ai une serie de bouton radio, tous invisibles. lorsque j'appui sur un bouton de cette feuille, je souhaite rendre visible le premier bouton invisible et l'activer ( le cocher ). le probleme est que je n'arrive pas à le cocher ...

Voici le code :

Dim forme As Object, ws As Object

For Each ws In Worksheets
   For Each forme In ws.Shapes
        'Je regarde si le shape est un bouton radio
      If Left(forme.Name, 12) = "OptionButton" Then
         If forme.Visible = False Then
            forme.Visible = True
           str = forme.Name
            ' forme.value=true ne fonctionne pas
               Exit For
            End If
        End If
    Next forme

J'ai eplucher le forum mais j'ai rien trouvé 

Merci d'avance de vos réponses,

y'a pas de probleme, y'a que des solutions !

jrivet · Accepted Answer

Salut,

Regarde ceci. (surtout ce qui est plus gros car sinon le code ne fonctionne pas)

Si tu as ajouté les optionButtons depuis la barre d'outils Formulaire fait le nous savoir. Mais vu que tu utilises La collection Shapes, je pense que c'est le cas.

Dim Forme As OLEObject
Dim ws As Worksheet

'Testé sur une seule feuille
Set ws = Sheets("Feuil1")

'Option Button ajoutés à la feuille
'depuis la boite à outils Controles
'Affichage => Barre D'outils => Boite à outils Controles
   For Each Forme In ws.OLEObjects
       'Je regarde si le shape est un bouton radio
       'If Left(forme.Name, 12) = "OptionButton" : ET SI JE VEUX APPELER UN
       'TEXTBOX OptionButton14???????
       If TypeOf Forme.Object Is MSForms.OptionButton Then
           If Not Forme.Visible Then
               Forme.Visible = True
               Forme.Object.Value = True
               Exit For
           End If
       End If
   Next Forme, ----
[../code.aspx?ID=41455 By Renfield]

@+: Ju£i€n
Pensez: Réponse acceptée

68manu · Answer

SAlut,


 


utilise la propriete .Locked des radiobutton, ca devrait le faire


OptionButton.locked=true

A+

_____________________
No problems, only soluces

cs_thierry la fronde · Answer

re

ce ne serait pas plutôt quelque chose du genre :
forme.Checked=true ?

thierry la fronde

68manu · Answer

Autant pour moi, comme son code utilise Worksheets, j'ai pense qu'il faisait du VBA 
.checked sur vb.net,
A lui de voir, de toutes facons, c'est l'un ou l'autre !

_____________________
No problems, only soluces

68manu · Answer

Ceci dit, apres relecture...
OptionButton c'est du VBA, non ???
donc .locked a priori

_____________________
No problems, only soluces

raph35410 · Answer

Je vais vérifier ca demain, je vous tiens au courant.

En tout cas merci beaucoup  bonne soirée !

y'a pas de probleme, y'a que des solutions !

raph35410 · Answer

y'a pas de probleme, y'a que des solutions !

raph35410 · Answer

y'a pas de probleme, y'a que des solutions !

raph35410 · Answer

C'est exactement ca, j'ai créer mes optrion button depuis la barre d'outils.
J'ai essayé chacune de vos solutions et celle qui fonctionne est la dernière de jrivet.

Quoiqu'il en soit merci à tous de votre aide, ca faisait quelques heures que je me torturais les méninges avec ca et ca fais du bien de trouvé !!  

y'a pas de probleme, y'a que des solutions !

Probleme pour cocher un bouton radio

9 réponses

Votre réponse

Discussions similaires