XL 2019 Désactiver la barre de titre d'un userform 64bits

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion akni
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
akni

akni

XLDnaute Nouveau
Bonjour Tout le monde,

j'ai un code qui supprime la barre de titre des userform mais il ne marche pas dans la version 64bits

Merci pour toute aide.
 
Solution
patricktoulon
Bonjour @Phil69970

oui avec le rectangle j'ai vu 👍
mais je pige pas le besoins de setwindowpos dans ce cas car setwindowlong fait déjà le boulot 🤔

alors oui peut être qu'avec ta version ça marche mais comme je disais plus haut c'est pas clean
car si ça fonctionne avec ces deux api tu risque de te heurter a un mur avec d'autre api
autant les déclarer en bon et due forme
en l’occurrence ici 3 déclarations
à noter que je re capte pas le style de départ j'applique un long direct avec SetWindowLong

VB: 
#If VBA7 Then
    #If Win64 Then    'vba7 et 64 bits
        Private Declare PtrSafe Function FindWindowA Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
        Private...
Trier par date Trier par votes
Usine à gaz à dit:
Bonjour à toutes et à tous,
@ akni : tu nous copie ton code ?
lionel,
Cliquez pour agrandir...
Bonjour lionel,
tout d'abord merci, j'ai pu trouver ce code et ça marche
VB: 
Private Declare PtrSafe Function FindWindowA Lib "User32" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare PtrSafe Function GetWindowLongA Lib "User32" _
(ByVal hWnd As Long, ByVal nIndex As Long) As Long

