Userform : traitement identique de plusieurs TextBoxS [Résolu]

[VicomteRaoul]

Bonjour !

Je voudrais dans une userform appliquer un traitement presque similaire à toutes les Textbox, mais comment les appeler ??

Code :

1
2
3
4
5
 
For i = 1 to 12
    UserForm1.TextBox(i).Text = i * ...
    ...
Next i

La syntaxe TextBox(i) n'est pas acceptée... comment procéder ?

Merci pour votre aide !

Raoul

[ucfoutu]

Bonjour,

Code :

1
2
n = 22
Controls("Text" & n) se réfère à la textbox Text22

joue avec

[VicomteRaoul]

Je te remercie, tu m'as aidé à avancer.

La syntage exacte est :

Code :

1
2
3
 
n = 22
UserForm1.Controls("TextBox" & n).Value = "merci"

[pirlouis]

Bonjour à tous,

Voici une version plus "élargie" sur le TextBox.
L'avantage c'est que l'on peut traiter n'importe quel TextBox sans chercher à une logique dans le nom de l'objet

Code :

1
2
3
4
5
6
7
Call TextBoxSender(MyTextBox)
.....
.....
 
Private Sub TextBoxSender(TextBoxSenderIn As TextBox)
    TextBoxSender.Value = "Merci"
End Sub

On envoi comme paramètre de TextBoxSender le nom réel (Ex: MyTextBox) du TextBox tel que tu le définis dans ton Userform.

[pirlouis]

Envoyé par JackOuYA

HS

Mais non, mais non,

Ce n'est pas HS cela fonctionne, j'utilise ce code moi-même pour un traitement de tout mes TextBox.

Exemple Réel:

Code :

1
2
3
4
5
6
7
8
9
Private Sub TextBoxName_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Call TextBoxExit(TextBoxName)
End Sub
...
...
 
Private Sub TextBoxExit(TextBoxSender As TextBox)
    TextBoxSender.Value = Trim$(TextBoxSender.Value)
End Sub