Discussion :

[diablo59]

Bonjour à tous,

voici ma question : je vient de faire un petit programme en VBA et quand je lance ma macro tout fonction très bien mais le problème ces que chez moi j'ai un grand écran alors pas de souci, par contre au boulot nous avons plusieurs écrans de taille différants alors je ne vois pas tout l'affichage de la page !
Que pont-on faire pour que la taille des fenêtres s'adapte à chaques écrans des l'ouverture de mon fichier !

Merci pour les réponses.

Amicalement.

[zazaraignée]

Tu peux trouver la largeur et la hauteur de la fenêtre de ton classeur et te guider sur ces mesures pour redimensionner ton UserForm. Exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub DimensionFenetreSurClasseur()
    With UserForm1
        .Width = ThisWorkbook.Windows(1).Width
        .Height = ThisWorkbook.Windows(1).Height
        .Left = 0
        .Top = 0
        .Show
    End With
End Sub
 
Sub DimensionFenetreSurApplication()
    With UserForm1
        .Width = Application.Windows(1).Width
        .Height = Application.Windows(1).Height
        .Left = 0
        .Top = 0
        .Show
    End With
End Sub

Chez moi, les deux procédure (dans un module) donnent le même résultat.

[Edit : Ajout]
Et si le nombre de composants débordent de la taille du formulaire, tu as plusieurs choix.

Le premier: utiliser le contrôle MultiPage pour diviser les saisies en étapes logiques.

Le second: Utiliser des ScrollBars. Tu places tes composants dans un conteneur, un Frame, par exemple et tu affecte la hauteur de ce conteneur à la propriété ScrollHeight de ton UserForm (code du UserForm, cette fois, par exemple):

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub UserForm_Activate()
    If (Height < Frame1.Height) And (Width >= Frame1.Width) Then
        ScrollBars = fmScrollBarsVertical
      ElseIf (Height >= Frame1.Height) And (Width < Frame1.Width) Then
        ScrollBars = fmScrollBarsHorizontal
      ElseIf (Height < Frame1.Height) And (Width < Frame1.Width) Then
        ScrollBars = fmScrollBarsBoth
      Else
        ScrollBars = fmScrollBarsNone
    End If
    ScrollHeight = Frame1.Height
    ScrollWidth = Frame1.Width
End Sub

En passant, enlève le caractère gras. C'est bien pour mettre en évidence certains mots, mais pas pour tout un message. Ça donne l'impression que tu nous crois sourds... Je suis certaine que tu ne le penses pas.

[diablo59]

Je te remercie bien l'amie, ces sympa d'avoir répondu aussi vite.

Je prend note du conseil pour l'écriture, et non je ne vous prends pas pour des sourds, loin de moi cette idée.
Encore merci pour les infos.

[patricktoulon]

bonjour

regarde ca:
http://www.developpez.net/forums/d98...e-new-version/

je pense que ca correspond a tes attentes


au plaisir