Fonction sur textbox

[ConsultantJP]

Bonjour,

Je recherche à créer un fonction pour gérer mes textboxs,

pour vous donner exemple, j'ai créer cela :

Public Function Button_ON(nom As textbox)
nom.BackColor = &HFFFFFF
nom.Enabled = True
End Function

et je tente de l'appeler via :

Button_ON ("TxtValide")

Evidemment cela ne marche pas, j'ai fait au moins 20 tentatives différentes , mais rien n'y fait.

A savoir mes textbox sont dans un userform1

pouvez vous m'aiguiller ?

 

[Pierrot93]

Re : Fonction sur textbox

Bonjour,

essaye peut être ainsi :

Public Function Button_ON(nom As MSForms.TextBox)

et pour l'appeler :

(nom du contrôle sans les guillemets)

Button_ON TxtValide

non testé...

bon après midi
@+

 

[Pierrot93]

Re : Fonction sur textbox

Re

en y réfléchissant, pas vraiment sûr que cela fonctionne, une fonction étant généralement utilisée pour renvoyer un résultat....

 

[ConsultantJP]

Re : Fonction sur textbox

Merci pierrot93 mais "variable non définit" ça me met en message d'erreur.

bon apres midi !!

 

[Pierrot93]

Re : Fonction sur textbox

Re,

ci dessous exemple qui fonctionne, à utiliser dans le module de l'usf, avec 2 textbox et un "CommandButton"

Option Explicit
Private Sub CommandButton1_Click()
TextBox2.BackColor = CouleurButton(TextBox1)
End Sub
Private Function CouleurButton(nom As MSForms.TextBox)
CouleurButton = nom.BackColor
End Function

 

[ConsultantJP]

Re : Fonction sur textbox

Merci pierrot, j'etudie le truc mais je vois pas comment la transformer pour que ça convienne dans mon cas ....

 

[Pierrot93]

Re : Fonction sur textbox

Re

vois pas trop ce que tu cherches à faire... donc peux pas t'aider plus en l'état...

 

[ConsultantJP]

Re : Fonction sur textbox

en faite ce que je veux c'est créer une fonction du type :

Public Function Button_ON(nom As msforms.textbox)
nom.BackColor = &HFFFFFF
nom.Enabled = True
nom.xxxxx
nom.xxxxxx
End Function

pour explication je dois avoir 30 textbox et je veux pas taper 30 x mes 6 lignes de codes, ansi pour chaque textbox j'esperai juste taper quelques choses genres.

Button_ON (Nom de ma textbox)

L'objectif est aussi de ne pas faire 30 modifications mais une seule si on doit faire la modif.

 

[Pierrot93]

Re : Fonction sur textbox

Re

Perso j'utiliserais plutôt une "sub" dans ce cas :

Private Sub Button_ON(nom As MSForms.TextBox)
nom.BackColor = &HFFFFFF
nom.Enabled = False
nom.Locked = True
End Sub

et appel de la sub dans l'événement "exit", par exemple :

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Button_ON TextBox1
End Sub

 

[Pierrot93]

Re : Fonction sur textbox

Re

A noter également qu'un module de classe serait aussi approprié....

 

[ConsultantJP]

Re : Fonction sur textbox

En faite j'ai peut etre pas bien résumé la situation,

j'ai un module de classe qui permet de faire une action lorsque je clique sur un optionbutton ( Public WithEvents OptionButtonGroup As MSForms.OptionButton) , lorsque je clique sur le optionbutton en fonction de celle-ci, je voudrais que ça me lance, le button_on ou button_off

ais je été plus clair ?

 

[Pierrot93]

Re : Fonction sur textbox

Re

essaye ainsi, dans ton module de classe :

Public WithEvents OptionButtonGroup As MSForms.OptionButton
Private Sub OptionButtonGroup_Click()
If OptionButtonGroup Then
    Button_ON nomtextbox
Else
    button_off nomtextbox
End If
End Sub

mais bon, avant il faut déterminer le textbox en fonction de l'optionbutton choisie, enfin me semble t'il...

 

[ConsultantJP]

Re : Fonction sur textbox

c'est ce que j'ai fait ainsi :

Private Sub OptionButtonGroup_Click()
Dim b As Integer
    
    'Renvoie le nom et la valeur de l'OptionButton cliquée

b = CInt(Mid(OptionButtonGroup.name, 2, 10))
   

If Cells(b, 4).Value = "X" Then

Button_ON Traite

Else

button_Off Traite

End If
End Sub

et cela ne marche pas.....

 

[Pierrot93]

Re : Fonction sur textbox

Re

A priori, si tu testes la propriété "name" d'un optionbutton pour en récupérer le numéro, cela commencera au caractère 13, à moins que tu en ais changé le nom...

b = CInt(Mid(OptionButtonGroup.Name, 13))

 

[ConsultantJP]

Re : Fonction sur textbox

en faite ça code marche bien

car ma textbox s'appelle : L112 par ex : et je veux récuperer ce qu'il y a apres le L , donc le 112 , pour connaitre la position de ligne que je dois ou je dois voir la valeur.