Microsoft 365 UserForm souci d'affichage

patricktoulon à dit:

alors
pour commencer j'ai du mal a croire que ce soit un tenor qui t'ai donné le code des declarations des api
ou alors tu a fait un copier coller à la louche

donc on va faire simple
vire moi ce module api et toute les declaration d'api concernant la user 32 sauf celle pour simuler les touches

et met moi simplement ca dans le activate de l'userform

VB:

Private Sub UserForm_Activate()
    Dim hwnd&, H&
    H = Me.Height - (Me.Height - Me.InsideHeight) - 6
    hwnd = ExecuteExcel4Macro("CALL(""user32"",""GetActiveWindow"",""JCC"")")         'api GetActiveWindow
    ExecuteExcel4Macro ("CALL(""user32"",""SetWindowLongA"",""JJJJJ""," & hwnd & ", " & -16 & ", " & &H94000080 & ")")     'api SetWindowLongA
     Me.Height = H
    Call UserformPosSurCell(Me, Cells(ActiveCell.Row, 7))
  End Sub

terminé
tu voulais simplifier ben là t'es servi

allez on teste pour voir
Regarde la pièce jointe 1146870

LOL

Cliquez pour agrandir...

Usine à gaz à dit:

Merci Patrick
C'est tout bon !

Cliquez pour agrandir...

patricktoulon à dit:

re
non c'est vrai ??!!! c'est bon
bon ben c'est pas aujourd'hui que ça pète alors

j'ajouterais que ta fonction position est un abime sans fin
donc
un petit exemple avec la fonction issu de mon tutoriel sur PointsToScreenPixel(YouY)
c'est kado
va y teste la plage jaune
tu pourra pas dire que l'on t'a pas donné quelque chose de propre

au passage petit coucou à @ChTi160

Cliquez pour agrandir...

ChTi160 à dit:

C'est pas du nouveau ! C'est sûrement de l'améliorer lol
jean marie

Cliquez pour agrandir...