modifier la position d'un controle dans un userform

Bonjour,
Je souhaitais déplacer des controles dans un userform à l'aide de la procédure suivante :

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub psRecalcPos() Dim ctl As Control Dim lTop As Long For Each ctl In form_Entete.Controls If ctl.TabIndex >= 14 Then lTop = ctl.Top + 16 ctl.Top = lTop End If Next End Sub

---

Cà ne marche pas ! :mur:, aucun controle n'est déplacé.
Il semble que çà ne marche pas non plus quand je mets une valeur en dur :

Code:

---

ctl.top = 300

---

Pourtant si je trace le contenu de ctl.top après mise à jour, il contient bien la valeur que j'ai affecté.
Faut-il effectuer une action complémentaire pour que le changement soit réellement appliqué ?
(Je peux évidemment faire tous les déplacements manellement, mais j'aimerais comprendre)
Merci.
Excel 2003 SP2

Je viens de tester le code en éxécution dans le formulaire et il fonctionne. Par contre les nouvelles positions définies ne sont pas sauvegardées définitivement (dans le formulaire en mode design par exemple)

J'ai donc essayé ce nouveau code en m'inspirant d'un sujet du tutoriel UserForm de SilkyRoad

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub psRecalcPos() Dim idx As Long Dim ctl As Object Dim lTop As Long Do While idx < form_Entete.Controls.Count Set ctl = form_Entete.Controls.Item(idx) If ctl.Top >= 200 Then lTop = ctl.Top + 16 'Change la valeur définitivement ThisWorkbook.VBProject.VBComponents("form_Entete").Controls(idx).Properties("top") = lTop End If idx = idx + 1 Loop End Sub

---

(sélection par rapport à top car topindex n'est pas supporté dans object)
et j'obtiens

Citation:

---

erreur d'exécution '1004'

---

Citation:

---

L'accès par programme au projet Visual Basic n'est pas fiable

---

SAlut
Le fait que les position ne soient pas conservées ne vient pas d'un problème dans ton code.
Si tu souhaite conserver ces positions, il faut stocker leur valeur quelque part dans ton tableau excel et aller les chercher au lancement de ta UF pour replacer tes composants.
Quand tu place un composant en mode design , il sera toujours a cette place la au lancement de la UF, c'est comme quand tu rempli un champs text en mode run, si tu ferme (décharge,Unload) ta UF et que tu la rouvre (recharge, Load), l'edit sera vide de nouveau.

A++
Qwaz

:merci:pour cette réponse.
Je conserve cette solution pour les repositionnements "dynamiques" en cours d'exécution, et je vais modifier mon "design" à la mano.