Private Declare PtrSafe Function SetWindowLongA Lib "User32" _
(ByVal hWnd As Long, ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long

Private Sub UserForm_Activate()
Dim hWnd As Long, exLong As Long
hWnd = FindWindowA(vbNullString, Me.Caption)
exLong = GetWindowLongA(hWnd, -16)
If exLong And &H880000 Then
SetWindowLongA hWnd, -16, exLong And &HFF77FFFF
Me.Hide: Me.Show
End If
End Sub
Private Sub CommandButton1_Click()
Unload Me
End Sub
 
Vote positif 0 Vote négatif
Salut
déjà ça m’étonnerait que tes déclarations même avec ptrsafe fonctionne correctement sur 64bits

sinon je te propose de ne plus te soucier de ta version d'excel
VB: 
'**********************************************************************************************
'      supprimer le cadre et la barre de titre du Userform
'auteur :patricktoulon
'**********************************************************************************************

'EXEMPLE
Private Sub CommandButton1_Click()
    Unload Me
End Sub

Private Sub UserForm_Activate()
   Dim hwnd&,H&
    H = Me.InsideHeight
    hwnd = ExecuteExcel4Macro("CALL(""user32"",""GetActiveWindow"",""JCC"")")         'api GetActiveWindow
    ExecuteExcel4Macro ("CALL(""user32"",""SetWindowLongA"",""JJJJJ""," & hwnd & ", " & -16 & ", " & &H94080080 & ")")      'api SetWindowLongA
    ExecuteExcel4Macro ("CALL(""user32"",""DrawMenuBar"",""JJJJJJ"", " & hwnd & ")")
Me.Height = H + 4
End Sub
 
Vote positif 0 Vote négatif
Bonjour bruno

pour 64 bits c'est LongPtr et non Long pour les contextx(HDC) et handles
VB: 
Private Declare PtrSafe Function FindWindowA Lib "User32" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr

Private Declare PtrSafe Function GetWindowLongA Lib "User32" _
(ByVal hWnd As LongPtr, ByVal nIndex As Long) As LongPtr

Private Declare PtrSafe Function SetWindowLongA Lib "User32" _
(ByVal hWnd As LongPtr, ByVal nIndex As Long, _
ByVal dwNewLong As Long) As LongPtr

ptrsafe à partir de VB7 qui commence a partir de 2013 meme en 32 bits
long 32 bits / longPtr 64 bits
 
Vote positif 0 Vote négatif
Patrick

On est absolument pas obligé dans ce contexte 😜 je suis d'accord ce n'est pas très clean, mais ça fonctionne

D'ailleurs, j'en suis navré, mais ça ne semble pas fonctionner avec ton code
1632539442323.png

@+
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
re
re
et bien sur que ça ne peut fonctionner ta condition n'est pas bonne
vous confondez VB7 et win64
chez moi par exemple 2013 32 bit je suis bien en vb7 mais win 32
d'ailleurs ptrsafe ou pas avec long (tout court) chez moi ça fonctionne
j'ai aussi peut être oublié un "Ptr" quelque part
mais comme tu le dis c'est pas clean
et en plus tu me fait un findwindow dans un initialise ??????? 😳 🤔
c'est dans le activate que l'on peut faire un findwindow
dans le initialise c'est la classe userform qui s’instancie pas l'object FORM donc le formulaire n'est toujours pas affiché
en tout cas c'est comme ça que ça devrait fonctionner 🤣

Après sincèrement il y a un bon moment déjà que je ne déclare plus les fonction User32 dans mes fichiers
j'utilise ma méthode avec les macro4 comme ça je n'ai pas de soucis sur aucun PCs 😉

mais bon
essaie plutot celle là avec des déclarations dignes de ce nom
et dis moi le message que tu a 😉
VB: 
#If VBA7 Then
    #If Win64 Then
        Private Declare PtrSafe Function GetWindowLong Lib "User32" Alias "GetWindowLongA" (ByVal hWnd As LongPtr, ByVal nIndex As Long) As LongPtr
        Private Declare PtrSafe Function SetWindowLong Lib "User32" Alias "SetWindowLongA" (ByVal hWnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As LongPtr) As LongPtr
        Private Declare PtrSafe Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
        Private Declare PtrSafe  Function  DrawMenuBar Lib "User32" (ByVal hWnd As LongPtr) As Long
        Const ver As String = "version 64 en VB7"
    #Else
        Const ver As String = "version 32 en VB7"
        Private Declare PtrSafe Function GetWindowLong Lib "User32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
        Private Declare PtrSafe Function SetWindowLong Lib "User32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
        Private Declare PtrSafe Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
        Private Declare PtrSafe Function DrawMenuBar Lib "User32" (ByVal hWnd As Long) As Long
    #End If
#Else
    Const ver As String = "version 32 en VB6"
    Private Declare Function GetWindowLong Lib "User32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
    Private Declare Function SetWindowLong Lib "User32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
    Private Declare Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
    Private Declare Function DrawMenuBar Lib "User32" (ByVal hWnd As Long) As Long
#End If

Private Sub UserForm_Activate()
    Dim hWnd As Long, exLong As Long
    hWnd = FindWindow(vbNullString, Me.Caption)
    exLong = GetWindowLong(hWnd, -16)
    If exLong And &H880000 Then
        SetWindowLong hWnd, -16, exLong And &HFF77FFFF
        DrawMenuBar hWnd
        Me.Hide: Me.Show
    End If
    MsgBox ver
End Sub
Private Sub CommandButton1_Click()
    Unload Me
End Sub

voilà le mien
1632542416002.png
 
Dernière édition:
Vote positif 0 Vote négatif
Bonjour @Phil69970

oui avec le rectangle j'ai vu 👍
mais je pige pas le besoins de setwindowpos dans ce cas car setwindowlong fait déjà le boulot 🤔

alors oui peut être qu'avec ta version ça marche mais comme je disais plus haut c'est pas clean
car si ça fonctionne avec ces deux api tu risque de te heurter a un mur avec d'autre api
autant les déclarer en bon et due forme
en l’occurrence ici 3 déclarations
à noter que je re capte pas le style de départ j'applique un long direct avec SetWindowLong

VB: 
#If VBA7 Then
    #If Win64 Then    'vba7 et 64 bits
        Private Declare PtrSafe Function FindWindowA Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
        Private Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal Hwnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As LongPtr) As LongPtr
        Const ver$ = "version 64 bits en VBA7"
    #Else    'vba7 et 32 bits
        Private Declare PtrSafe Function FindWindowA Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
        Private Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal Hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
        Const ver$ = "version 32 bits en VBA7"
    #End If
#Else    'vba6 et 32 bits
    Const ver$ = "version 32 bits en VBA6"
    Private Declare PtrSafe Function FindWindowA Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
    Private Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal Hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
#End If
Private Sub CommandButton1_Click()
    Unload Me
End Sub

Private Sub UserForm_Activate()
    Dim Hwnd&
    Hwnd = FindWindowA(vbNullString, Me.Caption)
    SetWindowLong Hwnd, -16, &H94080080
    ' pour ne pas utiliser l'api "DrawMenuBar"et remettre la partie visible de l'usf a la meme dimention que son inside de depart
    .Height = Me.Height - (Me.Height - Me.InsideHeight) + (Me.Width - Me.InsideWidth)
    MsgBox ver
