Discussion :

[Sterne]

Bonjour à tous,

Dans mon exemple, Je n'arrive pas à convertir TextBoxN en nom d'objet.
(Je débute en VBA)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub TextBox10_Change()
TextBoxN = Me.ActiveControl.Name
...
...
TextBoxN.Value = 0
End Sub

Si je fais une MsgBox (TextBoxN), j'ai bien le message "TextBox10".
Quelqu'un peut-il m'aider ?

Cordialement

[jfontaine]

Bonjour

Pour te donner un idée de l’instanciation d'une variable control

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim Ctl As Control
 
Set Ctl = Me.ActiveControl
 
Msgbox Ctl.Name

[Sterne]

Merci beaucoup.

J'ai maintenant un message d'erreur quand j'execute la fonction suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Function TextBoxChange(CTL1 As Control)
 Select Case CTL1.Value
     Case ""
        CTL1.Value = 0
     Case 0 To 99
        Calcule_Tout
     Case Else
        CTL1.Value = 0
        MsgBox ("Caractère interdit !")
 End Select
End Function

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub TextBox10_Change()
  Dim CTL As Control
  Set CTL = Me.ActiveControl
  TextBoxChange (CTL)   'j'ai le message 424 objet requis
End Sub

Je ne peux pas vérifier la valeur de CTL dans une fonction ?

[jfontaine]

Une fonction sert a retourner une information. La tienne ne retourne rien. Remplaces la par une procédure

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub TextBoxChange(CTL1 As Control)
 Select Case CTL1.Value
     Case ""
        CTL1.Value = 0
     Case 0 To 99
        Calcule_Tout
     Case Else
        CTL1.Value = 0
        MsgBox ("Caractère interdit !")
 End Select
End Sub

Et l'appeler comme cela

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

TextBoxChange CTL

[Sterne]

Merci, ça fonctionne très bien, mais ce que je n'arrive toujours pas à trouver, c'est comment transformer une chaine de caractères en nom d'objet.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
a="Label"
b="14"
c= a & b 
 
C.Caption="Ok"

J'ai une erreur d'execution 404 (objet requis)

Cordialement

[Jean-Pierre49]

Bonjour,
et bonjour Jérôme,

Si tu es dans un USF

Essaie

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
a="Label"
b="14"
 
Me.Controls(a & b).Caption="Ok"

Tu dis

Bon courage