Aire pour OptionButton et Textbox

[Pat]

Bonjour à tous,
Voilà mon problème, j'ai dans un UserForm 2 OptionButton et 3 Textbox, je voudrais 'lier' les OpB aux TxtBox.
Si l' OpB 1 est coché cela doit donner l'accés a la textbox 1 et grise (interdit l'entrée de données) les textbox 2 et 3
Si l'OpB 2 est coché cela donne l'accés aux textbox 2 et 3 et grise la textbox 1.
Quelqu'un peut il m'aider ???
Merci d'avance et bonne journée.

 

[_Thierry]

Bonjour Pat, le Forum

Ah oui c'est un Excellent Exercice pour s'entrainer sur des Contrôles Actives et les Boolean...

Voici une Appriche assez simple en fait sur 2 OptionButtons... (Sur Trois, ce deviendrait plus hardu)

Private Sub UserForm_Initialize()
Me.OptionButton1 = True
End Sub

Private Sub OptionButton1_Click()
    TheLocker
End Sub

Private Sub OptionButton2_Click()
    TheLocker
End Sub

Private Sub TheLocker()
    With Me
        .TextBox1.Enabled = .OptionButton1
        .TextBox2.Enabled = Not .OptionButton1
        .TextBox3.Enabled = Not .OptionButton1
    End With
End Sub

Bonnes Fêtes de Noël
[ol]@+Thierry[/ol]

 

[PascalXLD]

Bonjour

cela devrait donner à peu près cela

Private Sub OptionButton1_Change()

If Me.OptionButton1 = True Then
Me.TextBox1.Enabled = True
Me.TextBox2.Enabled = False
Me.TextBox3.Enabled = False

Else
Me.TextBox1.Enabled = False
Me.TextBox2.Enabled = True
Me.TextBox3.Enabled = True

End If
End Sub

Bon courage

 

[PascalXLD]

Re

Oups désolé Thierry je ne t'ais pas vu malgré tes bouclettes

En effet commet u dis avec 2 OptionButton ça va encore après et bien on s'amuse comme des petits fous

Bonne journée à toi

 

[_Thierry]

re Bonjour Pascal (on s'est déjà croisé dans le fil des WorkSheets.Count)

J'interviens mon Cher Pascal d'abord pour te souhaiter un très bon Noël pour toi et tes proches, et aussi pour te dire que sur ce coup tu es passé à coté de l'usage de ces Contrôles directement en renvoyant leur valeur Boolean respective, c'est 'Hachement' plus rapidos comme ça ;-)

Bon Natale
[ol]@+Thierry[/ol]

 

[PascalXLD]

Re

pour le croisement sur l'autre fil j'avais bien vu d'où d'ailleurs ma référence à tes bouclettes dans mon post (pour ceux qui liront ces lignes il faudra faire des recherches pour comprendre)

Sinon Oui oui j'ai vu ça quand j'ai regardé ton code

En plus ça fait 'Hachement' plus joli

salut

Message édité par: Pascal76, à: 23/12/2005 08:54

 

[Pat]

Bonjour à vous et surtout merci pour vos réponses
je vais de ce pas , essayer vos codes et vous au courant
@+

 

[Pat]

Resalut,
Désolé mais çà fonctionne à moitié:
Si je choisis l'OPB 1 je peux rentrer une valeur dans la textbox 1 (çà c'est OK).Par contre je n'arrive plus à sélectionner l'OPB 2 et donc effacer la valeur dans Textbox 1 (au cas ou je me trompe)
Ou çà bloque ???

 

[Pat]

Problème résolu,
çà fonctionne , j'avais une erreur de syntaxe
Merci à vous et joyeuses fêtes