Discussion :

[gds35]

Mes AMIS du Forum Bonjour ,

Une question ss doute idiote , pour les experts en vba comme vous mais étant encore un novice , je tente l'impossible !!!!

J'ai crée une application avec 15 USF comprenant textbox combobox ....
y a t'il un moyen a l'ouverture du classeur de declarer que ces 15 USF soit tous en plein ecran et non pas cree pour chaqu'un d'eux userform activate et le code de plein ecran.

Merci de votre aide . Cordialement

GDS35

[ESVBA]

Ma réflexion :

• C'est pour gagner du temps d'affichage ?
• Les contrôles vont être décentrés ?
• Dépend du poste et de sa résolution écran
• C'est pour cacher l'interface Excel ?

Plusieurs solutions :

1. Directement en utilisant les propriétés "Width" et "Height" dans l'éditeur VBA avant d'enregistrer le fichier VBA
2. Faire un code qui modifie à l'ouverture du classeur les propriétés "Height" "Width" dans la procédure "Activate" des Usf
3. Changer les propriétés de l'interface d'Excel pour la cacher
4. Créer un formulaire semi-transparent ou opaque cachant le reste de l'interface. Le plus joli. Voir les contributions.

ESVBA

[gds35]

ESVBA Bonjour ,

Effectivement c'est pour gagner du temps et ne pas avoir a reproduire le code pour chaque USF , pour le mise pleine page , je ne peux deja pas recentrer les tetbox etc malgré les codes donnés par les codes donnés par les collègue du forum , je cherche simplement au moment du this workbookopen a ce ce que tous mes usf soit en plein ecran et leur contenu centré .....

Grand merci de ton aide et celui des AMIS DU FORUMS POUR LA RESOLUTION DE CE Pb


Cordialement et bon WE GDS35

[Didier Gonard]

Bonjour,

Sois tu vois dans les tutos comment piloter le vba... en vba, soit tu peux tenter de passer par une fonction du genre :

Code :

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

1
2
3
4
5
Private Sub UserForm_Initialize()
Dim intitulez As String
 
Me.Caption = miseenforme(intitulez)
End Sub

dans un module classique :

Code :

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

1
2
3
Function miseenforme(intitulez)
miseenforme = "DVP is Cool"
End Function

cordialement,

Didier