Verrouiller et griser les textbox

Question

Bonjour a tous,
nouvel inscrit et deja a la recherche d infos...
je suis debutant en vba et tresorier d un club sportif, j ai commence un formulaire dans lequel j ai mis un frame avec 4 boutonoption, ( cheque,  prelevement, virement, especes )je souhaiterai qu en fonction du cochage dune des cases, un textbox soit valide et que les 3 autres soient verrouillees et grisees. ci joint le debut de mon code
Merci de votre aide
Cordialement

Private Sub Frame_Nature_Click()
    If BTN_Cheque.Value = True Then 'instructuion si l option est activee
        TXT_ChequeN°.Enabled = True
        TXT_Prelevement.Enabled = False
        TXT_Virement.Enabled = False
        TXT_Especes.Enabled = False
        
        
    ElseIf BTN_Prelevement.Value = True Then 'instructuion si l option est activee
        TXT_Prelevement.Enabled = True
        TXT_ChequeN°.Enabled = False
        TXT_Virement.Enabled = False
        TXT_Especes.Enabled = False
        
        
    ElseIf BTN_Virement.Value = True Then 'instructuion si l option est activee
        TXT_Virement.Enabled = True
        TXT_ChequeN°.Enabled = False
        TXT_Prelevement.Enabled = False
        TXT_Especes.Enabled = False
        
        
    ElseIf BTN_Especes.Value = True Then 'instructuion si l option est activee
        TXT_Especes.Enabled = True
        TXT_ChequeN°.Enabled = False
        TXT_Prelevement.Enabled = False
        TXT_Virement.Enabled = False
                         
                         End If
End Sub

cs_Exploreur · Answer

Salut,

Je ne comprend pas pourquoi tu mets ton évènement dans l'evenement de Frame_Click...??

Utilise l'évènement Click des Options_Button...

A+
Exploreur

 Linux a un noyau, Windows un pépin 

Un jeu en flash sympa...? Voir ici
Si vous voulez vous inscrire
mettez c

jrivet · Answer

Salut, Ce qui donne en simplifiant. Option Explicit Private Sub BTN_Cheque_Click() Call DisableControls End Sub

Private Sub BTN_Especes_Click() Call DisableControls End Sub

Private Sub BTN_Prelevement_Click() Call DisableControls End Sub

Private Sub BTN_Virement_Click() Call DisableControls End Sub

Private Sub DisableControls() TXT_ChequeN°.Enabled = BTN_Cheque.Value TXT_Prelevement.Enabled = BTN_Prelevement.Value TXT_Virement.Enabled = BTN_Virement.Value TXT_Especes.Enabled = BTN_Especes.Value End Sub , ---- [code.aspx?ID=41455 By Renfield] @+: Ju£i?n Pensez: Réponse acceptée

Gil369 · Answer

bonjour et merci pour vos reponses rapides !

Julien, j ai bien noté tes codes mais il me reste quelques confirmations :
je dois specifier "option explicit" avant chaque " private sub" sur chaque bouton ?
et mettre dans mon frame :
Private Sub DisableControls()
   TXT_ChequeN°.Enabled = BTN_Cheque.Value
   TXT_Prelevement.Enabled = BTN_Prelevement.Value
   TXT_Virement.Enabled = BTN_Virement.Value
   TXT_Especes.Enabled = BTN_Especes.Value
End Sub 

Merci d avance pour votre aide

A+ Gilles

jrivet · Answer

Salut,
"je dois specifier "option explicit" avant chaque " private sub" sur chaque bouton ?" Non , il suffit d'essayer pour voir que VB te gronde assez rapidement. un seul en haut du code du formulaire sera très bien.

"et mettre dans mon frame :"  qu'est ce que tu entends par mettre dans ton frame?

@+: Ju£i?n
Pensez: Réponse acceptée

Gil369 · Answer

salut,
j ai creer un "frame " (cadre)dans lequel j ai mis mes 4 boutons option

Gilles

Gil369 · Answer

re salut,
ça fonctionne : mais case sont verrouiller,mais et il possible de les griser ?
Merci
Gilles

jrivet · Answer

Re, Si par griser tu entends changer la couleur du fond alors essaie ceci. Option Explicit Private Sub BTN_Cheque_Click() Call DisableControls End Sub

Private Sub BTN_Especes_Click() Call DisableControls End Sub

Private Sub BTN_Prelevement_Click() Call DisableControls End Sub

Private Sub BTN_Virement_Click() Call DisableControls End Sub

