XL 2016 affichage excel sur écran

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 11 Février 2019

• #2

Bonjour à toutes et à tous,

Je vous souhaite une très belle journée

Peut-être pas de solution ?
amicalement,
arthour973,

 

Dernière édition: 11 Février 2019

Vote positif 0 Vote négatif

Simply

XLDnaute Occasionnel

• 11 Février 2019

• #3

Hi,

https://www.eizoglobal.com/library/basics/windows-10-multi-display-function/index.html

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 11 Février 2019

• #4

Bonjour Pierre,

Merci encore une fois d'être là.
Je vais tester et je reviens te dire dès que je peux
Amicalement,
arthour973

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 11 Février 2019

• #5

Re-Pierre,

J'ai mis ton code dans un module standard.

Je n'arrive pas à l'affecter à un bouton (elle n'apparaît pas dans la liste des macros).

Surement un truc que je n'ai encore pas compris LOL

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 11 Février 2019

• #6

LOL, je ne savais pas
Merci Pierre

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 11 Février 2019

• #7

Re-Pierre désolé d'y revenir.

Chez moi, ça beugue :

Code:

ub Fenetre(x As Byte)
Static Lrg As Single, Htr As Single
    With Application
        If x = 0 Then
            Lrg = .Width
            Htr = .Height
            .Width = 100
            .Height = 100
            .Top = 20
            .Left = 20
        Else
            .Width = Lrg
            .Height = Htr
        End If
    End With
End Sub

.Width = 100
Et quand je ferme, ça beugue là :
.Width = Lrg

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 11 Février 2019

• #8

Je suis vraiment désolé Pierre
ça beugue chez moi même avec ton fichier.
Voir photo ci-dessous :

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 11 Février 2019

• #9

Vraiment merci Pierre... pour ta technique et ta patience LOL
ça marche

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 11 Février 2019

• #10

LOL, il me semble que c'est encore mieux comme ça :

Code:

Private Sub Workbook_Open()
    With ActiveWindow
        .WindowState = xlNormal
        Application.Left = 10
        Application.Top = 1
        Application.Width = 950 'largeur
        Application.Height = 675 'hauteur
    End With
End Sub

Vraiment un grand merci à toi

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 12 Février 2019

• #11

Bonjour Pierre
Bonjour à toutes et à tous,

Encore merci Pierre ton code fonctionne parfaitement mais .....
Si j'y reviens c'est qu'il me reste un souci.

Nous avons besoin d'afficher le classeur excel de travail sur des ordinateurs avec des écrans de tailles différentes.

Est-il possible de faire en sorte que l'affichage (sans modifier la hauteur et largeur codées)
soit exécuté en fonction de la taille de l'écran de l'ordi ?
C'est à dire affichage plein écran uniquement en hauteur.

Je dois pousser le bouchon un peu loin mais avec les magiciens tout est possible LOL

Avec mes remerciements,
Bonne journée à toutes et à tous,
amicalement,
arthour973

 

Dernière édition: 12 Février 2019

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 12 Février 2019

• #12

Bonjour Pierre,
Dieux du ciel que suis-je bête (ou la fatigue) je préfère la fatigue.
Bon sang, mais c'est bien sûr, il faut le faire à l'envers
Merci Pierre.

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 12 Février 2019

• #13

Bon sang de bonsoir ..... Génial.
Encore merci Pierre

 

Vote positif 0 Vote négatif