Discussion :

[rom1deh]

Bonjour à vous,

Je sais qu'il est possible de cacher ou de montrer une partie de l'userform à partir un double clic ou autre sur un bouton.

Je souhaiterais savoir comment ça se passe niveau code.

Exemple: Userform pour tous

.

au double clic sur accès maintenance.



Merci d'avance

[unparia]

Bonjour

Je te garantis qu'en jouant sur la hauteur (propriété height) de ton usuerform, tu ne verras rien de ce qui se trouve au-delà de cette hauteur.

[anasecu]

Bonjour,

Je souhaiterais savoir comment ça se passe niveau code.

Dans ton cas tu veux agrandir verticalement donc tu fais Me.Height=Me.Height+80 par exemple.
L'inverse (-) pour masquer et si c'est en largeur tu utilises Width

[rom1deh]

Merci de vos réponse rapide j'essaye de suite

[Menhir]

Il est aussi possible de Masquer/Afficher des contrôles en passant leur propriété Visible à False/True.

[rom1deh]

Merci à vous c'est parfait

[joe.levrai]

Bonjour,

pour maintenir et manipuler facilement les différentes "tailles" de ton userform, je te conseille de passer par des constantes dédiées

exemple :

on souhaite pouvoir masquer en hauteur et/ou en largeur le userform à "divers" moments

Code :

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

1
2
3
4
Const LONGUEUR_GRANDE as Long = 400
Const LONGUEUR_PETITE As Long = 200
Const LARGEUR_GRANDE As Long = 300
Const LARGEUR_PETITE As Long = 150

comme ça, tes dimensions sont stockées une seule fois, en haut du module.
Si tu dois mettre à jour, tu le fais à un seul endroit
si tu dois utiliser une longueur, tu écris la bonne constante dans ta procédure

un exemple très bête :

- créer un userform
- y placer uniquement un bouton

mettre dans le userform ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Const LONGUEUR_GRANDE As Long = 400
Const LONGUEUR_PETITE As Long = 200
Const LARGEUR_GRANDE As Long = 300
Const LARGEUR_PETITE As Long = 150
 
Private Sub CommandButton1_Click()
    With Me
        .Height = IIf(.Height = LONGUEUR_GRANDE, LONGUEUR_PETITE, LONGUEUR_GRANDE)
        .Width = IIf(.Width = LARGEUR_GRANDE, LARGEUR_PETITE, LARGEUR_GRANDE)
    End With
End Sub

à chaque clic sur le bouton, tu passes d'une longueur/largeur haute à une longueur/largeur basse


maintenant, tu peux créer autant de constantes que tu le souhaites, et tu peux mixer hauteur et largeur en fonction de tes besoins

[pijaku]

Bonjour,

Si l'on veut, en plus, "recentrer" l'UserForm (pour éviter, par exemple, qu'il ne "déborde" de l'écran), on peut également se servir de la méthode Move.

Code :

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

Me.Move Left, Top, Width, Height

A lire
A+