Merci ouskel'n'or
j'ai repris ton code est je l'ai retravaillé de cette maniére:
1 2 3 4 5 6 7 8 9 10 11 12
| Dim LeControl As Variant
Dim Result As Variant
For Each LeControl In Planning.Controls
If Left(LeControl.Name, 7) = "TextBox" Then
Result = Planning.Controls(LeControl.Name).Text
' et tu fais ce que tu veux de Result
End If
Next |
je recupere avec ce code le texte des textbox ce qui me sert d'exemple pour faire ce que je veux derrière et y mettre ce que je veux.
Jusque là je pense que j'ai compris.
Mais comment je fais pour lier cette procedure aux evenements :
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
de chaque textbox, là je dois dire que je suis completement perdu et de mon coté je me demande si c'est possible de le faire ou pas.
Partager