XL 2013 BOUTON QUI SUIT LA BARRE DE DEFFILEMENT

Morgane1307

XLDnaute Nouveau
Bonjour,
Je suis novice. J'ai chercher sur plusieurs forums mais je ne comprends pas ou n'est pas adapté à ma demande.
Je m'explique :
J'ai un bouton "Retour auxsouhaits" et je souhaiterai qu'il me suive suivant ma position sur ma feuille.
J'ai cette formule :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Shapes("BRetour").Top = Target.Top + 20
Shapes("BRetour").Left = Target.Left + 150
End Sub

Mais comment l'adapter avec celle de base :

Sub Joint1920_Bouton1_Cliquer()
Sheets("Souhaits").Activate
End Sub

Sachant que j'ai reproduit ce même bouton sur plusieurs feuille

Merci d'avance
Cordialement,

Morgane
 

job75

XLDnaute Barbatruc
Bonjour Morgane1307, bienvenue sur XLD, salut Lolote83,

Puisqu'on parle de BARRE DE DEFILEMENT voyez ce code dans le ThisWorkbook du fichier joint :
VB:
Private Sub Workbook_Open()
Application.OnTime 1, "ThisWorkbook.ArrierePlan"
End Sub

Sub ArrierePlan()
Dim VR As Range
Do
    With ActiveSheet
        Set VR = Windows(1).VisibleRange
        If .Shapes(1).Top <> VR.Top Then .Shapes(1).Top = VR.Top
        If .Shapes(1).Left <> VR.Left Then .Shapes(1).Left = VR.Left
        If .Shapes(2).Top <> VR.Top Then .Shapes(2).Top = VR.Top
        If .Shapes(2).Left <> VR.Columns(4).Left Then .Shapes(2).Left = VR.Columns(4).Left
        DoEvents
    End With
Loop
End Sub
Utilisez l'une ou l'autre des barres de défilement.

A+
 

Pièces jointes

  • Défilement(1).xlsm
    31.8 KB · Affichages: 15

job75

XLDnaute Barbatruc
Il suffit d'affecter au(x) bouton(s) la macro qui convient, du genre :
VB:
Sub Macro()
Sheets(IIf(ActiveSheet.Name = "Feuil1", "Feuil2", "Feuil1")).Activate
End Sub
 

Pièces jointes

  • Défilement(2).xlsm
    32.8 KB · Affichages: 14

Discussions similaires

Statistiques des forums

Discussions
311 733
Messages
2 082 019
Membres
101 872
dernier inscrit
Colin T