questions sur Me.

[sabrina64]

Bonjour à tous,
J'ai une petite question.
J'aimerai declarer la procedure suivante dans un module

Sub dimensionUser(nom As String)
    With nom
        .StartUpPosition = 3
        .Width = Application.Width
        .Height = Application.Height
    End With
End Sub

et l appeler ainsi lors de l initialisation de mon userform


Private Sub UserForm_Initialize()
Call dimensionUser(UserForm1)
End Sub

or cela ne fonctionne pas.....;;

avez vous une idée?

merci

 

[Orodreth]

Re : questions sur Me.

Salut Sabrina.

Voila la procédure que tu as écris:

Sub dimensionUser(nom As String)
    With nom
        .StartUpPosition = 3
        .Width = Application.Width
        .Height = Application.Height
    End With
End Sub

Essaye comme ça:

Sub dimensionUser(USF As Object)
    With USF
        .StartUpPosition = 3
        .Width = Application.Width
        .Height = Application.Height
    End With
End Sub

Et dans l'initialize de ton USF:
Private sub userform_initialize ()
call dimensionUser(me)
end sub

Je ne suis pas sûr, mais essaye toujours, et dis moi ce que tu en penses.
(en revanche, je suis pas convaincu des "applications.width" et "application.height". ça va te faire un USF super grand si ça marche )

Thomas

 

[sabrina64]

Re : questions sur Me.

Nickel.......
ca marche
je vous remercie beaucoup

je sais que le userform sera grand, mais c ce que je recherchais...

merci beaucoup

bonne après midi

 

[Orodreth]

Re : questions sur Me.

Ah ? bah super alors

Tant mieux pour toi, ravi d'avoir pu aider.

 

[sabrina64]

Re : questions sur Me.

merci, d avoir pris le temps d y reflechir.
C sympa.
Bonne aprem