XL 2019 Changement de direction avec page toujours visible

vgendron à dit:

comprend pas trop ce que ton code fait. ni l'intérêt...

mais.. pour déplacer la feuille en même temps que ton "curseur" vert se déplace.. suffit d'ajouter un scroldown

VB:

Sub DecompteMN()
    With Sheets("travail")
        If IsNumeric(.[B9]) Then
            If .[B9] > 0 Then
                .[E4] = .[B9]
               
                Do While .[E4] > 0
                    Application.Wait Now + TimeValue("0:0:1")
                    .[E4] = .[E4] - 1
                    ActiveWindow.SmallScroll Down:=1
                    If .[E4] = 400 Then Call arret("Vous êtes de passage à nantes")
                Loop
            End If
        End If
        Call arret("Vous êtes arrivé")
    End With
End Sub

Cliquez pour agrandir...