Bouton d'option sur feuille

[mécano41]

Bonjour à tous,

Dans le fichier joint, je ne comprends pas pourquoi lorsque je lance une mise en position d'un bouton d'option (placé directement sur une feuille) par le sub Essai1 qui est dans la feuille cela fonctionne alors que par le sub Essai2 placé dans un module j'ai une erreur ; j'ai pourtant bien défini où est la puce...

ça doit être gros comme une maison mais je ne vois pas...

Merci d'avance

Cordialement

 

[gilbert_RGI]

Re : Bouton d'option sur feuille

bonjour

comme ceci

Sub essai2()
Dim F5 As Worksheet
Set F5 = Worksheets(JGSor1.Name)
With F5
.Range("G12").Value = "Essai d'écriture"
.OLEObjects("OptionPourcent").Object.Value = False
End With
End Sub

 

[mécano41]

Re : Bouton d'option sur feuille

Bonsoir Gilbert_RGI,

C'est parfait. Merci beaucoup

Cordialement