Private Sub DisableControls() TXT_ChequeN°.Enabled = BTN_Cheque.Value Call CheckBackColor(TXT_ChequeN°) TXT_Prelevement.Enabled = BTN_Prelevement.Value Call CheckBackColor(TXT_Prelevement) TXT_Virement.Enabled = BTN_Virement.Value Call CheckBackColor(TXT_Virement) TXT_Especes.Enabled = BTN_Especes.Value Call CheckBackColor(TXT_Especes) End Sub

Private Sub CheckBackColor(Txt As TextBox) Txt.BackColor = IIf(Txt.Enabled, vbWhite, vbGrayText) End Sub

, ---- [code.aspx?ID=41455 By Renfield] ATTENTION le plus important est que tu comprennes bien ce que tu fais. @+: Ju£i?n Pensez: Réponse acceptée

Gil369 · Answer

re,
 c est justement ce que j essaie de faire, mais il n'y a que 3 jours que je decouvre vba avec livres et forum !!!
je te remercie, j essaie tout ça et te tiens au courant

A+ Gilles

Gil369 · Answer

re, en fait je voudrai que les "textbox" soient grisees lorsqu elles sont inactives
merci
Gilles

jrivet · Answer

Re,
Et le dernier code posté ne te convient pas?    

@+: Ju£i?n
Pensez: Réponse acceptée

Gil369 · Answer

re, quand je clique sur le BTN_Cheque; il m affiche  " erreur d execution'13' "imcompatibilite de type" j ai peut etre mal placé mes codes ....
Gilles

jrivet · Answer

Salut,
Pourrais tu reposter le code que toi tu utlises?

Car chez moi je n'ai pas de souci. mais je ne sui spas sur non plus que cela soit ce que tu cherchais.

@+: Ju£i?n
Pensez: Réponse acceptée

Gil369 · Answer

re,

Private Sub BTN_Cheque_Click()
    Call DisableControls
End Sub                                                idem pour les 4 boutons

Private Sub DisableControls()
   TXT_ChequeN°.Enabled = BTN_Cheque.Value
    Call CheckBackColor(TXT_ChequeN°)
   
   TXT_Prelevement.Enabled = BTN_Prelevement.Value
    Call CheckBackColor(TXT_Prelevement)
   
   TXT_Virement.Enabled = BTN_Virement.Value
    Call CheckBackColor(TXT_Virement)
   
   TXT_Especes.Enabled = BTN_Especes.Value
    Call CheckBackColor(TXT_Especes)
   
End Sub


Private Sub CheckBackColor(Txt As TextBox)
   Txt.BackColor = IIf(Txt.Enabled, vbWhite, vbGrayText)
End Sub

Gilles

jrivet · Answer

Re,
Ou la... Bah le meme code chez moi fonctionne.

- Est tu sûr que ce sont TOUS des TextBox?
- Sur quelle Ligne s'arrete le programme en Debug? 

@+: Ju£i?n
Pensez: Réponse acceptée

Gil369 · Answer

re, oui ce sont tous des textbox, ça plante sur :

   Call CheckBackColor(TXT_ChequeN°) le premier !

en tout cas merci de ta patience, c est super sympa !
Gilles

jrivet · Answer

Re,
Y a pas de quoi.
Tu es bien en VB6? pas en VBA EXCEL ou quelques choses d'autres?

@+: Ju£i?n
Pensez: Réponse acceptée

jrivet · Answer

Re,
OUPS je viens de relire le premier post.

Essaie ceci alors (le meme code mais avec la petite modif suivante)

Private Sub CheckBackColor(Txt AsMSForms.TextBox)
  Txt.BackColor = IIf(Txt.Enabled, vbWhite, vbGrayText)
End Sub<hr />, ----
[code.aspx?ID=41455 By Renfield]
(encore désolé pour la petite erreur)

@+: Ju£i?n
Pensez: Réponse acceptée

Gil369 · Answer

re,  
je travaille avec Excel 2007...

cs_Exploreur · Answer

Re,

Pense à valider la/les réponse(s) qui ont résolu ton problème...

A+
Exploreur

 Linux a un noyau, Windows un pépin 

Un jeu en flash sympa...? Voir ici
Si vous voulez vous inscrire
mettez comme parrain : exploreur

Gil369 · Answer

re, suis nouveau du jour ici !!
meme si tous mes problemes ne sont pas encore resolu, indique moi la marche a suivre
merci
A+
Gilles

Verrouiller et griser les textbox

21 réponses

Votre réponse

Discussions similaires