[AC-2002] Déplacer des étiquettes en VBA [Résolu]

[rockin-bones]

Bonjour à tous,
Je souhaiterait savoir comment déplacer des étiquettes (ou autres objets) par le code VBA. J'ai essayé avec les propriétés Top et TopMargin mais je dois mal les utiliser.

Code :

1
2
3
4
5
6
7
8
place = 20
 
If compte3 > 0 Then
    Me.Étiquette12.Visible = True
    Me.Étiquette12.Top = place - 2
    Me.Étiquette12.TopMargin = place - 2
    place = place + 5
End If

Une petite aide ne serait pas de refus. Merci.

[Nokho]

salut rockin-bones,

Code :

1
2
3
4
5
6
7
8
place = 20
 
If compte3 > 0 Then
    Me.Étiquette12.Visible = True
    Me.Étiquette12.Top = place - 2
    Me.Étiquette12.left = place - 2
    place = place + 5
End If

Top: c'est pour le déplacement en haut
left: déplacement à gauche

[rockin-bones]

Désolé, j'ai oublié de préciser: je ne m'intéresse qu'au déplacement vertical, et apparemment le code que j'ai tapé ne change rien, il met simplement l'étiquette en haut et c'est tout

[rockin-bones]

Pardon pardon pardon.
Il faut simplement mettre des chiffres relativement élevées (1000) pour sentir une différence.
Mea culpa.

Merci quand même Nokho

[Nokho]

Je n'ai pas bien compris Rockin. Est ce que tu a pu appliquer le code oubien.

[rockin-bones]

Oui le code marche, seulement je faisais des tests avec top(20), top(60) alors qu'il faut des valeurs bien plus élevées pour sentir une différence.

Voici mon code final, au cas où cela intéresserait qqn.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Private Sub Form_Load()
 
    Dim compte1, compte2, compte3, compte4 As Integer
    Dim place As Integer
 
compte1 = DCount("*", "Debut1semaines")
compte2 = DCount("*", "AcceptsansConv")
compte3 = DCount("*", "RDatesInversees")
compte4 = DCount("*", "RSansRestitutionCarte")
 
place = 1000
 
If compte3 > 0 Then
    Me.Étiquette12.Visible = True
    Me.Étiquette12.Top = place - 2
 
    place = place + 300
End If
If compte2 > 0 Then
    Me.Étiquette13.Visible = True
    Me.Étiquette13.Top = place - 2
 
    place = place + 300
End If
If compte4 > 0 Then
    Me.Étiquette14.Visible = True
    Me.Étiquette14.Top = place - 2
 
    place = place + 300
End If
If compte1 > 0 Then
    Me.Étiquette15.Visible = True
    Me.Étiquette15.Top = place - 2
 
    place = place + 300
End If
End Sub

[Nokho]

Cool .
A votre service et a plus

Nokho