Changer un label de place à l'ouverture

Bonjour,

quelqu'un connait-il la formulation pour déplacer de plusieurs milimètres un label texte activeX ou formulaire selon une condition?

L'idée serait la suivante:

Private Sub Workbook_Open()

If range("A1")<>"" then

label1DEPLAC = +33

else

labelDEPLAC = 0

exit sub

end sub

Merci pour vos lumières.

Bonjour

A tester (je suppose que c'est un Label dans une feuille et non dans un USF)

label est à 200 (LEFT) dans ses propriétés, à modifier à ta sauce

Private Sub Workbook_Open()
Sheets("Feuil1").Label1.Left = 200
If Range("A1") <> "" Then
Sheets("Feuil1").Label1.Left = Sheets("Feuil1").Label1.Left + 33
Else
Sheets("Feuil1").Label1.Left = Sheets("Feuil1").Label1.Left
Exit Sub
End If
End Sub

T'es un génie.

Au grand hasard, tu connaîtrais la formule pour le faire à la verticale?

(C'est galère ces toutes petites instructions à trouver sur le net je trouves)

J'ai réussi rasure toi, j'ai trouvé. C'est Top au lieu de Right