Modifier le nom d'un control msforms automatiquement

Bonsoir à tous,

Voici mon soucis :

Ayant un grand nombre de textbox dans mon formulaire, j'aimerai pouvoir les renommé automatiquement.

J'ai créer rapidement sur ma feuille excel le nom de mes controls qui sont du type :
A1
A2
A3
B1
B2
B3
...

Voici le bout de code que j'ai fait, qui bien entendu ne marche pas (sinon je ne serai pas là :mouarf: )

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim cb As Control Dim cel As Range   Set cel = ActiveSheet.Range("A1")   For Each cb In UserForm1.Controls cb.Name = cel.Value Set cel = cel.Offset(1) Next cb

---

Voici le message d'erreur :
"Impossible de définir la propriété Name. Impossible de définir la propriété à l'exécution."

J'ai essayé d'exécuter ce code sans avoir lancé mon formulaire, puis avec mais c'est le même message d'erreur qui apparaît.

Si quelqu'un a une idée, je suis preneur.

Merci

Bonsoir,
inspire toi avec ce lien
http://silkyroad.developpez.com/VBA/...UserForm/#LI-B

et adaptes à tes besoins l'un de ces deux codes, en changeant MsgBox par ton but :

Code:

---

1 2 3 4 5

Dim Ctrl As Control   For Each Ctrl In Me.Controls If TypeOf Ctrl Is MSForms.TextBox Then MsgBox Ctrl.Object.Value Next Ctrl

---

ou

Code:

---

1 2 3 4 5

Dim Ctrl As Control   For Each Ctrl In Controls If TypeName(Ctrl) = "TextBox" Then MsgBox Ctrl.Object.Value Next Ctrl

---

merci casefayere, mais ce n'est pas ce que j'attendais.

Ce n'est pas le texte du contrôle que je veux modifier mais son nom.
Après je ne sais pas si c'est possible. Étant donné que dans mon formulaire j'ai énormément de contrôles à mettre et que leur nom doivent suivre un ordre logique, je me suis dit que j'aurais peut-être pu gagner du temps en les renommant automatiquement par une macro.

Peut-être que la seule solution consiste à les créer dynamiquement ?

Je crois avoir vu qu'il est impossible de changer le nom d'un contrôle par VBA

Bonjour !

Je passais par là avec le même pbl et je suis tombée sur la réponse "c'est pas possible" qui ne m'a pas satisfaite... en creusant, j'ai trouvé la solution :-)

Afin que ceux qui liront ceci ne s'arrête pas à cette dernière phrase, voici ce que j'ai fait, largement inspiré par :
http://silkyroad.developpez.com/VBA/...cEditor/#LII-B

Dans mon cas, j'ai plein de contrôles finissant par "1" pour le bloc 1, je voulais les mêmes avec finissant par 2 pour le bloc 2, etc...
J'ai copié mes contrôles sur un formulaire vierge (userform1) et j'ai transformé tous mes 1 en 2, puis suis allée les recoller dans le formulaire initial ... j'aurais pu le faire en ajoutant une condition ex : qu'ils se trouvent avec un .top minimum de xx... Mais bon... ça marche aussi... A adapter donc...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

Option Explicit Dim Usf As Object   Sub lancementProcedure() Dim X As Object   Set X = ModifNomControle   End Sub     Function ModifNomControle() As Object '(nomListe As String) As Object   Dim ObjListBox As Object   Set Usf = ThisWorkbook.VBProject.VBComponents("Userform1")   Set ObjListBox = Usf.Designer.Controls   Dim i As Integer Dim oo As Object Dim strList As String   For Each oo In ObjListBox oo.Name = Application.WorksheetFunction.Substitute(oo.Name, 1, 2) Next   End Function

---

En espérant que cela puisse aider qqun...
Bonne journée