Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Fonction Popup

Fonction Popup

4 réponses
Avatar
bouak
Bonjour,

SVP y a t'il une fonction Popup pour classeurexcel, afin de l'avoir toujours
apparent sur les autres fenêtres présentent à l'écran.

Merci de votre réponse

--
bouak
Signaler un problème avec ce contenu

4 réponses

Supprimer
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
Avatar
Hervé
Bonsoir,
Tu veux quoi au premier plan, Excel ou autre chose ? Si c'est Excel, teste
ce qui suit sinon, reviens :

Declare Function SetWindowPos _
Lib "user32" ( _
ByVal hwnd As Long, _
ByVal hWndInsertAfter As Long, _
ByVal x As Long, _
ByVal y As Long, _
ByVal cx As Long, _
ByVal cy As Long, _
ByVal wFlags As Long) As Long


Private Function PremierPlan(hwnd As Long, _
PremPlan As Boolean)

PremierPlan = SetWindowPos(hwnd, IIf(PremPlan, -1, -2), 0, 0, 0, 0, 0)

End Function

Sub Affichage()
PremPlan As Boolean
'pour mettre l'appli au premier plan
PremPlan = True
'pour un fonctionnement normal
'PremPlan = False

PremierPlan Application.hwnd, PremPlan

End Sub

Hervé.

"bouak" a écrit dans le message de news:

Bonjour,

SVP y a t'il une fonction Popup pour classeurexcel, afin de l'avoir
toujours
apparent sur les autres fenêtres présentent à l'écran.

Merci de votre réponse

--
bouak


Avatar
bouak
Bonjour Hervé,

Merci de ton aide.

Ce que je veux en premier plan c’est le classeur Excel dans lequel j’ai
inséré ta codification mais le classeur ne reste pas en premier plan sur les
autres fenêtres ouvertes (style word.doc ou autres).
A cette URL http://cjoint.com/?cvlLLZoQzt tu peux regarder le classeur
dans lequel j’ai peut être mal inséré ta codification.

Merci

--
bouak



Bonsoir,
Tu veux quoi au premier plan, Excel ou autre chose ? Si c'est Excel, teste
ce qui suit sinon, reviens :

Declare Function SetWindowPos _
Lib "user32" ( _
ByVal hwnd As Long, _
ByVal hWndInsertAfter As Long, _
ByVal x As Long, _
ByVal y As Long, _
ByVal cx As Long, _
ByVal cy As Long, _
ByVal wFlags As Long) As Long


Private Function PremierPlan(hwnd As Long, _
PremPlan As Boolean)

PremierPlan = SetWindowPos(hwnd, IIf(PremPlan, -1, -2), 0, 0, 0, 0, 0)

End Function

Sub Affichage()
PremPlan As Boolean
'pour mettre l'appli au premier plan
PremPlan = True
'pour un fonctionnement normal
'PremPlan = False

PremierPlan Application.hwnd, PremPlan

End Sub

Hervé.

"bouak" a écrit dans le message de news:

Bonjour,

SVP y a t'il une fonction Popup pour classeurexcel, afin de l'avoir
toujours
apparent sur les autres fenêtres présentent à l'écran.

Merci de votre réponse

--
bouak







Avatar
Hervé
Bonsoir Bouak,
Effectivement, il y a une petite erreur dans la proc "Affichage" (dans la
déclaration de la variable), par contre, dés que la proc est exécutée, chez
moi le classeur est réduit mais sitôt qu'on l'agrandit Excel reste toujours
au premier plan même en lançant Word, l'explorateur et bien d'autre
programmes :

Sub Affichage()
Dim PremPlan As Boolean
'pour mettre l'appli au premier plan
'PremPlan = True
'pour un fonctionnement normal
PremPlan = False

PremierPlan Application.hwnd, PremPlan

End Sub

Hervé.

"bouak" a écrit dans le message de news:

Bonjour Hervé,

Merci de ton aide.

Ce que je veux en premier plan c'est le classeur Excel dans lequel j'ai
inséré ta codification mais le classeur ne reste pas en premier plan sur
les
autres fenêtres ouvertes (style word.doc ou autres).
A cette URL http://cjoint.com/?cvlLLZoQzt tu peux regarder le classeur
dans lequel j'ai peut être mal inséré ta codification.

Merci

--
bouak



Bonsoir,
Tu veux quoi au premier plan, Excel ou autre chose ? Si c'est Excel,
teste
ce qui suit sinon, reviens :

