Positionner des objets dans un USF

Jacques87

XLDnaute Accro

• 19 Décembre 2006

• #2

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.

Code:

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

 

Vote positif 0 Vote négatif

roby

XLDnaute Occasionnel

• 19 Décembre 2006

• #3

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

 

Vote positif 0 Vote négatif

M

MichelXld

XLDnaute Barbatruc

• 19 Décembre 2006

• #4

Re : Positionner des objets dans un USF

bonsoir


tu peux tester

Code:

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

Code:

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

Bonne soirée
MichelXld

 

Vote positif 0 Vote négatif

roby

XLDnaute Occasionnel

• 19 Décembre 2006

• #5

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

 

Vote positif 0 Vote négatif

M

MichelXld

XLDnaute Barbatruc

• 19 Décembre 2006

• #6

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

 

Vote positif 0 Vote négatif

roby

XLDnaute Occasionnel

• 20 Décembre 2006

• #7

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

 

Vote positif 0 Vote négatif

roby

XLDnaute Occasionnel

• 20 Décembre 2006

• #8

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

 

Vote positif 0 Vote négatif

roby

XLDnaute Occasionnel

• 20 Décembre 2006

• #9

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

 

Vote positif 0 Vote négatif

M

MichelXld

XLDnaute Barbatruc

• 20 Décembre 2006

• #10

Re : Positionner des objets dans un USF

bonjour

Essaye

Code:

Call Position(Menu.Roby, 150, 30)

Bonne soirée
MichelXld

 

Vote positif 0 Vote négatif

roby

XLDnaute Occasionnel

• 20 Décembre 2006

• #11

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

 

Vote positif 0 Vote négatif