bonsoir,
j'avais déjà demandé pour centrer ds un tableau une ligne si une cellule E1 est égale a une de la colonne D12😀191
j'ai fait une esquisse de macro y aurait il une bonne âme pour la corriger et la compléter.
Dim HautImage As Long,
Dim Range(“D1”) As integer
Application.ScreenUpdating = False
With ActiveWindow.ActivePane.VisibleRange
HautImage = .Top + (.Height / 2)
End With
With ActiveSheet.
‘and
Range(“D1”) =Range(“D12: D191”)
.Top = HautImage - (.Height / 2)
End With
Application.ScreenUpdating = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
CentreRange
Application.ScreenUpdating = True
End Sub
MERCI
Bpol
j'avais déjà demandé pour centrer ds un tableau une ligne si une cellule E1 est égale a une de la colonne D12😀191
j'ai fait une esquisse de macro y aurait il une bonne âme pour la corriger et la compléter.
Dim HautImage As Long,
Dim Range(“D1”) As integer
Application.ScreenUpdating = False
With ActiveWindow.ActivePane.VisibleRange
HautImage = .Top + (.Height / 2)
End With
With ActiveSheet.
‘and
Range(“D1”) =Range(“D12: D191”)
.Top = HautImage - (.Height / 2)
End With
Application.ScreenUpdating = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
CentreRange
Application.ScreenUpdating = True
End Sub
MERCI
Bpol