Autres Positionner mon userform en haut de l'écran

[fenec]

Bonjour le forum,
Comme le dit le titre je viens vers vous car je souhaiterais que mon userform se positionne en haut de l’écran et si possible sans bandeau.
Est ce possible?
Cordialement ,
Philippe.

 

[fenec]

j'aurais aimer sans le bandeau

 

[patricktoulon]

c'est cela que tu veux

Option Explicit
Dim oldx, oldy
Private Sub CommandButton1_Click()
    Unload Me
End Sub

Private Sub UserForm_Activate()
    Dim ex#, ey#
    With Me
        oldx = .Width
        oldy = .Height
        For Each ctrl In Me.Controls
            ctrl.Tag = Join(Array(ctrl.Left, ctrl.Top, ctrl.Width, ctrl.Height), ";")
            On Error Resume Next
            ctrl.Tag = ctrl.Tag & ";" & ctrl.Font.Size
            Err.Clear
        Next
        ex = .Width - .InsideWidth
        ey = .Height - .InsideHeight
        .Top = -ey
        .Left = -ex
        .Width = Application.Width - ex
    End With
End Sub


Private Sub UserForm_Resize()
    Dim Dimo, i&, ctrl, newlarge, newh
    On Error Resume Next
    i = 0
    For Each ctrl In Controls
        Dimo = Split(ctrl.Tag, ";")
        newlarge = Me.Width / oldx: newh = Me.Height / oldy
        ctrl.Move Dimo(0) * newlarge, Dimo(1) * newh, Dimo(2) * newlarge
        'ctrl.FontSize =
    Next
End Sub

 

[patricktoulon]

c'est cela que tu veux

vire tout ce qui y a dans l'userform

Option Explicit
Dim oldx, oldy
Private Sub CommandButton1_Click()
    Unload Me
End Sub

Private Sub UserForm_Activate()
    Dim ex#, ey#
    With Me
        oldx = .Width
        oldy = .Height
        For Each ctrl In Me.Controls
            ctrl.Tag = Join(Array(ctrl.Left, ctrl.Top, ctrl.Width, ctrl.Height), ";")
            On Error Resume Next
            ctrl.Tag = ctrl.Tag & ";" & ctrl.Font.Size
            Err.Clear
        Next
        ex = .Width - .InsideWidth
        ey = .Height - .InsideHeight
        .Top = -ey
        .Left = -ex
        .Width = Application.Width - ex
    End With
End Sub


Private Sub UserForm_Resize()
    Dim Dimo, i&, ctrl, newlarge, newh
    On Error Resume Next
    i = 0
    For Each ctrl In Controls
        Dimo = Split(ctrl.Tag, ";")
        newlarge = Me.Width / oldx: newh = Me.Height / oldy
        ctrl.Move Dimo(0) * newlarge, Dimo(1) * newh, Dimo(2) * newlarge
        'ctrl.FontSize =
    Next
End Sub

 

[fenec]

C’est tout a fait ca que je voulais en plus il est fixe pour que les utilisateurs du fichier ne puisse faire des bétises en se servant du bandeau d’excel mais comment procédé pour que je puisse avoir la main si besoin de modifier quelque chose ?

 

[patricktoulon]

le bouton rouge ferme le userform
on peut trouver une astuce autre plus cachée si tu veux
et il y a moyen de cacher le ruban aussi si tu veux

 

[fenec]

on peut trouver une astuce autre plus cachée si tu veux

oui pourquoi pas

et il y a moyen de cacher le ruban aussi si tu veux

celui d'Excel?

 

[patricktoulon]

oui et non
je ne parle pas du displayfullscreen qui peut etre déjoué par un filou suffisamment malin et vicieux pour braver l'interdit

 

[fenec]

Connaissant mes utilisateurs cela m'étonnerais fort déjà un simple raccourci clavier c'est tout une histoire pour eux

 

[patricktoulon]

