If Textbox = "ON" then smthg

Bonjour à tous,

Sur ma feuille active lorsque j'active mon bouton à bascule cela me donne un résultat ON/OFF. Avec ce résultat j'aimerai que :

- si "ON" alors dans la feuil2 cellule J31 = 2%

- si "OFF" rien

je teste donc ceci dans l'activesheet (mais je pourrais mettre le code dans un autre module sans soucis, enfin je crois !) :

Sub test()
With ActiveSheet
If .Shapes("Toggle_Textbox_1").Text = "ON" Then '"Toggle_Textbox_1" étant le petit nom de ma textbox
Sheets("Feuil2").Range("J31") = 0.02
End If
End With
End Sub

mais j'ai une erreur : erreur d'éxécution 438

une dernière idée?

^^

m

e

r

c

i

Bonsoir,

pourquoi faire un test sur le bouton, autant coder sur l'action du bouton en lui même, non ?
Comme cela à chaque changement d'état du bouton la valeur de la cellule se trouvera changée.

@ bientôt

LouReeD

Bonjour lolopixx, LouReed, le forum,

Un essai....en suivant les conseils de LouReed...

Private Sub ToggleButton1_Click()
 With ToggleButton1
  If .Value = True Then
   .Caption = "ON": Sheets("Feuil2").Range("J31") = 0.02
   .BackColor = vbGreen: .Font.Bold = True
  Else
   .Caption = "OFF": Sheets("Feuil2").Range("J31") = ""
   .BackColor = vbRed: .Font.Bold = True
  End If
 End With
End Sub

Cordialement,

Merci LouReeD et xorsankukai !

Merci pour cette solution!! :D

Grâce à vous deux, j'ai juste mis :

 Sheets("Feuil2").Range("J31") = 0.02

et

 Sheets("Feuil2").Range("J31") = 0

en fonction de "ON" et "OFF" directement dans mon code de départ :)

grand merci encore, même si cela à l'air simple ça ne l'était pas pour moi