Discussion :

[JYL74]

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

Code :

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

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 ! , aucun controle n'est déplacé.
Il semble que çà ne marche pas non plus quand je mets une valeur en dur :

Code :

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

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

[JYL74]

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 :

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

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

erreur d'exécution '1004'

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

[Qwazerty]

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

[JYL74]

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.