Changer le nom grace d'une textbox à une valeur [MAJ]

Bonjour,

J'ai beaucoup (500) de textbox sur un userform

Je cherche une méthode pour renomer ces textbox

Je dispose sur le Feuil3 en colonne A les noms d'origine
textbox1
textbox2
...

et en colonne B les noms définitifs
Prix_A_FR
Prix_B_FR
Prix_A_DE
Prix_B_DE
...

Merci par avance pour votre aide et bon dimanche

Cordialement

Bonjour,

Comme ça :

Sub RenameUser()
Dim i As Integer

For i = 1 To 10
ThisWorkbook.VBProject.VBComponents("UserForm1").Designer.Controls(Feuil3.Range("A" & i).Value).Name = Feuil3.Range("B" & i).Value
Next
End Sub

A+