XL 2016 affichage excel sur écran

arthour973

XLDnaute Barbatruc
Bonsoir à toutes et à tous,

J'ai un souci de confort et je me tourne à nouveau vers la magie ;)

Vous l'avez certainement compris depuis longtemps, je travaille par téléphone.
Mon téléphone est un téléphone par internet et le softphone (c'est son nom) est installé sur mon ordi.

Pour voir en même temps mon classeur excel et mon téléphone (sans avoir à jongler en permanence), j'ai besoin d'afficher excel et mon softphone comme sur la capture d'écran jointe :
affichage_excel.jpg


En fait c'est peut-être sur l'application qu'il faut agir et malgré mes recherches, je n'ai pas trouvé comment coder ... si coder est possible ?

Auriez-vous une solution vba pour afficher excel sur une partie de l'écran ?
Avec mes remerciements,
Je vous souhaite à toutes et à tous une bonne soirée :)
amicalement,
arthour973,
 

Fichiers joints

Dernière édition:

arthour973

XLDnaute Barbatruc
Bonjour à toutes et à tous,

Je vous souhaite une très belle journée :)

Peut-être pas de solution ?
amicalement,
arthour973,
 
Dernière édition:

tatiak

XLDnaute Barbatruc
Bonjour

En direct d'une de mes appli, la procédure suivante qu'on appelle soit par
Fenetre 0 => pour réduire
Fenetre 1 => pour revenir aux dimensions d'origine
VB:
' *****        CODE PierreP56 : http://tatiak.canalblog.com/
Sub 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
Les valeurs 100 et 20 sont évidemment modifiables
Pierre
 

arthour973

XLDnaute Barbatruc
Bonjour Pierre,

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

arthour973

XLDnaute Barbatruc
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 :confused: LOL
 

tatiak

XLDnaute Barbatruc
Par exemple, tout simplement dans le module ThisWorkbook :
VB:
Private Sub Workbook_Open()
    Fenetre 0
End Sub


Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Fenetre 1
End Sub
pour activation auto à l'ouverture et retour à la normale à la fermeture

Pierre
 

arthour973

XLDnaute Barbatruc
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

:)
 

tatiak

XLDnaute Barbatruc
Alors avec un test de l'état de la fenêtre :
VB:
' *****        CODE PierreP56 : http://tatiak.canalblog.com/
Private Sub Workbook_Open()
    With ActiveWindow
         .WindowState = xlNormal
        .Height = 400
        .Width = 600
        .Top = 10
        .Left = 10
    End With
End Sub
 

arthour973

XLDnaute Barbatruc
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 :)
 

arthour973

XLDnaute Barbatruc
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:

tatiak

XLDnaute Barbatruc
Tu peux faire comme ceci :
VB:
Dim Lrg As Single

    With ActiveWindow
        .WindowState = xlMaximized
        Lrg = .Width
        .WindowState = xlNormal
        .Width = Lrg * 75 / 100
    End With
De cette façon la fenêtre Excel sera à 75% de la largeur de n'importe quel écran
Et tu peux modifier, par ex 80% => .Width = Lrg * 80 / 100
Pierre
 

arthour973

XLDnaute Barbatruc
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.
 

tatiak

XLDnaute Barbatruc
Comme ceci c'est mieux
VB:
Dim Lrg As Single, Htr As Single
    With ActiveWindow
        .WindowState = xlMaximized
        Lrg = .Width
        Htr = .Height
        .WindowState = xlNormal
        .Width = Lrg * 75 / 100
        .Height = Htr
    End With
 

Discussions similaires


Haut Bas