XL 2019 Masquer la bordure de la cellule active

patricktoulon

XLDnaute Barbatruc

• 10 Septembre 2021

• #2

Bonjour
et bien c'est simple
tu ne select pas!!! et tu ne zoom pas a true sur selection!!!!
tu calcule la différence de width entre le visiblerange quand le zoom est à 100 e le width de A:AB
et tu applique le coeff
moyennant comment connaitre les partie de l'application usable a éliminer du calcul

donc

VB:

Sub test()
    zooming_columns Range("A:AB")
End Sub

Function zooming_columns(rng As Variant)
    Dim p_topx, marge#
    Dim coeff#
    With ActiveWindow
        .Zoom = 100
        p_topx = (.ActivePane.PointsToScreenPixelsX(72) - .ActivePane.PointsToScreenPixelsX(0)) / 72
        marge = ((.ActivePane.PointsToScreenPixelsX(0) / p_topx) - Application.Left) * (1 + (Abs(ActiveWindow.DisplayVerticalScrollBar)))
        If TypeName(rng) = "Range" Then
            coeff = (Application.UsableWidth - marge) / rng.Width
            .Zoom = 100 * coeff
        Else
            .Zoom = 100
        End If
    End With
    [A1].Select

    ActiveSheet.ScrollArea = "A1:AB77"
End Function

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 10 Septembre 2021

• #3

Bonjour pat66

pat66 à dit:

ce n'est pas très joli

Cliquez pour agrandir...

Et comme ça :

VB:

Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
Application.Goto Range("A1:AB1"), True 'cadrage
ActiveWindow.Zoom = True
ScrollArea = "A1:AB77"
Range("A77").Select
End Sub

A+

 

Vote positif 0 Vote négatif

Solution

patricktoulon

XLDnaute Barbatruc

• 10 Septembre 2021

• #4

ah!! oui pas mal @job75

si je comprends bien dans ce code le application goto fait pareil que select sans selectionner
ps le screenupdating =false est superflu chez moi

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 10 Septembre 2021

• #5

Bonjour patricktoulon, pas rafraîchi,

patricktoulon à dit:

si je comprends bien dans ce code le application goto fait pareil que select sans selectionner

Cliquez pour agrandir...

Allons donc, bien sûr que ça sélectionne !

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 10 Septembre 2021

• #6

re
autant pour moi c'est le A77 qui n'est pas visible le dernier sélectionné

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 10 Septembre 2021

• #7

re
c'est bien vu l'astuce

 

Vote positif 0 Vote négatif

P

pat66

XLDnaute Impliqué

• 11 Septembre 2021

• #8

Bonjour le fil,

un grand merci à tous les deux.
Par joli je sous entendais "pas esthétique" bien sur

Je n'ai pas essayé la solution de patricktoulon car la celle de job75 me parait beaucoup plus simple, c'est donc celle là que j'ai tésté et qui fonctionne très bien

belle journée

pat66

 

Vote positif 0 Vote négatif