Dim NoLigne As Long NoLigne = ActiveWindow.Panes(1).ScrollRow CommandButton1.Top = Range("A" & CStr(NoLigne)).Topqu'il faudra lancer régulièrement, par exemple dans Worksheet_SelectionChange
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question