Discussion :

[SkyRhum]

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à )

Code :

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

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

[casefayere]

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 :

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

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 :

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

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

[SkyRhum]

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 ?

[casefayere]

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

[Lilou51]

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 :

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

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