Verrouiller un TextBox en fonction de deux boutons

Bonjour tout le monde,

Je souhaiterais verrouiller un TextBox1 en fonction de l'état de mes deux boutons.

J'ai deux boutons :

Bouton1 = oui

Bouton2 = non

Si je coche non, je voudrais que mon TextBox1 soit verrouillé et grisé

Si je coche oui, je voudrais que mon TextBox1 soit déverrouillé et non grisé

Merci d'avance pour votre aide,

Samm

Hello,

À coller dans un module standard, puis y affecter aux boutons.

Sub oui()

    'Si la TextBox est sur la Feuil1
    Feuil1.TextBox1.Enabled = True

    'Si la TextBox est dans un UserForm
    'UserForm1.TextBox1.Enabled = True

End Sub
Sub non()

    Feuil1.TextBox1.Enabled = False

    'UserForm1.TextBox1.Enabled = True

End Sub

Bonjour,

A essayer et à placer dans l'userform (si tu parles de textbox dans une USF bien sûr)

Private Sub CommandButton1_Click() 'Non
'Macro Dan 25/02/13
With TextBox1
    .Enabled = False
    .BackStyle = fmBackStyleTransparent
End With
End Sub

Private Sub CommandButton2_Click() 'Oui
'Macro Dan 25/02/13
With TextBox1
    .Enabled = True
    .BackStyle = fmBackStyleOpaque
End With
End Sub

Amicalement

Merci à vous deux Hulk et Dan d'avoir répondu aussi vite.

Dan le code que tu m'as envoyé correspond exactement à ce que je voulais faire.

Encore merci.

Amicalement,

Samm

@+

Rechercher des sujets similaires à "verrouiller textbox fonction deux boutons"