paskikic
XLDnaute Occasionnel
bonsoir les xlnautes
j aimerais savoir comment on peut dezoomer quand on valide une cellule
j ai reussi a zoomer voici mon code :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("D7,F23,F27,R23,R27,AD23,AD27,B38,N38,AA38,B46,N46,AA46,B61,R61,Y61,AC61,B76,S76,B84,S84,B92,S92")) Is Nothing Then
ActiveWorkbook.CustomViews.Add ViewName:="x", PrintSettings:=True, _
RowColSettings:=True
ActiveWindow.Zoom = 300
End If
End Sub
MERCI A VOUS
j aimerais savoir comment on peut dezoomer quand on valide une cellule
j ai reussi a zoomer voici mon code :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("D7,F23,F27,R23,R27,AD23,AD27,B38,N38,AA38,B46,N46,AA46,B61,R61,Y61,AC61,B76,S76,B84,S84,B92,S92")) Is Nothing Then
ActiveWorkbook.CustomViews.Add ViewName:="x", PrintSettings:=True, _
RowColSettings:=True
ActiveWindow.Zoom = 300
End If
End Sub
MERCI A VOUS