Evelynetfrancois
XLDnaute Impliqué
Bonsoir le forum
J’essaye d'adapter cette macro pour un positionnement sur la cellule cliquée dans la listbox4
Sans résultat satisfaisant
Pourriez vous aiguiller………j y arrive très bien sur une colonne mais pas sur une ligne(la 1er dans mon cas) ..
Je vous remercie beaucoup d’avance.........
Bonne soirée à tous
E et F
Private Sub ListBox4_Click()
Dim lig
On Error Resume Next
Application.ScreenUpdating = False
Sheets("droguerie").Select
lig = ActiveWindow.ScrollRow
With ListBox4
Cells(.List(.ListIndex, 1), 1).Select
End With
Application.ScreenUpdating = True
ActiveWindow.ScrollRow = lig
ActiveCell.Activate
Unload Me
End Sub
J’essaye d'adapter cette macro pour un positionnement sur la cellule cliquée dans la listbox4
Sans résultat satisfaisant
Pourriez vous aiguiller………j y arrive très bien sur une colonne mais pas sur une ligne(la 1er dans mon cas) ..
Je vous remercie beaucoup d’avance.........
Bonne soirée à tous
E et F
Private Sub ListBox4_Click()
Dim lig
On Error Resume Next
Application.ScreenUpdating = False
Sheets("droguerie").Select
lig = ActiveWindow.ScrollRow
With ListBox4
Cells(.List(.ListIndex, 1), 1).Select
End With
Application.ScreenUpdating = True
ActiveWindow.ScrollRow = lig
ActiveCell.Activate
Unload Me
End Sub