Case option et VB (pas optionbutton)

[TheYoann]

Bonjour à tous,

Je dois mettre a jour une série de fichiers Excel où des Case d'option figure. Le soucis c'est que je ne sais pas comment les contrôler via une macro pour connaitre leur valeur. Malheureusement, le soucis c'est qu'un gros de case option n'est pas lié à une cellule donc je ne peut pas prendre sa valeur. Alors il y a t-il un moyen de contrôler ces contrôles, quel est leur nom, en sachant que dans la fenêtre où sont affiché les nom définie aux cellules, il y a "Case d'option Numéro". J'ai vu que l'on peut affecter une macro à ces case option mais le nom affecter à la macro ne fonctionne pas en essayant "If CasdOptionNum = true then ". Dernière information, l'enregistreur de macro ne prend pas en compte le clic sur la case d'option.

Ps : Je ne parle pas d'OptionButton, mais bien de case option malheureusement T.T

Donc pour récapituler, peut-on utiliser les case d'option dans une macro si elle ne sont pas liées à une cellule pour le résultat. Et si oui, comment ?

Help me !!! Please 🙂

 

[Pierrot93]

Re : Case option et VB (pas optionbutton)

Bonjour,

Donc pour récapituler, peut-on utiliser les case d'option dans une macro si elle ne sont pas liées à une cellule pour le résultat.

bah oui... click droit dur l'objet => affecter une maco, enfin si j'ai bien compris ton problème, pas sûr...

bon après midi
@+

 

[TheYoann]

Re : Case option et VB (pas optionbutton)

Merci de ta réponse, mais mon soucis c'est de récupérer la valeur.

 

[Pierrot93]

Re : Case option et VB (pas optionbutton)

Re,

regarde ceci :

MsgBox ActiveSheet.Shapes(1).DrawingObject.Value

 

[TheYoann]

Re : Case option et VB (pas optionbutton)

J'ai une erreur d'execution '-2147024809 (80070057)' Oo
"L'index de cette collection est en dehors des limites.

 

[TheYoann]

Re : Case option et VB (pas optionbutton)

Mais je viens d'essayer avec un autre qui lui me revois la valeur 1 ou -4146 . Donc ça fonctionne mais pas sur celle qui n'est pas lié à une cellule. Est-ce que ça viendrait de là ?

 

[Pierrot93]

Re : Case option et VB (pas optionbutton)

Re,

Donc ça fonctionne mais pas sur celle qui n'est pas lié à une cellule. Est-ce que ça viendrait de là ?

je ne pense pas je viens de tester sur un objet non lié à une cellule, et ca fonctionne...

 

[TheYoann]

Re : Case option et VB (pas optionbutton)

Je joint le fichier vierge. Mon problème se situe au niveau de la ligne 39. Je veux savoir si c'est le oui ou le non qui est coché.

Regarde la pièce jointe Fichier.xls

 

[TheYoann]

Re : Case option et VB (pas optionbutton)

Help me please le forum

 

[Pierrot93]

Re : Case option et VB (pas optionbutton)

Re,

euh... je ne vois aucun code dans ton fichier....

 

[TheYoann]

Re : Case option et VB (pas optionbutton)

C'est normal c'est que je recherche la valeur depuis un autre fichier.

 

[TheYoann]

Re : Case option et VB (pas optionbutton)

Mais je viens en faisant une parade 🙂 avec
MsgBox (ActiveSheet.Shapes("Option Button 39").DrawingObject.Value)

Merci de ton aide

 

[Pierrot93]

Re : Case option et VB (pas optionbutton)

Re,

regarde ceci, nom des objets à adapter :

MsgBox Workbooks("NomClasseur.xls").Sheets("NomFeuille").Shapes(1).DrawingObject.Value

 

[TheYoann]

Re : Case option et VB (pas optionbutton)

J'activais ma feuille avant c'est pour ça que ton changement n'implique rien. Mais merci ^^ sans toi j'aurais pas pu faire une recherche par "Shapes"

 

[Pierrot93]

Re : Case option et VB (pas optionbutton)

Re,

ok pas vu post #12, donc ton problème est réglé alors...