Discussion :

[PPN83]

Bonjour,

Je souhaite que mon userform s'ajuste automatiquement à la taille de l'écran à l'ouverture du fichier, mais ça ne fonctionne pas.
voici le code :

Code :

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

1
2
3
4
Sub Workbook_Open()
Accueil.Show
worksheets("fond").Visible = True
End Sub

Code :

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

1
2
3
4
5
6
7
8
9
Sub Accueil_Activate()
    With Me
        .StartUpPosition = 3
        .Width = Application.Width
        .Height = Application.Height
        .Left = 0
        .Top = 0
    End With
End Sub

Merci de votre aide

[fring]

Bonjour,

Supprime la procédure "Accueil_Activate" et place tout dans "Workbook_Open" en respectant l'ordre suivant :

1. régler les paramètres
2. afficher

Code :

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

1
2
3
4
5
6
7
Private Sub Workbook_Open()
With Accueil
    .Height = Application.Height
    .Width = Application.Width
    .Show
End With
End Sub

[babaothe]

salut

je ne vois par pourquoi le code mis dans l'évènement activate de ton userform Accueil ne fonctionnerait pas ...
Il fonctionne chez moi .L
Par contre, il doit s'y trouver dans l'évènement activate, ainsi :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub UserForm_Activate() '  <<<< ===== et non Accueil_Activate !!!
 
    With Me
        .StartUpPosition = 3
        .Width = Application.Width
        .Height = Application.Height
        .Left = 0
        .Top = 0
    End With
 
End Sub

dans un UserForm, les évènements le concernant invoquent UserForm et non le nom qu'on lui a donné

[patricktoulon]

bonjour a tous


si tu demande que le usf soit en plein ecran avec la fonction application width et height veille a ce que l applica tion soit en plein ecran

pour s'en assurer tu peux metre ca en debut de macro

application.displayfullscreen =true
application.displayfullscreen =false a la fin de la macro
exemple:

Code :

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

1
2
3
4
5
6
7
8
9
 
Private Sub UserForm_Activate()
application.displayfullscreen =true 
me.width=application.width
me.height=application.height
me.left=0
me.top=0
 application.displayfullscreen =false 
End Sub

Sinon tu a les apis pour ca voici un exemple concret et parfaitement fonctionel
2 lignes suffisent apres avoir declarer les fonction de l'api

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
'on va se servir de l'api "user32.dll"
'ici on declare les fonctions de l'api 
private Declare Function fwa Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
private Declare Function show Lib "User32" Alias "ShowWindow" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
private handle As Long


Private Sub UserForm_Activate()
handle = fwa(vbNullString, nomdeluserform.Caption) 'le handle de la form
show handle, 3   'on veut maximiser la form au démarrage,
 End Sub

maintenant quand tu redimentionne un usf les controls restent eux a leur tailles initiales tu remedier a cela par macro

dans les contributions tu trouvera plusieur exemples que j ai poster il y a pas tres longtemp

voici un des liens:
http://www.developpez.net/forums/d98...e-new-version/

voila si ca peut servir
au plaisir

[Godzestla]

dans les contributions tu trouvera plusieur exemples que j ai poster il y a pas tres longtemp

voici un des liens:
http://www.developpez.net/forums/d98...e-new-version/

voila si ca peut servir

C'est génial, merci Patrick.

[babaothe]

re-salut

je rappelle que la demande ne considérait que le redimensionnement du UserForm et non celui (et leur repositionnement) des contrôles qui s'y trouveraient.

Quant au reste, on en reparlera lorsque l'on aura bien voulu s'apercevoir de ce que, d'un écran à l'autre, existent des proportions différentes susceptibles de générer dans certains cas des gênes assez significatives. Il ne suffit alors certes pas de "redimensionner" en largeur et en hauteur par application de deux coefficients (distorsions garanties dans certains cas). Mais ceci est un autre problème qui ne me parait pas devoir être traité ici, puisque (une autre fois) le demandeur ne pose que la question du redimensionnement, en plein écran, du seul UserForm