Modifier durablement l'empassement de textbox dans un userform

[jhofman]

bonjour


je souhaite modifier via une procédure la position ( left) de tous les textbox dans un userform.

il est nécesasire a priori pour que la mofiiaction soit stable que le userform ne soit pas affiché. losr de l'exécution de la procédure.

je ne trouve pas la syntaxe.


j'ai ceci en mode non stable

For Each ctrl In UserForm1.Controls
If TypeName(ctrl) = "TextBox" Then
ctrl.Left = 120
end if
Next

en mode stable il faut utiliser
quelque chose comme cela mais j'ai pas la syntaxe exacte.

ThisWorkbook.VBProject.VBComponents("UserForm1"). _
  Designer.controle(ctrl.Name).Left = 120

Merci de votre aide

 

[Pierrot93]

Re : Modifier durablement l'empassement de textbox dans un userform

Bonsoir,

regarde ceci, l'usf ne doit pas être chargé...

Dim u As Object, o As Object
Set u = ThisWorkbook.VBProject.VBComponents("UserForm2")
For Each o In u.Designer.Controls
    If o.Name Like "TextBox*" Then o.Left = 20
Next o

bonne soirée
@+

 

[jhofman]

Re : Modifier durablement l'empassement de textbox dans un userform

Merci beaucoup Pierrot93