Zoom sur ligne

[Florian53]

Bonjour à tous je dispose d'un code qui me permet de zoomer sur la cellule active, je voudrais le transformer afin de zoomer toute la ligne qui correspond a la cellule active.

Voici le code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("C6:H50").Font.Size = 11
If Not Intersect(Target, Range("A1:Z50000")) Is Nothing Then Target.Font.Size = 35
End Sub

Mercià vous

 

[CIFACILE]

Re : Zoom sur ligne

Bonsoir le Forum et Florian

un :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("C6:H50").Font.Size = 11
If Not Intersect(Target, Range("A1:Z50000")) Is Nothing Then Rows(Target.Row).Font.Size = 35
End Sub

Ferait-il l'affaire ?

Bien cordialement
@+
6F

 

[Staple1600]

Re : Zoom sur ligne

Bonsoir

Ou cela 😀

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[C6:H50].Font.Size = 11
Dim r As Range: Set r = Target
Rows(r.Row).Font.Size = 34 + (Not Intersect(r, [A1:Z50000]) <> "")
End Sub

 

[BOISGONTIER]

Re : Zoom sur ligne

Bonjour,

http://boisgontierjacques.free.fr/fichiers/Images/LoupeFiche.xls

http://boisgontierjacques.free.fr/fichiers/Images/LoupeFiche2.xls


JB

 

[CIFACILE]

Re : Zoom sur ligne

Bonjour à tous,

Une petite recherche dans mes reserves me permet de vous proposer l'excellente solution de Didier

Option Explicit
'---------------------------------------------------------------------------------------
' Auteur : Didier FOURGEOT (myDearFriend!)
' Date : 02/11/2005
' Sujet : mDF_Loupe
'---------------------------------------------------------------------------------------
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Application.ScreenUpdating = False
Static AncCell As Range
If Not AncCell Is Nothing Then
With AncCell
.ColumnWidth = .ColumnWidth / 2
.RowHeight = .RowHeight / 2
.Font.Size = .Font.Size / 2
End With
End If
With Target
.ColumnWidth = .ColumnWidth * 2
.RowHeight = .RowHeight * 2
.Font.Size = .Font.Size * 2
End With
Set AncCell = Target
Application.ScreenUpdating = True
End Sub

Mais aussi,
de venir présenter toutes mes excuses à Jacques BoisGontier (qui nous propse une solution très utile que je vais mettre en pratique rapidement (super le coup de l'étiquette "flottante") ) qui avait pris la peine de me repondre pour une question sur la décomposition d'une cellule en mots.
J'avais laissé tombé temporairement vu la difficulté du problème et cette recherche a été l'occasion de découvrir qu'une bonne âme s'était penchée non sur mon berceau mais sur mes malheurs ....
Encore un grand Merci je vais reprendre le boulot là dessus...

@+ 6F