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