Question bête

Question

Bonjour,

Pour l'application excel
J'ai un bout de code que j'utilise pour une textbox par exemple  :
TXT_Nom = StrConv(TXT_Nom, 3)

Je dois l'utiliser pour une 20ène de textbox mais j'aimerai créer une procédure pour éviter de copier coller pour chaque textbox en renommant le nom de la textbox.
J'aimerai qu'à la place devoir écrire TXT_Nom faire en sorte qu'il le mette automatiquement le nom de la textbox sélectionner pas l'utilisateur.

Cela donnerai quelque chose comme ca :

sub maj()
nom_de_la_textbox = StrConv(nom_de_la_textbox, 3)
end sub

Dans l'évènement exit des textbox je metterai

Private Sub TXT_Nom_Exit(ByVal Cancel As MSForms.ReturnBoolean)
call maj
end sub

Pour cette exemple j'aurai peut être meilleur temps de copier coller mais j'ai d'autre code beaucoup plus long que j'utilise aussi pour toute les autres textbox.

Merci ++

tri_yann · Answer

Bonjour, je peux supposer que les textbox sont dans une feuille Excel. Auquel cas, je peux te proposer ce code :

Sub toto()Set sh = ActiveSheet For Each cnt In sh.Shapes Call Maj(cnt.Name) Next cnt End Sub

Sub Maj(nom_de_la_textbox As String) nom_de_la_textbox = StrConv(nom_de_la_textbox, 3) End Sub

Attention ce code va chercher tous les "shapes" existants de la feuille en cours (boutons, images, ...). Il faut peut-être rajouter un test sur le nom du "shape" Yann

cs_minus87 · Answer

Effectivement je n'ai pas préciser mais les textbox sont dans un userform.

Question bête

2 réponses

Votre réponse

Discussions similaires