re
tiens voila
tu veux remettre le ruban et fermer l'userform
ben tu clique sur fermer ca fait rien
et tu tape les touches CTRL+ENTER
A LA FERMETURE LE RUBAN SE REMET EN PLACE

Option Explicit
Dim oldx, oldy
Dim codekey
Dim counter
Private Sub CommandButton1_Click()
    'Unload Me
End Sub

Private Sub CommandButton1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
counter = counter + 1
codekey = codekey + KeyCode
If codekey = 30 Then Unload Me Else If counter = 2 Then counter = 0: codekey = 0
End Sub

Private Sub UserForm_Activate()
    Dim ex#, ey#, ptopx
    With Me
        oldx = .Width
        oldy = .Height
        For Each ctrl In Me.Controls
            ctrl.Tag = Join(Array(ctrl.Left, ctrl.Top, ctrl.Width, ctrl.Height), ";")
            On Error Resume Next
            ctrl.Tag = ctrl.Tag & ";" & ctrl.Font.Size
            Err.Clear
        Next
        ex = .Width - .InsideWidth
        ey = .Height - .InsideHeight
        .Top = -ey
        .Left = -ex
        .Width = Application.Width - ex
        ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",false)"  'voila comment on vire le ruban
    End With
End Sub


Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",true)"  'voila comment on remet le ruban
End Sub

Private Sub UserForm_Resize()
    Dim Dimo, i&, ctrl, newlarge, newh
    i = 0
    For Each ctrl In Controls
        Dimo = Split(ctrl.Tag, ";")
        newlarge = Me.Width / oldx: newh = Me.Height / oldy
        ctrl.Move Dimo(0) * newlarge, Dimo(1) * newh, Dimo(2) * newlarge, Dimo(3) * newh
    Next
End Sub

 

[patricktoulon]

une autre facon cette fois ci au clic sur bouton rouge mais le clic marche uniquement si la touche ctrl est enfoncée
la touche ctrl peu être remplacée par celle que tu décide il suffit de remplacer son keycode dans le code
bref des façons il y a a foison

Option Explicit
Dim oldx, oldy
Dim codekey
Dim counter
Private Sub CommandButton1_Click()
    If codekey = 17 Then Unload Me
End Sub

Private Sub CommandButton1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
'counter = counter + 1
'codekey = codekey + KeyCode
'If codekey = 30 Then Unload Me Else If counter = 2 Then counter = 0: codekey = 0
codekey = KeyCode
End Sub

Private Sub CommandButton1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
codekey = 0
End Sub

Private Sub UserForm_Activate()
    Dim ex#, ey#, ptopx
    With Me
        oldx = .Width
        oldy = .Height
        For Each ctrl In Me.Controls
            ctrl.Tag = Join(Array(ctrl.Left, ctrl.Top, ctrl.Width, ctrl.Height), ";")
            On Error Resume Next
            ctrl.Tag = ctrl.Tag & ";" & ctrl.Font.Size
            Err.Clear
        Next
        ex = .Width - .InsideWidth
        ey = .Height - .InsideHeight
        .Top = -ey
        .Left = -ex
        .Width = Application.Width - ex
        ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",false)"  'voila comment on vire le ruban
    End With
End Sub


Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",true)"  'voila comment on remet le ruban
End Sub

Private Sub UserForm_Resize()
    Dim Dimo, i&, ctrl, newlarge, newh
    i = 0
    For Each ctrl In Controls
        Dimo = Split(ctrl.Tag, ";")
        newlarge = Me.Width / oldx: newh = Me.Height / oldy
        ctrl.Move Dimo(0) * newlarge, Dimo(1) * newh, Dimo(2) * newlarge, Dimo(3) * newh
    Next
End Sub

allez bonne soirée
a+

 

[fenec]

Bonjour le forum, Patricktoulon
je viens de tester tes deux dernières solutions c'est magnifique
Une préférence cependant pour le poste 24
Me reste à l'appliquer dans mon fichier final et surtout comprendre le code en commencant par comprendre les variables abrégées et les dièses et me permet de revenir en cas de problème
encore merci