Agir sur un Bouton d'Option

[Magic_Doctor]

Bonjour à tous,

J'ai placé sur ma feuille un Bouton d'Option (enfin je pense qu'en français ça s'appelle ainsi), ce petit cercle blanc dans lequel s'affiche un petit point noir quand on clique dessus.

Je voudrais, quand le cercle est vide que le point apparaisse quand je clique dessus, mais que ce point disparaisse quand je reclique dessus, et qu'il réapparaisse si je "rereclique" dessus et ainsi de suite suivant cette logique somme toutes simple.

J'ai bien essayé avec la macro suivante :

If ActiveSheet.Shapes("Bouton Pourcents Obtenus").Value = xlOff Then
ActiveSheet.Shapes("Bouton Pourcents Obtenus").Value = xlOn
Else
ActiveSheet.Shapes("Bouton Pourcents Obtenus").Value = xlOff
End If

Echec lamentable !!

Il y aurait-il un moyen d'y parvenir ????

Merci pour le tuyau, si tuyau il y a...

 

[wilfried_42]

Re : Agir sur un Bouton d'Option

Bonjour MagicDoctor

il faut en premier lieu savoir ou tu as pris ce control : dans la boite de controle ? ou dans le menu formulaire ?

 

[phlaurent55]

Re : Agir sur un Bouton d'Option

Salut Magic

Bonjour à tous,

J'ai placé sur ma feuille un Bouton d'Option ...

le problème ne viendrait'il pas du fait qu'il n'y ait qu'un bouton option ?
Mets-en un deuxième ...................ça s'arrangera

Le bouton option ne réagit pas comme un case à cocher !

 

[Magic_Doctor]

Re : Agir sur un Bouton d'Option

Effectivement, j'y avais pensé mais naïvement je croyais qu'il était possible d'y parvenir plus élégamment... Décidément, qu'on le veuille ou non, Excel manque singulièrement de souplesse !!

Pour ceux que ça intéresse :
Créer 2 Boutons d'Option ("Bouton Pourcents Obtenus1" & "Bouton Pourcents Obtenus2"), puis rajouter dans un module standard les 2 routines suivantes, et enfin attribuer au "Bouton Pourcents Obtenus1" la macro "VoirBoutonPourcentsObtenus2" et au "Bouton Pourcents Obtenus2" la macro "VoirBoutonPourcentsObtenus1" :

Sub VoirBoutonPourcentsObtenus1()

Application.ScreenUpdating = False

ActiveSheet.Shapes("Bouton Pourcents Obtenus2").Visible = False
ActiveSheet.Shapes("Bouton Pourcents Obtenus1").Visible = True

[CSR3].Select 'afin que le bouton ne soit plus sélectionné en fin de procédure
Application.ScreenUpdating = True
End Sub
-----------------------------------------------------------
Sub VoirBoutonPourcentsObtenus2()

Application.ScreenUpdating = False

ActiveSheet.Shapes("Bouton Pourcents Obtenus1").Visible = False

ActiveSheet.Shapes("Bouton Pourcents Obtenus2").Visible = True
'par défaut, quand le bouton apparaît il est vierge
ActiveSheet.Shapes("Bouton Pourcents Obtenus2").Select
With Selection
.Value = xlOn
End With

[CSR3].Select 'afin que le bouton ne soit plus sélectionné en fin de procédure
Application.ScreenUpdating = True
End Sub

 

[Magic_Doctor]

Re : Agir sur un Bouton d'Option

Ah oui, j'oubliais :

SUPERPOSER LES 2 BOUTONS !!!!!!!!!!!!!!!!!!!!!!!!

 

[wilfried_42]

Re : Agir sur un Bouton d'Option

re:

Je ne comprends pas trop, à premiere vue, tu utilises de cases option de type fomulaire
Voici un exemple avec 4 boutons option, il sont tous liés à la case A1 (Format de controle), il ne se chevauchent pas mais je les ai mis sur une meme shape,

Quand on choisit une option, on peut voir a1 prendre une valeur de 1 à 4 then fonction de la case option choisie

Il suffit alors de faire Suppr, dans A1 pour remettre à zero les case option

Fichier joint pour exemple (garanti sans macro)

 

[Magic_Doctor]

Re : Agir sur un Bouton d'Option

Bonsoir Wilfried 42,

Je réponds avec un peu de retard, car, latitude aidand, j'étais à la plage, ou plutôt dans l'estuaire (et quel estuaire, plus de 400 km de large...)

Bref, pour des raisons de look, voilà ce que je voulais obtenir.
Voir le fichier ci-joint, il suffit de cliquer et recliquer ad vitam aeternam pour comprendre.

Bonsoir à tous.

 

[Magic_Doctor]

Re : Agir sur un Bouton d'Option

Petit rectificatif pour des raisons d'incompatibilité entre Excel 2007 (ma version) et les autres.

Dans les macros, remplacer [CSR3].Select par, par exemple, [A1].Select