XL 2019 Masquer la bordure de la cellule active

  • Initiateur de la discussion Initiateur de la discussion pat66
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

pat66

XLDnaute Impliqué
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
 
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
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour