Suis-je obligé de passer par les codes API de Windows (que je ne maîtrise
pas du tout) pour ajouter à la croix de fermeture le tiret de réduction ?
Si non une piste ....
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
poy-poy
Bonjour GIBI,
Personnellement, je ne sais pas faire, mais à cette adresse tu trouveras un classeur à télécharger qui t'expliques comment faire. C'est pas trés simple, mais trés joli.
Suis-je obligé de passer par les codes API de Windows (que je ne maîtrise pas du tout) pour ajouter à la croix de fermeture le tiret de réduction ? Si non une piste ....
Merci Bonne journée JM
Bonjour GIBI,
Personnellement, je ne sais pas faire, mais à cette adresse tu trouveras un
classeur à télécharger qui t'expliques comment faire. C'est pas trés simple,
mais trés joli.
Suis-je obligé de passer par les codes API de Windows (que je ne maîtrise
pas du tout) pour ajouter à la croix de fermeture le tiret de réduction ?
Si non une piste ....
Personnellement, je ne sais pas faire, mais à cette adresse tu trouveras un classeur à télécharger qui t'expliques comment faire. C'est pas trés simple, mais trés joli.
Suis-je obligé de passer par les codes API de Windows (que je ne maîtrise pas du tout) pour ajouter à la croix de fermeture le tiret de réduction ? Si non une piste ....
Merci Bonne journée JM
GIBI68
OK j'ai vu Je pourrai peut-être en faire quelque chose bien que je n'ai pas Excel 2000 Merci
"poy-poy" a écrit dans le message de news:
Bonjour GIBI,
Personnellement, je ne sais pas faire, mais à cette adresse tu trouveras un
classeur à télécharger qui t'expliques comment faire. C'est pas trés simple,
Suis-je obligé de passer par les codes API de Windows (que je ne maîtrise
pas du tout) pour ajouter à la croix de fermeture le tiret de réduction ?
Si non une piste ....
Merci Bonne journée JM
Michel Pierron
Bonsoir GIBI68; Dans le module UserForm: Private Declare Function SetWindowLong& Lib "user32" Alias _ "SetWindowLongA" (ByVal hwnd&, ByVal nIndex&, ByVal wNewWord&) Private Declare Function FindWindow& Lib "user32" Alias _ "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) Private Declare Function EnableWindow& Lib "user32" (ByVal hwnd&, ByVal fEnable&)
Private Sub UserForm_Initialize() Dim hwnd As Long hwnd = FindWindow(vbNullString, Me.Caption) SetWindowLong hwnd, -16, &H84CA0080 EnableWindow hwnd, 1 End Sub
Dans le module standard: Sub ShowNoModalForm() #If VBA6 Then UserForm1.Show 0 #Else UserForm1.Show #End If End Sub
MP
"GIBI68" a écrit dans le message de news:
Bonjour à tous,
Suis-je obligé de passer par les codes API de Windows (que je ne maîtrise pas du tout) pour ajouter à la croix de fermeture le tiret de réduction ? Si non une piste ....
Merci Bonne journée JM
Bonsoir GIBI68;
Dans le module UserForm:
Private Declare Function SetWindowLong& Lib "user32" Alias _
"SetWindowLongA" (ByVal hwnd&, ByVal nIndex&, ByVal wNewWord&)
Private Declare Function FindWindow& Lib "user32" Alias _
"FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String)
Private Declare Function EnableWindow& Lib "user32" (ByVal hwnd&, ByVal
fEnable&)
Private Sub UserForm_Initialize()
Dim hwnd As Long
hwnd = FindWindow(vbNullString, Me.Caption)
SetWindowLong hwnd, -16, &H84CA0080
EnableWindow hwnd, 1
End Sub
Dans le module standard:
Sub ShowNoModalForm()
#If VBA6 Then
UserForm1.Show 0
#Else
UserForm1.Show
#End If
End Sub
MP
"GIBI68" <jean-michel.ber@sonoma.fr> a écrit dans le message de
news:eHWsxGpEFHA.480@TK2MSFTNGP10.phx.gbl...
Bonjour à tous,
Suis-je obligé de passer par les codes API de Windows (que je ne maîtrise
pas du tout) pour ajouter à la croix de fermeture le tiret de réduction ?
Si non une piste ....
Bonsoir GIBI68; Dans le module UserForm: Private Declare Function SetWindowLong& Lib "user32" Alias _ "SetWindowLongA" (ByVal hwnd&, ByVal nIndex&, ByVal wNewWord&) Private Declare Function FindWindow& Lib "user32" Alias _ "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) Private Declare Function EnableWindow& Lib "user32" (ByVal hwnd&, ByVal fEnable&)
Private Sub UserForm_Initialize() Dim hwnd As Long hwnd = FindWindow(vbNullString, Me.Caption) SetWindowLong hwnd, -16, &H84CA0080 EnableWindow hwnd, 1 End Sub
Dans le module standard: Sub ShowNoModalForm() #If VBA6 Then UserForm1.Show 0 #Else UserForm1.Show #End If End Sub
MP
"GIBI68" a écrit dans le message de news:
Bonjour à tous,
Suis-je obligé de passer par les codes API de Windows (que je ne maîtrise pas du tout) pour ajouter à la croix de fermeture le tiret de réduction ? Si non une piste ....
Merci Bonne journée JM
anonymousA
Bonjour,
sur le site de Ivan Moala (faire une recherche sur Google), tu trouveras une xemple qui fonctionne avec Excel 2000 de lapossibilité de minimiser un userform dans la barre des taches. Très bien fait.
A+
Bonjour à tous,
Suis-je obligé de passer par les codes API de Windows (que je ne maîtrise pas du tout) pour ajouter à la croix de fermeture le tiret de réduction ? Si non une piste ....
Merci Bonne journée JM
Bonjour,
sur le site de Ivan Moala (faire une recherche sur Google), tu trouveras
une xemple qui fonctionne avec Excel 2000 de lapossibilité de minimiser
un userform dans la barre des taches.
Très bien fait.
A+
Bonjour à tous,
Suis-je obligé de passer par les codes API de Windows (que je ne maîtrise
pas du tout) pour ajouter à la croix de fermeture le tiret de réduction ?
Si non une piste ....
sur le site de Ivan Moala (faire une recherche sur Google), tu trouveras une xemple qui fonctionne avec Excel 2000 de lapossibilité de minimiser un userform dans la barre des taches. Très bien fait.
A+
Bonjour à tous,
Suis-je obligé de passer par les codes API de Windows (que je ne maîtrise pas du tout) pour ajouter à la croix de fermeture le tiret de réduction ? Si non une piste ....
Merci Bonne journée JM
GIBI68
bonjour, Merci pour cette solution J'ai sans doute mal recopié ou compris car j'ai un message d'erreur : Seuls des commentaires peuvent apparaître après end -sub quand je compile
Merci encore JM
"Michel Pierron" a écrit dans le message de news:
Bonsoir GIBI68; Dans le module UserForm: Private Declare Function SetWindowLong& Lib "user32" Alias _ "SetWindowLongA" (ByVal hwnd&, ByVal nIndex&, ByVal wNewWord&) Private Declare Function FindWindow& Lib "user32" Alias _ "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) Private Declare Function EnableWindow& Lib "user32" (ByVal hwnd&, ByVal fEnable&)
Private Sub UserForm_Initialize() Dim hwnd As Long hwnd = FindWindow(vbNullString, Me.Caption) SetWindowLong hwnd, -16, &H84CA0080 EnableWindow hwnd, 1 End Sub
Dans le module standard: Sub ShowNoModalForm() #If VBA6 Then UserForm1.Show 0 #Else UserForm1.Show #End If End Sub
MP
"GIBI68" a écrit dans le message de news:
Bonjour à tous,
Suis-je obligé de passer par les codes API de Windows (que je ne maîtrise
pas du tout) pour ajouter à la croix de fermeture le tiret de réduction ?
Si non une piste ....
Merci Bonne journée JM
bonjour,
Merci pour cette solution
J'ai sans doute mal recopié ou compris car j'ai un message d'erreur : Seuls
des commentaires peuvent apparaître après end -sub quand je compile
Merci encore
JM
"Michel Pierron" <michel.pierron@free.fr> a écrit dans le message de news:
OA5lo9qEFHA.3492@TK2MSFTNGP12.phx.gbl...
Bonsoir GIBI68;
Dans le module UserForm:
Private Declare Function SetWindowLong& Lib "user32" Alias _
"SetWindowLongA" (ByVal hwnd&, ByVal nIndex&, ByVal wNewWord&)
Private Declare Function FindWindow& Lib "user32" Alias _
"FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String)
Private Declare Function EnableWindow& Lib "user32" (ByVal hwnd&, ByVal
fEnable&)
Private Sub UserForm_Initialize()
Dim hwnd As Long
hwnd = FindWindow(vbNullString, Me.Caption)
SetWindowLong hwnd, -16, &H84CA0080
EnableWindow hwnd, 1
End Sub
Dans le module standard:
Sub ShowNoModalForm()
#If VBA6 Then
UserForm1.Show 0
#Else
UserForm1.Show
#End If
End Sub
MP
"GIBI68" <jean-michel.ber@sonoma.fr> a écrit dans le message de
news:eHWsxGpEFHA.480@TK2MSFTNGP10.phx.gbl...
Bonjour à tous,
Suis-je obligé de passer par les codes API de Windows (que je ne
maîtrise
pas du tout) pour ajouter à la croix de fermeture le tiret de réduction
?
bonjour, Merci pour cette solution J'ai sans doute mal recopié ou compris car j'ai un message d'erreur : Seuls des commentaires peuvent apparaître après end -sub quand je compile
Merci encore JM
"Michel Pierron" a écrit dans le message de news:
Bonsoir GIBI68; Dans le module UserForm: Private Declare Function SetWindowLong& Lib "user32" Alias _ "SetWindowLongA" (ByVal hwnd&, ByVal nIndex&, ByVal wNewWord&) Private Declare Function FindWindow& Lib "user32" Alias _ "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) Private Declare Function EnableWindow& Lib "user32" (ByVal hwnd&, ByVal fEnable&)
Private Sub UserForm_Initialize() Dim hwnd As Long hwnd = FindWindow(vbNullString, Me.Caption) SetWindowLong hwnd, -16, &H84CA0080 EnableWindow hwnd, 1 End Sub
Dans le module standard: Sub ShowNoModalForm() #If VBA6 Then UserForm1.Show 0 #Else UserForm1.Show #End If End Sub
MP
"GIBI68" a écrit dans le message de news:
Bonjour à tous,
Suis-je obligé de passer par les codes API de Windows (que je ne maîtrise
pas du tout) pour ajouter à la croix de fermeture le tiret de réduction ?
Si non une piste ....
Merci Bonne journée JM
GIBI68
Merci pour tout Bonne journée JM
"anonymousA" a écrit dans le message de news: 4210eb3f$0$17295$
Bonjour,
sur le site de Ivan Moala (faire une recherche sur Google), tu trouveras une xemple qui fonctionne avec Excel 2000 de lapossibilité de minimiser un userform dans la barre des taches. Très bien fait.
A+
Bonjour à tous,
Suis-je obligé de passer par les codes API de Windows (que je ne maîtrise
pas du tout) pour ajouter à la croix de fermeture le tiret de réduction ?
Si non une piste ....
Merci Bonne journée JM
Merci pour tout
Bonne journée
JM
"anonymousA" <anonymousA@wanadoo.fr> a écrit dans le message de news:
4210eb3f$0$17295$8fcfb975@news.wanadoo.fr...
Bonjour,
sur le site de Ivan Moala (faire une recherche sur Google), tu trouveras
une xemple qui fonctionne avec Excel 2000 de lapossibilité de minimiser
un userform dans la barre des taches.
Très bien fait.
A+
Bonjour à tous,
Suis-je obligé de passer par les codes API de Windows (que je ne
maîtrise
pas du tout) pour ajouter à la croix de fermeture le tiret de réduction
?
"anonymousA" a écrit dans le message de news: 4210eb3f$0$17295$
Bonjour,
sur le site de Ivan Moala (faire une recherche sur Google), tu trouveras une xemple qui fonctionne avec Excel 2000 de lapossibilité de minimiser un userform dans la barre des taches. Très bien fait.
A+
Bonjour à tous,
Suis-je obligé de passer par les codes API de Windows (que je ne maîtrise
pas du tout) pour ajouter à la croix de fermeture le tiret de réduction ?
