XL 2013 BOUTON QUI SUIT LA BARRE DE DEFFILEMENT

Morgane1307 · 20 Mai 2019

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

Lolote83 · 21 Mai 2019

Salut Morgane1307,
En espérant avoir bien ciblé ta demande
Peut être comme ceci
@+ Lolote83

job75 · 21 Mai 2019

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+

Morgane1307 · 23 Mai 2019

C'est génial. Merci beaucoup
Mais quand je clique sur le bouton, j'aimerai me mettre sur un autre feuille.
C'est possible ? Si oui, comment ?

job75 · 23 Mai 2019

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

XL 2013 BOUTON QUI SUIT LA BARRE DE DEFFILEMENT

Morgane1307

XLDnaute Nouveau

Lolote83

XLDnaute Barbatruc

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

Morgane1307

XLDnaute Nouveau

job75

XLDnaute Barbatruc

Pièces jointes

Discussions similaires

XL 2013 BOUTON QUI SUIT LA BARRE DE DEFFILEMENT

Morgane1307

XLDnaute Nouveau

Lolote83

XLDnaute Barbatruc

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

Morgane1307

XLDnaute Nouveau

job75

XLDnaute Barbatruc

Pièces jointes

Discussions similaires

Privacy & Transparency

Privacy & Transparency