Vba pour afficher une feuil excel en plein ecran
Résolu/Fermé
achgel
Messages postés
108
Date d'inscription
mercredi 26 août 2009
Statut
Membre
Dernière intervention
25 octobre 2019
-
Modifié par pijaku le 17/05/2016 à 12:33
achgel Messages postés 108 Date d'inscription mercredi 26 août 2009 Statut Membre Dernière intervention 25 octobre 2019 - 19 mai 2016 à 12:32
achgel Messages postés 108 Date d'inscription mercredi 26 août 2009 Statut Membre Dernière intervention 25 octobre 2019 - 19 mai 2016 à 12:32
A voir également:
- Vba pour afficher une feuil excel en plein ecran
- Ce programme est écrit en python. il construit un mot secret dans une variable mais il ne l'affiche pas. modifiez-le pour qu'il affiche le mot secret. exécutez-le. quel est ce mot secret ? ✓ - Forum Python
- Liste déroulante excel - Guide
- Formule excel - Guide
- Ecran noir pc - Guide
- Retourner ecran windows - Guide
3 réponses
cs_Le Pivert
Messages postés
7883
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
18 mars 2023
724
17 mai 2016 à 11:27
17 mai 2016 à 11:27
Bonjour,
Avec un UserForm et 2 commandbutton
essaie ceci à adapter :
Avec un UserForm et 2 commandbutton
essaie ceci à adapter :
Option Explicit
Private Declare Function FindWindowA Lib "user32" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLongA Lib "user32" _
(ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLongA Lib "user32" _
(ByVal hWnd As Long, ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long
'plein écran
Private Sub CommandButton1_Click()
Dim hWnd As Long
hWnd = FindWindowA(vbNullString, Application.Caption)
SetWindowLongA hWnd, -16, GetWindowLongA(hWnd, -16) And &HFFF7FFFF
'plein écran
Application.DisplayFullScreen = True
'Masquer le quadrillage
ActiveWindow.DisplayGridlines = False
' Masquer les en-têtes
ActiveWindow.DisplayHeadings = False
' Masquer les barres de défilement
ActiveWindow.DisplayHorizontalScrollBar = False
ActiveWindow.DisplayVerticalScrollBar = False
' Masquer les onglets de classeur
ActiveWindow.DisplayWorkbookTabs = False
End Sub
'rétablir
Private Sub CommandButton2_Click()
Dim hWnd As Long
hWnd = FindWindowA(vbNullString, Application.Caption)
SetWindowLongA hWnd, -16, GetWindowLongA(hWnd, -16) Or &H80000
'plein écran
Application.DisplayFullScreen = False
'Masquer le quadrillage
ActiveWindow.DisplayGridlines = True
' Masquer les en-têtes
ActiveWindow.DisplayHeadings = True
' Masquer les barres de défilement
ActiveWindow.DisplayHorizontalScrollBar = True
ActiveWindow.DisplayVerticalScrollBar = True
' Masquer les onglets de classeur
ActiveWindow.DisplayWorkbookTabs = True
End Sub
cs_Le Pivert
Messages postés
7883
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
18 mars 2023
724
17 mai 2016 à 16:29
17 mai 2016 à 16:29
Mettre dans un module:
mettre dans ThisWorkbook:
Pour fermer le classeur clic droit sur la feuille: Fermer le plein écran
Voilà
Option Explicit
Private Declare Function FindWindowA Lib "user32" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLongA Lib "user32" _
(ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLongA Lib "user32" _
(ByVal hWnd As Long, ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long
Dim hWnd As Long
'plein écran
Sub pleinecran()
hWnd = FindWindowA(vbNullString, Application.Caption)
Application.DisplayAlerts = False
SetWindowLongA hWnd, -16, GetWindowLongA(hWnd, -16) And &HFFF7FFFF
'plein écran
Application.DisplayFullScreen = True
'Masquer le quadrillage
ActiveWindow.DisplayGridlines = False
' Masquer les en-têtes
ActiveWindow.DisplayHeadings = False
' Masquer les barres de défilement
ActiveWindow.DisplayHorizontalScrollBar = False
ActiveWindow.DisplayVerticalScrollBar = False
' Masquer les onglets de classeur
ActiveWindow.DisplayWorkbookTabs = False
Application.DisplayAlerts = True
End Sub
'rétablir
Sub retablir()
Application.DisplayAlerts = False
hWnd = FindWindowA(vbNullString, Application.Caption)
SetWindowLongA hWnd, -16, GetWindowLongA(hWnd, -16) Or &H80000
'plein écran
Application.DisplayFullScreen = False
'Masquer le quadrillage
ActiveWindow.DisplayGridlines = True
' Masquer les en-têtes
ActiveWindow.DisplayHeadings = True
' Masquer les barres de défilement
ActiveWindow.DisplayHorizontalScrollBar = True
ActiveWindow.DisplayVerticalScrollBar = True
' Masquer les onglets de classeur
ActiveWindow.DisplayWorkbookTabs = True
Application.DisplayAlerts = True
End Sub
mettre dans ThisWorkbook:
Option Explicit Private Sub Workbook_BeforeClose(Cancel As Boolean) retablir End Sub Private Sub Workbook_Open() pleinecran End Sub
Pour fermer le classeur clic droit sur la feuille: Fermer le plein écran
Voilà
achgel
Messages postés
108
Date d'inscription
mercredi 26 août 2009
Statut
Membre
Dernière intervention
25 octobre 2019
1
19 mai 2016 à 12:32
19 mai 2016 à 12:32
Bonjour cs_Le Pivert
Merci pour votre aide
j'ai utiliser votre macro pour afficher le plain écran
c'est vraiment très gentille de votre part
Merci pour votre aide
j'ai utiliser votre macro pour afficher le plain écran
c'est vraiment très gentille de votre part
cs_Le Pivert
Messages postés
7883
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
18 mars 2023
724
17 mai 2016 à 17:02
17 mai 2016 à 17:02
Tu peux aussi attribuer un raccourci clavier à tes macro.
voir ici:
http://www.info-3000.com/vbvba/raccourciclavier.php
voir ici:
http://www.info-3000.com/vbvba/raccourciclavier.php
17 mai 2016 à 15:33
Content de vous retrouver sur CCM
Et merci pour votre réponse
Au fait j'aimerais bien savoir si je pourrais avoir un affichage plein écran sans passer par des commandbutton.