déplacer un chartobject

[loto]

Salut,

J'utilise souvent un petit code qui me permet de faire suivre les boutons de commande sur mes feuilles:
With ActiveSheet
Ligne = ActiveWindow.VisibleRange.Row
Colonne = ActiveWindow.VisibleRange.Column
.Shapes("AutoShape 2").Top = Rows(Ligne).Top + 70
.Shapes("AutoShape 2").Left = Columns(Colonne).Left + 100
End With

Ce soir, j'aurais bien aimé faire la même chose avec des graphs mais impossible, il n'en veut pas!!
J'ai entrepris de renommer les graphs (au nom variable) par
dim grph as chartobject mais la simple transposition sur mon code ne fonctionne pas.

Clairement, je ne sais pas le faire!
Comment faire pour déplacer ces satanés graphs (c'est possible tout de même non?

Merci de m'aider

 

[mth]

Re : déplacer un chartobject

Bonsoir,

Un essai avec ce bout de code:

        With ActiveSheet.ChartObjects("graphique 6")
            .Top = Rows(Ligne).Top + 70
            .Left = Columns(Colonne).Left + 100
        End With

Bien à toi,

mth

 

[loto]

Re : déplacer un chartobject

Non, ça bugue chez moi ...?

 

[mth]

Re : déplacer un chartobject

re,

Je suis repartie de ton code, mais voici donc en entier, et il ne plante pas chez moi :

Sub toto()
    Ligne = ActiveWindow.VisibleRange.Row
    Colonne = ActiveWindow.VisibleRange.Column
        With ActiveSheet.ChartObjects("graphique 6")
            .Top = Rows(Ligne).Top + 70
            .Left = Columns(Colonne).Left + 100
        End With
End Sub

"graphique 6" est le nom du graphique avec lequel j'ai testé, adapte avec le nom de ton graphique à toi bien sûr.
Si non, un problème de version? je suis sur 2007, (toi .. on ne sait pas).

Cordialement,

mth

 

[Pierrot93]

Re : déplacer un chartobject

Bonjour loto, Mireille🙂

le code de Mireille fonctionne également sous 2003... Mais attention, petite précision, si tu utilises "ActiveWindow" il ne faut pas que le graph soit sélectionné, auquel cas la fenêtre active serait bien évidement le graph et vba retournerait un message d'erreur...

bonne journée
@+

 

[soenda]

Re : déplacer un chartobject

Bonjour le fil, loto, mth, Pierrot93

Le code suivant fonctionne, même si le graphe est sélectionné.

 Sub b()
    Dim Cellule As Range
 
    With ActiveWindow.VisibleRange
        Set Cellule = Cells(.Row, .Column)
    End With
 
    With ActiveSheet.ChartObjects("graphique 1")
        .Top = Cellule.Top + 70
        .Left = Cellule.Left + 100
    End With
 
End Sub

A plus 🙂

 

[loto]

Re : déplacer un chartobject

Bonjour,

J'ai analysé quand il plante (pas de bug, mais ça ne marche pas du tout) c'est sur : Private Sub Worksheet_SelectionChange(ByVal Target As Range) ou activate
Par contre je reconnais qu'en activant la macro à la main, ça marche

Qu'y a t'il donc de différent?

 

[Pierrot93]

Re : déplacer un chartobject

Bonjour le fil, loto, mth, Pierrot93

Le code suivant fonctionne, même si le graphe est sélectionné.

 Sub b()
    Dim Cellule As Range
 
    With ActiveWindow.VisibleRange
        Set Cellule = Cells(.Row, .Column)
    End With
 
    With ActiveSheet.ChartObjects("graphique 1")
        .Top = Cellule.Top + 70
        .Left = Cellule.Left + 100
    End With
 
End Sub

A plus 🙂

Re, bonjour Soenda
sous 2003, si graph sélectionné, cette ligne renvoir un message d'erreur (1004):

With ActiveWindow.VisibleRange

erreur défini par l'appli ou par l'objet....

A noter le code de mireille fonctionne dans l'événement "SelectionChange" de la feuille....

@+

 

[loto]

Re : déplacer un chartobject

Ca marche! (j'avais une coquille)

Merci

 

[soenda]

Re : déplacer un chartobject

Bonjour le fil, bonjour Pierrot 🙂

sous 2003, si graph sélectionné, cette ligne renvoir un message d'erreur (1004):

With ActiveWindow.VisibleRange

Peut-être un problème de version 😕
Je n'ai pas pu reproduire l'erreur, mais je suis sous 2007.

A plus