End Sub

voila pourquoi je ne m'ennuie plus avec ça et je passe par les macro4 histoire de me simplifier la vie et d'avoir une compatibilité 100% avec toute version d'excel
Code: 
Private Sub CommandButton1_Click()
Unload Me
End Sub

Private Sub UserForm_Activate()
 Dim hwnd&
    H = Me.InsideHeight
    hwnd = ExecuteExcel4Macro("CALL(""user32"",""GetActiveWindow"",""JCC"")")         'api GetActiveWindow
    ExecuteExcel4Macro ("CALL(""user32"",""SetWindowLongA"",""JJJJJ""," & hwnd & ", " & -16 & ", " & &H94080080 & ")")      'api SetWindowLongA
   Me.Height = Me.Height - (Me.Height - Me.InsideHeight) + (Me.Width - Me.InsideWidth)

End Sub
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Solution
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

F
  • Résolu(e)
Microsoft 365 DatePicker dans Userform pour Excel365 ?
Réponses
12
Affichages
576
patricktoulon
patricktoulon
cathodique
  • Résolu(e)
XL 2010 Userform plein écran sans barre de titre
Réponses
7
Affichages
715
cathodique
cathodique
halecs93
  • Résolu(e)
XL 2016 Adapter hauteur d'un UserForm et d'un Listbox en fonction du contenu
Réponses
8
Affichages
236
halecs93
halecs93
cathodique
  • Résolu(e)
XL 2010 Userform Plein Ecran VBA7
2
Réponses
16
Affichages
479
cathodique
cathodique
CISCO
  • Résolu(e)
XL 2013 Histogramme avec une seule barre par cellule
Réponses
6
Affichages
243
CISCO
CISCO
M
  • Résolu(e)
Autres problème de récupération, aucune données
Réponses
7
Affichages
270
mysti54
M
Staple1600
  • Question Question
Power Query Chargement lent de PowerQuery lors de la 1ere utilisation
Réponses
13
Affichages
749
Staple1600
Staple1600
L
  • Résolu(e)
Microsoft 365 Etiquettes code barre EAN128
Réponses
7
Affichages
206
sylvanu
sylvanu
pascal21
  • Question Question
Microsoft 365 combobox afficher la liste dés la changement de la valeur
Réponses
2
Affichages
125
pascal21
pascal21
Dudu2
  • Résolu(e)
XL 2016 VBA - Redimensionner un UserForm après le retrait de la barre du menu système (Caption)
5 6 7
Réponses
101
Affichages
3 K
Dudu2
Dudu2
chinel
  • Résolu(e)
XL 2016 problème au niveau d'un contrôle dans VBA
Réponses
2
Affichages
489
chinel
chinel
P
  • Question Question
Microsoft 365 Barre d'accès rapide, macros et personal.xlsb
Réponses
4
Affichages
165
jcf6464
jcf6464
U
  • Question Question
Autres je n'arrive pas à récupérer mon userform pour l'afficher
Réponses
3
Affichages
152
un internaute
U
J
  • Question Question
Microsoft 365 affichage userform
Réponses
4
Affichages
406
TooFatBoy
TooFatBoy
Dudu2
  • Résolu(e)
XL 2016 VBA - Comment savoir si un Handle de Window est celui d'une Window Excel
Réponses
10
Affichages
266
Dudu2
Dudu2
Eric 888
  • Résolu(e)
Microsoft 365 rendre visible automatiquement l'onglet de la feuille active sur la barre de navigation inférieure
Réponses
11
Affichages
817
Eric 888
Eric 888
Twing83
  • Résolu(e)
XL 2010 Travail base de données et UserForm
2 3
Réponses
40
Affichages
1 K
ChTi160
ChTi160
D
  • Question Question
XL 2019 User Form
Réponses
9
Affichages
357
Debie
D
Z
  • Question Question
Microsoft 365 Exporter le visuel d'une cellule vers un fichier PNG
Réponses
4
Affichages
331
patricktoulon
patricktoulon
jcf6464
  • Résolu(e)
Microsoft 365 Userform Filtres ne fonctionne pas
2 3 4
Réponses
46
Affichages
1 K
jcf6464
jcf6464
Retour