Discussion :

[omrsmiloud]

bonsoir
C'est mon premier apport dans ce forum , en fouillant dans le net pour une solution "maximiser une UserForm en VBA ( Excel)" pour n’importe quels type d’écran PC (19" 20" ou autre) , j'ai trouvé pas mal de codes plus au moins compliqués pour un débutant , alors j'ai eu une idée très simple que voulez partager avec vous ( les débutants bien sur) :
l'idée est la suivante :
Pour maximiser un UserForm en VBA , le plus simple est de maximiser au démarrage la fenêtre excel puis de retenir dans des variables les limites de cette fenêtre pour les utiliser dans votre userform , et comme ça quelque soit la taille d’écran :

le code dans thisWorkbook:

'lors de l'ouverture du classeur

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Workbook_Open()       
 
    'maximiser la fenattre excel et calculer les dimenssions
        ThisWorkbook.Application.WindowState = xlMaximized
    'calcules des domenssion de la fenettre excel max
        VarHeight = ThisWorkbook.Application.Height
        VarTop = ThisWorkbook.Application.Top
        VarWidth = ThisWorkbook.Application.Width
        VarLeft = ThisWorkbook.Application.Left
 
End Sub

le code dans l'userform

Code :

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

1
2
3
4
5
6
7
dim dimenssion As Boolean
 
' intialisation  UserForm
Sub UserForm_Initialize()
    'etat afichege userform( Min)        
        dimenssion = True   
End Sub

'calcule des dimenssion de l'userform

Code :

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

1
2
3
4
5
6
7
Sub UserForm_Activate()
'stocke les diemenssion dans une feuille    
    Range("Height").Value = Me.Height
    Range("Top").Value = Me.Top
    Range("Width").Value = Me.Width
    Range("Left").Value = Me.Left
End Sub

'Bouton Max Min dans l'userform

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
Sub BtMaxMin_Click()
    If dimenssion = True Then
        Me.Height = VarHeight
        Me.Top = VarTop 
        Me.Width = VarWidth 
        Me.Left = VarLeft 
        dimenssion = False
    Else
        Me.Height = Range("Height").Value
        Me.Top = Range("Top").Value
        Me.Width = Range("Width").Value
        Me.Left = Range("Left").Value
        dimenssion = True
    End If
End Sub

ci-joint un fichier exemple

[kiki29]

Salut, commence par baliser ton code

[BENNASR]

Bonjour amro, kiki, la forum
d'accord 100% avec KIKI, balise ton code facilite la lecture
Pour ta requête et si j'ai compris, tu cherche à afficher un USF plein écran? si c'est le cas il faut commencer par un bouton de commande qui te permet de quitter si non tu reste bloquer avec un USF plein écran
donc ce bouton de commande tu insère un code qui te permet d'enregistrer et quitter

Code :

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

1
2
3
Private Sub CommandButton2_Click()
saveAndClose
End Sub

en suite et dans l’événement USERFORM ACTIVATE tu ajoute ce-ci

Code :

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

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

NB : Je suis débutant et autodidacte et grâce à ce site et ses SUPER membres je fais mes premiers pas en VBA :

Bonne continuation

[unparia]

Bonjour
Il n'a ni demande, ni demandeur.
Il y a là un "apport" (d'une solution connue depuis kala kala).

[BENNASR]

Bonjour
Il n'a ni demande, ni demandeur.
Il y a là un "apport" (d'une solution connue depuis kala kala).

Toujours il y a des débutants et toujours il y a des connaisseurs et des sages et modestes savants connue depuis KALA KALA

[unparia]

Tu bas oublié ceci, BENNASR
"et toujours (pour reprendre ton expression) on trouve des gens pour revenir inlassablement à des sujets déjà traités et que l'on retrouve par une simple utilisation du moteur de recherche dont dispose ce site"
De toutes manières (bis repetita) : cette discussion n'a pas été ouverte pour demander une solution, mais ouverte (dans la section de demande ... et non celle des contributions ) pour exposer une solution maintes fois suggérée, tant ici qu'ailleurs.

[omrsmiloud]

bonjour
Merci a tous d'avoir porte attention , comme le disait BENNASR : Je suis débutant et autodidacte et grâce à ce site et ses SUPER membres je fais mes premiers pas en VBA
désolé donc d'avoir déçu quelques un par ma solution connue depuis kala kala
bonne continuation