Agrandissement automatique d'un UserForm

Bonjour à tous et tous mes vœux pour 2025,

J'aimerais qu'à l'ouverture mon Userform s'ouvre automatiquement en pleine écran. Pourriez-vous m'aider?

Merci beaucoup

Bonjour

C'est une question souvent posée sur le forum.
Une petite recherche sur le site via ce lien -->https://forum.excel-pratique.com/recherche...

Voici déjà un lien __> https://forum.excel-pratique.com/s/goto/157126

Cordialement

Edit : Maintenant je ne comprends pas trop la question car votre USF s'ouvre en plein écran à l'ouverture du fichier...

Ah bin pas chez moi il est ouvert sur un quart droit de mon écran.

Bien évidemment que j'ai utilisé le possibilité de faire des recherches. Mais aucun code ne semble fonctionner chez moi

Merci tout de même

Re

Modifiez l'usf comme ceci

- redimensionnez votre userform --> Dans les propriétés mettez widht à 900 et Height à 455. cela va vous obliger à déplacer un peu les boutons vers le haut et à gauche
- Désactivez les deux Sub Activate et Resize (actuellement le code Resize est exécuté 2 fois à cause des instructions dans le code Activate. je ne vois pas l'utilité de ces deux codes.
- remplacez le code Initialize par celui ci-dessous

Private Sub UserForm_Initialize()
Dim ctrl As Control
    For Each ctrl In Me.Controls
        With ctrl
            .Tag = .Left & ";" & .Top & ";" & .Width & ";" & .Height
            On Error Resume Next
            .Tag = .Tag & ";" & .Font.Size
            Err.Clear
        End With
    Next
'''''''''POUR RENDRE "IMAGE1"? INVISIBLE''''''''''
TextBox3.Visible = False
'Label3.Visible = False
''''''''''''''''''''''''''''''''''''''''''''''''''
Call relist

With Application
    .WindowState = xlMaximized
    Zoom = Int(.Width / Me.Width * 100)
    Width = .Width: Height = .Height
    Left = 0: Top = 0
End With
End Sub

refaites un test

de mon coté l'usf est bien affichée complètement à l'écran avec cette solution

Si ok, je regarderai le code relist qui peut être simplifié

Crdlt

Merci beaucoup DAN, cela fonctionne parfaitement

Re

Merci du retour

Pensez à cloturer le fil si terminé

Crdlt