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 :
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
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 :
Code:
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 SubEn 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
Dernière édition: