XL 2019 Masquer la bordure de la cellule active

[pat66]

Bonjour le forum

je souhaiterai que les bordures de Range("A:AB").Select ou de Range("A1").Select disparaissent car à l'affichage de la feuille qui est sur un fond bleu foncé, ce n'est pas très joli

Je vous remercie d'avance pour votre aide

Pat66

voila la macro que j'utilise :

Private Sub Worksheet_Activate()
Range("A:AB").Select
ActiveWindow.Zoom = True
ScrollArea = "A1:AB77"
Range("A1").Select
End Sub

 

[patricktoulon]

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

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

 

[job75]

Bonjour pat66

ce n'est pas très joli

Et comme ça :

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+

 

[patricktoulon]

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

 

[job75]

Bonjour patricktoulon, pas rafraîchi,

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

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

 

[patricktoulon]

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

 

[patricktoulon]

re
c'est bien vu l'astuce

 

[pat66]

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