Discussion :

[jespscej]

Bonjour,

Je rencontre un petit souci sur un UserForm (qui s'appelle AjoutMoyenAcces) que je cherche à la placer au centre de la fenêtre lors de son lancement. Le code pour effectuer un tel placement est le suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub AjoutMoyenAcces_Initialize()
    ' Détermination de la largeur et de la hauteur de la fenêtre courante
    LargeurFenêtre = ActiveWindow.Width
    HauteurFenêtre = ActiveWindow.Height
    ' Détermination des positions gauche et droite de Excel
    PositionGauche = Application.Left
    PositionHaut = Application.Top
    ' Affectation de la position à l'UserForm
    AjoutMoyenAcces.Left = PositionGauche + LargeurFenêtre / 2 - AjoutMoyenAcces.Width / 2
    AjoutMoyenAcces.Top = PositionHaut + HauteurFenêtre / 2 - AjoutMoyenAcces.Height / 2
End Sub

Le problème, c'est que ce placement fonctionne de façon un peu aléatoire surtout lors du premier lancement de mon UserForm où ce dernier s'entête à apparaître dans le coin supérieur gauche.

Par ailleurs, lorsque je redimensionne ma fenêtre Excel, la première fois que je lance l'UserForm, celui-ci se place comme s'il n'avait pas encore compris que la fenêtre était redimensionnée. Il faut attendre le second lancement pour qu'il se positionne conformément à la nouvelle fenêtre.
Un peu comme si il fallait un premier lancement pour que le Initialize ait analysé la géométrie de ma fenêtre et qu'il fonctionne correctement...

Je précise que je travaille en multi-écrans.

Merci d'avance de votre aide !

[unparia]

Bonjour,
Ton aide vba t'apprend que l'évènement Initialize se produit lorsqu'une feuille est chargée et avant que celle-ci ne s'affiche.
Tu ferais bien d'utiliser plutôt l'évènement Activate (en prenant la précaution d'afficher ton UserForm par la méthode Show et non Load)

[Jean-Philippe André]

Salut,

le bon evenement de chargement est surtout

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Private Sub UserForm_Initialize()
End Sub

[jespscej]

Merci de vos réponses.

unparia : Concernant la méthode Activate, je crois pourtant avoir bien compris de quoi il s'agit : elle s'applique quand on réaffiche un UserForm après qu'il a été masqué. Ce n'est jamais le cas dans mon fichier : j'ouvre le UserForm par la méthode Show et le referme par la méthode Unload (sans jamais utiliser Hide ou ouvrir un UserForm par-dessus).
Du coup j'utilise Initialize pour paramétrer mon UserForm avant de l'afficher (Show).
J'ai tout de même essayé ta méthode et ça ne corrige pas le problème.
C'est même devenu pire ! Maintenant la fenêtre s'affiche en permanence dans le coin supérieur gauche malgré mes directives dans le Initialize.

jpcheck : Lorsque je mets UserForm_Initialize, j'ai une erreur 424 "Objet requis". Le pas à pas détaillé semble m'indiquer que la procédure Initialize est lancée et se déroule correctement jusqu'à là (cf. première image) où le F8 suivant m'occasionne une erreur (cf. deuxième image).





Tu peux m'expliquer pourquoi mettre nom_du_userforme_Initialize peut poser problème ?

Merci encore de votre aide.

[Jean-Philippe André]

Pour la simple raison que si demain tu changes le nom de ton formulaire, le code VBA ne sera pas mis a jour, contrairement aux noms de controles. Tu peux nommer comme bon te semble (dans la limite impartie par VBE), mais seul la procedure UserFom_Initialize s'executera lors du chargement>

Pour ton code, corrige comme ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub UserForm_Initialize()
    ' Détermination de la largeur et de la hauteur de la fenêtre courante
    LargeurFenêtre = ActiveWindow.Width
    HauteurFenêtre = ActiveWindow.Height
    ' Détermination des positions gauche et droite de Excel
    PositionGauche = Application.Left
    PositionHaut = Application.Top
    ' Affectation de la position à l'UserForm
    AjoutMoyenAcces.Left = PositionGauche + LargeurFenêtre / 2 - AjoutMoyenAcces.Width / 2
    AjoutMoyenAcces.Top = PositionHaut + HauteurFenêtre / 2 - AjoutMoyenAcces.Height / 2
End Sub

[joe.levrai]

Bonjour,

à noter qu'un Userform peut être manipulé par son nom, comme te l'a montré jpcheck, mais peut également être manipulé (au sein de son propre module) par l'instruction Me

ainsi, pour un userform appelé MonUserform, les deux lignes suivantes sont équivalentes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
MonUserform.Left = PositionGauche + LargeurFenêtre / 2 - AjoutMoyenAcces.Width / 2
Me.Left = PositionGauche + LargeurFenêtre / 2 - AjoutMoyenAcces.Width / 2

Attention également, un nom de Userform écrit en "dur" t'obligera à modifier son nom dans le code, si tu modifies son nom

cette ligne de code devrait porter le nom contractuel de ton Userform :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox MonUserform.Name

Si MonUserform est renommé en MonNouveauUserform, ce code ne fonctionne plus

chose qui n'arrive pas avec Me, qui représente en fait l'objet en tant que tel, plutôt qu'une simple de ses propriétés

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox Me.Name