Declare Function SetWindowPos _
Lib "user32" ( _
ByVal hwnd As Long, _
ByVal hWndInsertAfter As Long, _
ByVal x As Long, _
ByVal y As Long, _
ByVal cx As Long, _
ByVal cy As Long, _
ByVal wFlags As Long) As Long


Private Function PremierPlan(hwnd As Long, _
PremPlan As Boolean)

PremierPlan = SetWindowPos(hwnd, IIf(PremPlan, -1, -2), 0, 0, 0, 0, 0)

End Function

Sub Affichage()
PremPlan As Boolean
'pour mettre l'appli au premier plan
PremPlan = True
'pour un fonctionnement normal
'PremPlan = False

PremierPlan Application.hwnd, PremPlan

End Sub

Hervé.

"bouak" a écrit dans le message de
news:

Bonjour,

SVP y a t'il une fonction Popup pour classeurexcel, afin de l'avoir
toujours
apparent sur les autres fenêtres présentent à l'écran.

Merci de votre réponse

--
bouak









Avatar
Hervé
Re,
Je te reposte le code complet que je viens de modifier pour que
l'application ne se réduise pas et que tu puisse utiliser un bouton pour
changer de mode plus facilement. Adapte à tes besions :

Declare Function SetWindowPos _
Lib "user32" ( _
ByVal hwnd As Long, _
ByVal hWndInsertAfter As Long, _
ByVal x As Long, _
ByVal y As Long, _
ByVal cx As Long, _
ByVal cy As Long, _
ByVal wFlags As Long) As Long


Private Function PremierPlan(hwnd As Long, _
PremPlan As Boolean)

PremierPlan = SetWindowPos(hwnd, _
IIf(PremPlan, _
-1, _
-2), _
0, _
0, _
0, _
0, _
&H2 Or &H1)

End Function

Sub Affichage()
'Static garde en mémoire la valeur
Static PremPlan As Boolean
'pour mettre l'appli au premier plan
'PremPlan = True
'pour un fonctionnement normal
'PremPlan = False
'si à chaque clic tu veux changer de mode
PremPlan = Not PremPlan

PremierPlan Application.hwnd, PremPlan

End Sub

Hervé.

"Hervé" a écrit dans le message de news:
%
Bonsoir Bouak,
Effectivement, il y a une petite erreur dans la proc "Affichage" (dans la
déclaration de la variable), par contre, dés que la proc est exécutée,
chez moi le classeur est réduit mais sitôt qu'on l'agrandit Excel reste
toujours au premier plan même en lançant Word, l'explorateur et bien
d'autre programmes :

Sub Affichage()
Dim PremPlan As Boolean
'pour mettre l'appli au premier plan
'PremPlan = True
'pour un fonctionnement normal
PremPlan = False

PremierPlan Application.hwnd, PremPlan

End Sub

Hervé.

"bouak" a écrit dans le message de news:

Bonjour Hervé,

Merci de ton aide.

Ce que je veux en premier plan c'est le classeur Excel dans lequel j'ai
inséré ta codification mais le classeur ne reste pas en premier plan sur
les
autres fenêtres ouvertes (style word.doc ou autres).
A cette URL http://cjoint.com/?cvlLLZoQzt tu peux regarder le classeur
dans lequel j'ai peut être mal inséré ta codification.

Merci

--
bouak



Bonsoir,
Tu veux quoi au premier plan, Excel ou autre chose ? Si c'est Excel,
teste
ce qui suit sinon, reviens :

Declare Function SetWindowPos _
Lib "user32" ( _
ByVal hwnd As Long, _
ByVal hWndInsertAfter As Long, _
ByVal x As Long, _
ByVal y As Long, _
ByVal cx As Long, _
ByVal cy As Long, _
ByVal wFlags As Long) As Long


Private Function PremierPlan(hwnd As Long, _
PremPlan As Boolean)

PremierPlan = SetWindowPos(hwnd, IIf(PremPlan, -1, -2), 0, 0, 0, 0, 0)

End Function

Sub Affichage()
PremPlan As Boolean
'pour mettre l'appli au premier plan
PremPlan = True
'pour un fonctionnement normal
'PremPlan = False

PremierPlan Application.hwnd, PremPlan

End Sub

Hervé.

"bouak" a écrit dans le message de
news:

Bonjour,

SVP y a t'il une fonction Popup pour classeurexcel, afin de l'avoir
toujours
apparent sur les autres fenêtres présentent à l'écran.

Merci de votre réponse

--
bouak