Limiter le scroll à 2 colonnes

BTY

XLDnaute Nouveau
Bonjour,

est-il possible de limiter le défilement (scroll) à 2 colonnes ?

Sur ma feuille excel, j'ai 2 colonnes de données qui servent à alimenter un graphique (présent à coté des 2 colonnes).
Je souhaiterais pouvoir faire défiler les 2 colonnes en gardant visible le graphique.

Merci
 

Staple1600

XLDnaute Barbatruc
Bonjour le fil, le forum

Tu as déjà exploité les possibilités offertes par ScrollArea?

PS:Avec un fichier exemple anonimysé, on se représenterait plus aisément le problème rencontré.
 

chris

XLDnaute Barbatruc
Bonjour
Soit faire 2 fenêtres du même classeur, juxtaposées verticalement, soit VB pour que le graph suive le scroll
 

eriiiic

XLDnaute Barbatruc
Bonjour,

à ma connaissance ce n'est pas possible.
Mais tu peux repositionner le graphique, ici si la sélection change :
VB:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim pl As Range
    Set pl = Selection
    ActiveSheet.ChartObjects("Graphique 1").Activate
    ActiveSheet.Shapes("Graphique 1").Left = Cells(ActiveWindow.ScrollRow + 1, "D").Left
    ActiveSheet.Shapes("Graphique 1").Top = Cells(ActiveWindow.ScrollRow + 1, "D").Top
    pl.Select
End Sub
mon avis sur le crossposting rejoint celui de mes camarades.
Mal vu, tu risques que les helpers se désintéressent de tes questions en se disant que c'est peut-être déjà résolu ailleurs.
Tu es nouveau, réfléchi à cela ;-)
eric

edit : je viens de voir la proposition de chris à laquelle je n'avais pas pensé, c'est plus simple :)
 

Fichiers joints

BTY

XLDnaute Nouveau
Bonjour,

à ma connaissance ce n'est pas possible.
Mais tu peux repositionner le graphique, ici si la sélection change :
VB:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim pl As Range
    Set pl = Selection
    ActiveSheet.ChartObjects("Graphique 1").Activate
    ActiveSheet.Shapes("Graphique 1").Left = Cells(ActiveWindow.ScrollRow + 1, "D").Left
    ActiveSheet.Shapes("Graphique 1").Top = Cells(ActiveWindow.ScrollRow + 1, "D").Top
    pl.Select
End Sub
mon avis sur le crossposting rejoint celui de mes camarades.
Mal vu, tu risques que les helpers se désintéressent de tes questions en se disant que c'est peut-être déjà résolu ailleurs.
Tu es nouveau, réfléchi à cela ;-)
eric

edit : je viens de voir la proposition de chris à laquelle je n'avais pas pensé, c'est plus simple :)
Merci pour vos réponses, et j'ai bien pris pour le multipostage. Désolé !!!
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas