Positionner des objets dans un USF

[roby]

Bonjour le forum,

je bute sur une erreur de compilation,

par Exemple:
Ma boite de dialogue se nomme "Menu".
Mon image1 se nomme "Roby".
Ma frame1 se nomme "Configurations.

j'aimerai les positionner plusieurs fois avec une "fonction" suivante:
Call position( Roby , 150 , 30 )
Call position( Configurations , 72 , 84 )

d'où mon morceau de programme suivant:

Sub Position(OBJ As Object, PG As Integer, PH As Integer)
With Menu.OBJ
.Top = PG
.Left = PH
End With
End Sub

qui aurait une solution?

Merci d'avance Roby

 

[Jacques87]

Re : Positionner des objets dans un USF

Bonsoir Roby

En lisant assez rapidement ton post, j'ai un doute

Tes objets sont des controls appartenant à ton UserForm "Menu", donc il me semble que dans ta macro tu devrais définir le paramètre OBJ en tant que control, enfin ça n'est que mon avis.

Sub Position(OBJ As [COLOR=red][B]Control[/B][/COLOR], PG As Integer, PH As Integer)
With Menu.OBJ
.Top = PG
.Left = PH
End With
End Sub

tiens moi au courant

Bonne soirée

 

[roby]

Re : Positionner des objets dans un USF

bonsoir Jacques87, le forum

lorsque j'appelle cette "fonction" il y a une erreur qui s'affiche:

variable non définie

j'ai essayé avec --> "Roby" , 'option explicit



A te lire Roby

 

[MichelXld]

Re : Positionner des objets dans un USF

bonsoir


tu peux tester

Private Sub CommandButton1_Click()
    Call Position(Roby, 150, 30)
    Call Position(Configurations, 72, 84)
End Sub

Sub Position(OBJ As Control, PG As Integer, PH As Integer)
    With OBJ
        .Top = PG
        .Left = PH
    End With
End Sub

ça fonctionne aussi avec

Sub Position(OBJ As Object, PG As Integer, PH As Integer)

Bonne soirée
MichelXld

 

[roby]

Re : Positionner des objets dans un USF

Bonsoir Michelxld, Jacques87 et le forum

toujours la même erreur, variable non définie sur Roby.

ci-dessous le code du module:


Option Explicit

Sub Macro(Chaine$)
Select Case Chaine
Case 101
Call Position(Roby, 150, 30)
' Menu.Configurations.Visible = True
Case 102
' Call Position(Roby, 6, 78)
' Menu.Sauvegardes.Visible = True
Case 104
Unload Menu
Case 103, 201 To 302
MsgBox "Menu " & Chaine & ": Ce n'est qu'une démo !"
Case 401
Menu.Roby.Visible = False
Menu.APropos.Visible = True
End Select
End Sub

Sub Position(OBJ As Object, PG As Integer, PH As Integer)
With Menu.OBJ
.Top = PG
.Left = PH
End With
End Sub


A vous relire Roby

 

[MichelXld]

Re : Positionner des objets dans un USF

rebonsoir

Forcément, si tu ne suit pas les conseils qu'on te donne.
Relit mon message...


Bonne soirée
MichelXld

 

[roby]

Re : Positionner des objets dans un USF

Re bonsoir,

MichelXLD,
Le morceau de code fait parti d'une procédure d'un menu intégré dans un USF,
et je dois le laisser comme ça,
si tu veux parler de :
Private Sub CommandButton1_Click() (cela ne m'interesse moins).

sinon, évidement j'ai essayé "control", "controls" et "object" et toujours la même erreur.

je ne vois pas autre chose, sinon eclaires-moi, je ne vois pas
merci

A te relire Roby

 

[roby]

Re : Positionner des objets dans un USF

Re bonsoir,

ok je viens de m'apercevoir de la ligne

with OBJ et non with menu.OBJ


j'essayerais à mon retour car je vais au taf.


je vous tiens au courant



merci Roby

 

[roby]

Re : Positionner des objets dans un USF

Bonsoir,

je viens d'essayer avec les nouveaux parametres mais toujours la meme erreur. "variable non definie"

je ne sais pas comment resoudre ce probleme.

Qui pourrait m'eclairer?


merci Roby

 

[MichelXld]

Re : Positionner des objets dans un USF

bonjour

Essaye

Call Position(Menu.Roby, 150, 30)

Bonne soirée
MichelXld

 

[roby]

Re : Positionner des objets dans un USF

Re bonsoir MichelXLD, le forum

Ok c'est bon, voici le code:

Option Explicit

Sub Macro(Chaine$)
Select Case Chaine
Case 101
Call Position(Menu.Roby, 30, 150)
' Menu.Configurations.Visible = True
Case 102
' Call Position(Roby, 6, 78)
' Menu.Sauvegardes.Visible = True
Case 104
Unload Menu
Case 103, 201 To 302
MsgBox "Menu " & Chaine & ": Ce n'est qu'une démo !"
Case 401
Menu.Roby.Visible = False
Menu.APropos.Visible = True
End Select
End Sub

Sub Position(OBJ As Object, PG As Integer, PH As Integer)
With OBJ
.Top = PG
.Left = PH
End With
End Sub


Merci MichelXLD et bonne soirée Roby