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
- Double ecran - Guide
- Liste déroulante excel - Guide
- Déplacer une colonne excel - Guide
- Capture d'écran whatsapp - Accueil - Messagerie instantanée
- Mise en forme conditionnelle excel - Guide
3 réponses
cs_Le Pivert
Messages postés
7904
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 août 2024
729
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
7904
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 août 2024
729
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
7904
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 août 2024
729
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.