Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1390 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Comment tester la valeur d'un optionbutton dans une macro Excel VB

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Comment tester la valeur d'un optionbutton dans une macro Excel VB

n°649388
ukaya
Posté le 20-02-2004 à 10:25:26  profilanswer
 

Bonjour,
 
j'aimerai pouvoir tester dans une macro si un boutton radio (optionbutton) est coché ou non.
Je précise que je n'ai pas créé de userform. J'ai directement disposé une série de bouton radio dans une zone de groupe sur ma feuille de calcul.
Je n'arrive pas à trouver la bonne syntaxe...
 
J'ai essayé des trucs du style :
 
  if sheets("Feuil1" ).optionbutton("casdoption5" ).value = true then
     .....
  endif
 
Mais la syntaxe est incorrecte...
 
Si quelqu'un a une idée, elle est la bien venue
 
Merci d'avance.

mood
Publicité
Posté le 20-02-2004 à 10:25:26  profilanswer
 

n°649681
itawa
Posté le 20-02-2004 à 13:04:52  profilanswer
 

Bonjour,
 
Une solution:
 
IF ActiveSheet.OLEObjects("NomDuBoutton" ).Object.Value = true Then....
 
I.

n°660005
ukaya
Posté le 01-03-2004 à 13:23:39  profilanswer
 

Bonjour Itawa merci de ta réponse.
Désolé de ne pas avoir répondu plus tôt, je suis tombé balade.
 
J'ai essayé ta syntaxe mais sans succès. J'obtiens l'erreur "Impossible de lire la propriété OLEObjects de la classe WorkSheet".
 
Si tu as une autre idée...
 
A+

n°660590
itawa
Posté le 02-03-2004 à 08:25:30  profilanswer
 

Bonjour,
 
Tu utilises probablement un option button de la form toolbar et non de la control toolbox (j'ai pas les noms en francais).
 
Dans ton cas je vois trois solutions:
- tu lies ton option box a une cellule et tu fait un test a partir du contenu de cette cellule
- tu utilises cette macro (j'ai pas trouver mieux, et ca me semble etre un peu du bricolage):
 
'<<<La selection semble obligatoire>>>
ActiveSheet.Shapes("Option Button 1" ).Select
 
'<<<-4146 pour une option button non coche, 1 s'il est coche>>>
If Selection.Value = -4146 Then '<<Ton Code
 
- Ce qui me semble etre la meilleure, tu utilises un control activex a partir de la control toolbox, qui te donne beaucoup plus de flexibilite.
 
I.

n°660649
ukaya
Posté le 02-03-2004 à 09:53:57  profilanswer
 

Merci Itawa,
 
J'ai lié mon option box à une cellule. C'est effectivement beaucoup plus simple comme ça.
 
Encore merci
 
A+


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Comment tester la valeur d'un optionbutton dans une macro Excel VB

 

Sujets relatifs
blocage sous vba excelKoment afficher un fichier excel dans le navigateur
Comment recuperer le nom d'un objet (image) selectionne en vba Excel ?[C++]Lire une valeur dans la base de registre
[ VB EXCEL] Comment recup un evenement ?[VBA Excel] Comment incorporer une frame html dans un UserForm ?
Pb VBA/ExcelRecherche Pas à Pas d'1 valeur
Formulaire:valeur affecée par défaut..Excel et VB6
Plus de sujets relatifs à : Comment tester la valeur d'un optionbutton dans une macro Excel VB


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR