Page blanche derrière un userform

Bonjour,

Dans un userform:

Private Declare Function GetDC Lib "User32" (ByVal hWnd As Long) As
Long

Private Declare Function GetDeviceCaps Lib "Gdi32" (ByVal hdc As Long,
_
ByVal nIndex As Long) As Long

Private Declare Function ReleaseDC Lib "User32" (ByVal hWnd As Long, _
ByVal hdc As Long) As Long

Private Sub UserForm_Initialize()
Dim DC As Long
DC = GetDC(0)
Me.Width = GetDeviceCaps(DC, 8) / GetDeviceCaps(DC, 88) * 72
Me.Height = GetDeviceCaps(DC, 10) / GetDeviceCaps(DC, 90) * 72
ReleaseDC 0, DC


End Sub

'Cordialement.

lSteph


rene.calvinhac a exposé le 14/10/2006 :

Bonjour,

J'ai fait une application sous VBA Excel. Lorsque je clique sur un raccourci
sur mon bureau, un userform s'ouvre mais en arrière plan je vois le tableau
Excel. Comment puis-je faire apparaitre seul mon userform ou bien masquer le
tableau Excel par une page blanche qui remplirait tout l'écran ?

Merci de votre aide.

René

--
- -

lSteph

Bonsoir rene

Avec ceci :

Private Sub UserForm_Initialize()

Application.Visible= false

End Sub


j-p

Bonjour JpP,

;-)
Dis lui aussi ce qu'il fallait prévoir...avant!

Private Sub Userform_terminate()
application.visible=true
end sub


Amicales salutations.

lSteph
(il t'en coutera une bière à la prochaine au pub du port)





JpPradier avait écrit le 14/10/2006 :

Bonsoir rene

Avec ceci :

Private Sub UserForm_Initialize()

Application.Visible= false

End Sub


j-p

--
- -

lSteph

Bonsoir lSteph

oui, tu as raison, c'est mieux d'y penser avant ;-)

j-p

Quand à la prochaine bière, j'ai cru entr'apercevoir que ce serait plutot sur le port des
bateaux-mouche.

Alors ça c'est une bonne nouvelle!
Bonne soirée.

lSteph



JpPradier vient de nous annoncer :

Bonsoir lSteph

oui, tu as raison, c'est mieux d'y penser avant ;-)

j-p

Quand à la prochaine bière, j'ai cru entr'apercevoir que ce serait plutot sur
le port des bateaux-mouche.

--
- -

lSteph

hello

quel port ? quelle ville ?

;-) mac

Il se trouve que JpPradier a formulé :

Bonsoir lSteph

oui, tu as raison, c'est mieux d'y penser avant ;-)

j-p

Quand à la prochaine bière, j'ai cru entr'apercevoir que ce serait plutot sur
le port des bateaux-mouche.

Salut Mac

Des bateaux-mouche(s ?), je n'en connais que dans une ville. Je faisais référence au fil
(que je n'ai pas lu, puisque PaulV a dit de ne pas le lire ;-) ) ou tu disais que la date
ne colle pas pour toi.

j-p

Le 15/10/2006, JpPradier a supposé :

Salut Mac

Des bateaux-mouche(s ?), je n'en connais que dans une ville. Je faisais
référence au fil (que je n'ai pas lu, puisque PaulV a dit de ne pas le lire
;-) ) ou tu disais que la date ne colle pas pour toi.

j-p

Alors vraiment snif s'il s'agit de cette date qui ne me convient pas...
Paul m'a envoyé les liens de vos photos de petites rigolades
gustato-culturelles et je me disais dans mon fortin térieur que je
ferais bien votre connaissance IRL...

Spa grave, ce n'est que partie remise au pis-aller.

mac :-)

PS : pour les bateaux mouches, il me semblait bien aussi mais bon, je
suis encore jeune et je suis pas bon en géographie alors je me disais
que j'avais ptet râté quelque chose à l'école 8-o lol ;-)

Très bien JP :-)

A+

Paul V, jour J -5

"JpPradier" <jp.pradier.JVeuxPasDeSpam@wanadoo.fr> a écrit dans le message
de news: ORCcJ4B8GHA.2120@TK2MSFTNGP03.phx.gbl...

Salut Mac

Des bateaux-mouche(s ?), je n'en connais que dans une ville. Je faisais
référence au fil
(que je n'ai pas lu, puisque PaulV a dit de ne pas le lire ;-) ) ou tu
disais que la date
ne colle pas pour toi.

j-p

Bonjour,
:-? j'ai beau chercher je ne trouve de date d'un lieu évoquée nulle
part.
Quelqu'un sur ce fil pourrait-il préciser.

Merci d'avance.

lSteph


lSteph a formulé la demande :

Bonjour JpP,

;-)
Dis lui aussi ce qu'il fallait prévoir...avant!

Private Sub Userform_terminate()
application.visible=true
end sub


Amicales salutations.

lSteph
(il t'en coutera une bière à la prochaine au pub du port)





JpPradier avait écrit le 14/10/2006 :

Bonsoir rene

Avec ceci :

Private Sub UserForm_Initialize()
Application.Visible= false

End Sub


j-p

--
- -

lSteph