XL 2019 Changement de direction avec page toujours visible

[valouf]

Bonjour je n'arrive pas a voir tout mes déplacements je cherche un code vba qui me permettrais de faire descendre en temps voulu d'aller a droite et et a gauche et que ma case verte soit toujours visible merci de votre aide

 

[vgendron]

Hello

euh.. rien compris à ton problème..
elle est ou la case verte??

 

[valouf]

Hello

euh.. rien compris à ton problème..
elle est ou la case verte??

il faut cliquer sur le rond et le decompte se fait

 

[vgendron]

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

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

 

[valouf]

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

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

merci de ta reponse c gentil mais ma case verte ne descends plus il y a que la page qui descends