Microsoft 365 UserForm souci d'affichage

[Usine à gaz]

Bonjour à toutes et à tous,
Je vous souhaite un beau WE 🙂

Je reviens vers nos ténors car je bute sur un p'tit souci mais compliqué pour moi et je n'arrive pas à le résoudre.
J'ai un UserForm pour lequel j'utilise des APIs (merci aux ténors qui me les ont passé) :
- Pour masquer la barre de titre,
- Pour le positionner,
Comme vous le verrez, tout fonctionne bien sans souci (apparemment lol), sauf à l'affichage ... dans ma feuille, au clic cellules "F6 à F15".
En effet :
dans le vba mon UserForm est comme ceci

à l'affichage dans ma feuille, au clic cellules "F6 à F15" ... le voilà

Les marges grises à droite et en bas ne sont plus les même (elles sont plus grandes).

Je pense que le souci se situe dans les APIs (dans le code de l'UserForm et dans le module "Module_APIWindows".
J'ai tenter de voir mais je n'arrive à comprendre ce qu'il faudrait modifier.

Je joins le fichier test,
Pourriez-vous m'aider à trouver ?
Un grand merci,
Amicalement,
lionel 🙂

 

[ChTi160]

Bonjour Lionel
J'espère que tu vas bien ?
J'ai modifié ceux-ci en bas de la procédure, du Module "Module_APIWindows" qui semble répondre à la demande.

'GetWindowLong() nIndex
Public Const GWL_STYLE As Long = -8 'Ici j'ai mis -8 au lieu de -16

Tu testes et tu nous dis !
Bonne fin de Journée
Jean mari

 

[patricktoulon]

re
Bonjour lionel
ben c'est normal depuis une mise a jour windows l'api DrawMenuBar
ne fonctionne plus si tant est que tu l'ai utilisé
il faut donc redrésser

 

[Usine à gaz]

Re-Bonjour,

J'ai fini par trouve "l'horrible" responsable du délit lol 🤣😇
C'est lui :

Sub HideBar(frm As Object)
#If VBA7 Then
  Dim Style As LongPtr, Menu As Long, hWndForm As LongPtr
#Else
  Dim Style As Long, Menu As Long, hWndForm As Long
#End If
  'une classe de UserForm est de type ThunderXFrame ou ThunderDFrame (selon version)
  hWndForm = FindWindow("Thunder" & IIf(Application.Version Like "8*", "X", "D") & "Frame", Me.Caption)
  Style = GetWindowLong(hWndForm, GWL_STYLE)
  Style = Style And Not WS_CAPTION
  'SetWindowLong hWndForm, GWL_STYLE, Style
  DrawMenuBar hWndForm
End Sub

Cette ligne : SetWindowLong hWndForm, GWL_STYLE, Style
Il ne serait pas possible de simplifier mes codes ?
Merci à tous 🙂

 

[Usine à gaz]

Bonjour patricktoulon 🙂

Mais j'ai trouvé l'objet du délit et, apparemment, ça fonctionne 🙂
"une mise a jour windows l'api DrawMenuBar ne fonctionne plus"
Il ne serait pas possible de simplifier mes codes ? notamment dans l'UserForm ?
lionel 🙂

 

[ChTi160]

Re
Ce que j'ai fait donne ceux-ci !
Jean marie

 

[Usine à gaz]

Bonjour Jean-Marie 🙂
J'avais solutionné en neutralisant cette ligne : SetWindowLong hWndForm, GWL_STYLE, Style
Merci pour le retour, ça a l'air bien mais sans les bavure grises lol 🙂
lionel 🙂

 

[ChTi160]

Re
Les bavures grises, c'est sur la Vidéo Lol
Pas autour du Userform !!!!!
Content que tu ais solutionné ton Problème
Jean marie

 

[Usine à gaz]

Il me reste que je pense que mes codes pourraient être simplifiés et moins longs :
Il ne serait pas possible de les simplifier ? notamment dans l'UserForm ?
🙂😉

 

[Usine à gaz]

Bonjour Lionel
J'espère que tu vas bien ?
J'ai modifié ceux-ci en bas de la procédure, du Module "Module_APIWindows" qui semble répondre à la demande.

Tu testes et tu nous dis !
Bonne fin de Journée
Jean mari

J'ai oublié de te dire : ta modification fonctionne aussi 🙂

 

[ChTi160]

Pourquoi ? Lol ????????????????????????????????? mystère !

 

[Usine à gaz]

Pourquoi ? Lol ????????????????????????????????? mystère !

Alors là, j'en sais "fichtrement" rien 🙃😙 mais ça marche aussi 🙂

 

[job75]

Bonjour Lionel, ChTi160, patricktoulon,
Il suffit de redimensionner l'UserForm correctement :

Private Sub UserForm_Activate()
Me.Height = 216 'à ajuster par tâtonnement
Me.Width = 222 'à ajuster par tâtonnement
'-----'

A+

 

[patricktoulon]

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

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

LOL

 

[Usine à gaz]

Bonjour Lionel, ChTi160, patricktoulon,
Il suffit de redimensionner l'UserForm correctement :

Private Sub UserForm_Activate()
Me.Height = 216 'à ajuster par tâtonnement
Me.Width = 222 'à ajuster par tâtonnement
'-----'

A+

Bonjour et merci Gérard,
ça marche !
lionel 🙂