Graphique mobile sur classeur Excel

[imec85]

Bonjour à tous 🙂

Voilà mon soucis actuel ...

J'ai pu trouver une code VBA (que je ne connais pas du tout comme langue) !

Ce dernier, permet d’avoir un graphique mobile sur une feuille excel (ci joint des screens)




Dés que l'on descend, le graphique aussi tout simplement 🙂

Mais mon soucis ... c'est que je veux qu'il soit à droite et ne puisse pas remonter au delà de la ligne 28 de façon à ne pas aller s’écraser sur les graphiques fix déjà présent ...

Pour ce qui est de le mettre à droite, j'ai trouver en placant dans la ligne de code tout simplement la lettre de la colonne (.Shapes("graphbarre").Left = Columns("M").Left).

Mais pour ce qui est de l'empecher de remonter jusqu'en haut ... je seche -_-

Si vous avez une idée de la chose ... ce sera tip top !

Ci dessou un screen et une copie du code actuel :

Dim feuilleActive As Boolean

Private Sub Worksheet_Activate()
feuilleActive = True
graphbarre
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
feuilleActive = True
graphbarre
End Sub

Private Sub Worksheet_Deactivate()
feuilleActive = False
End Sub

Sub graphbarre()
With ActiveSheet
    While feuilleActive
        DoEvents
        
        ligne = ActiveWindow.VisibleRange.Row
        colonne = ActiveWindow.VisibleRange.Column

        .Shapes("graphbarre").Top = Rows(ligne).Top
        .Shapes("graphbarre").Left = Columns("M").Left
        
    Wend
End With
End Sub

En plaçant : ".Shapes("graphbarre").Top = Rows(25).Top" ça me le colle bien à la ligne 25 ... mais le soucis, c'est qu'il ne bouge plus il reste coller sans descendre :'(

En vous remerciant!

Imec85

 

[Softmama]

Re : Graphique mobile sur classeur Excel

Si tu veux l'aligner sur la ligne 8 par exemple, tu peux le faire simplement comme ceci :

   .Shapes("graphbarre").Top= Rows([COLOR="Red"]8[/COLOR]).Top

 

[imec85]

Re : Graphique mobile sur classeur Excel

Si tu veux l'aligner sur la ligne 8 par exemple, tu peux le faire simplement comme ceci :

   .Shapes("graphbarre").Top= Rows([COLOR="Red"]8[/COLOR]).Top

Oui cela marche, mais le Hic, c'est qu'il ne bouge plus :/

Il reste justement coller à cette ligne 8 sans descendre :'(

Moi je voudrais qu'il puisse descendre et monter comme il le fait, mais sans dépasser une certaine ligne.

 

[chris]

Re : Graphique mobile sur classeur Excel

Bonjour
insérer une ligne dans le code

....
       ligne = ActiveWindow.VisibleRange.Row
[COLOR=Magenta]        If ligne < 28 Then ligne = 28
[/COLOR]        colonne = ActiveWindow.VisibleRange.Column
....

 

[Softmama]

Re : Graphique mobile sur classeur Excel

Re,

Si tu veux pas que ça remonte au delà de la ligne 8 (par exemple), tu peux faire comme ceci :

.Shapes("graphbarre").Top= Rows(IIf(ligne>[COLOR="Red"]8[/COLOR],ligne,[COLOR="Red"]8[/COLOR])).Top

 

[imec85]

Re : Graphique mobile sur classeur Excel

Je t'aimeuh ! lol

Perfect... un grand merci à toi 🙂

En gros pour comprendre, cette ligne lui dit quoi ? (vis à vis du 1er et du 2eme 28 ^^)

Bonjour
insérer une ligne dans le code

....
       ligne = ActiveWindow.VisibleRange.Row
[COLOR=Magenta]        If ligne < 28 Then ligne = 28
[/COLOR]        colonne = ActiveWindow.VisibleRange.Column
....

 

[imec85]

Re : Graphique mobile sur classeur Excel

Ok en fait je viens de comptre l'utilité des 2 chiffres 🙂

Merci à vous 2 les deux fonctionne !

Par contre, quand j'ouvre ma feuille excel le graphique ne s'active qu'une fois que je visite une seconde feuille puis retourne sur la feuille principal, est ce normal ?