Private Sub Worksheet_Activate()
Dim Shap, d
Application.ScreenUpdating = False
zoomexequo
Range("A1").Select
Application.ScreenUpdating = True
BubleWaterWatch_GO_Range
DoEvents
With ActiveSheet
Set Shap = .Shapes("image 4")
d = GetDimPositionShapeCenterRange([b9:f22], Shap)
Shap.Left = d(0): Shap.Top = d(1): Shap.Width = d(2)
End With
End Sub
'*******************************************************
Private Sub Worksheet_Deactivate()
dimOriginale
End Sub
'*******************************************************
Sub zoomexequo()
Dim RnG As Range, RnG2
Application.DisplayFullScreen = True
Set RnG = [A1:U32]
With RnG
.RowHeight = 15: .ColumnWidth = 10.71
Set RnG2 = ActiveWindow.Panes(1).VisibleRange
Set RnG2 = RnG2.Resize(, RnG2.Columns.Count)
coeffw = RnG2.Width / .Width
coeffh = RnG2.Height / .Height
.RowHeight = .RowHeight * coeffh
.ColumnWidth = .ColumnWidth * coeffw
End With
End Sub
'*******************************************************
Sub dimOriginale()
Dim RnG As Range
Set RnG = Feuil1.[A1:U32]
Application.DisplayFullScreen = False
With RnG
.RowHeight = 15: .ColumnWidth = 10.71
End With
End Sub