Discussion :

[potili2]

je teste ceci qui fonctionne et que j'indique en supposant que les commentaires peuvent aider certains d'entre vous.
mon problème est, à la suite de ce type de manipulations, de faire en sorte d'interdire toute selection de de chart.
si vous pouviez m'aider...
Jean Pierre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Workbooks("excelpouoressais").Worksheets("feuil2").Activate ' ne pas modifier
Windows("excelpouoressais.xls").Activate        'idem
With Worksheets("feuil2") 'idem
    .ChartObjects(1).Protect
    .ChartObjects(1).Left = .Columns("I").Left  'aligne la gauche  de la zone graphique du chart à la gauche de la colonne I
    .ChartObjects(1).Top = .Range("K5").Top     'idem pour le top
    ActiveSheet.ChartObjects(1).Activate
    ActiveChart.ChartArea.Select
ActiveSheet.Shapes(1).IncrementLeft -150   ' deplace l'aire graphique de 100 à G si marqué 100
ActiveChart.PlotArea.Select
Selection.Left = 0        ' distance entre la gauche de la zone graphique et la bougie
Selection.Width = 10        ' largeur de la bougie
End With

[ouskel'n'or]

Tu as une propriété empêchant la sélection et le déplacement de ton graphe mais il est nécessaire de verrouiller la feuille.
Tout dépend de ce que tu veux faire.
Je suppose que tu souhaites pouvoir modifier les données de ta feuille.
La solution que je propose dans ce cas est de déverrouiller toutes les cellules, d'empêcher sélection et déplacement du graphe et de protéger la feuille. Ce qui donnerait :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
    Sheets("Feuil1").DrawingObjects("Graphique 1").Locked = True
    Windows("Classeur1").Activate
    Cells.Locked = False 'déverrouille toutes les cellules
    'protection de la feuille, seul le graphe est concerné
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

Rien ne t'empêche de ne pas déverrouiller certaines cellules si nécessaire
A+

[potili2]

les données de ma feuille se mettent à jour par calcul sur des données (boursières) arrivant par une DDE. Certaines cellules doivent pouvoir etre modifiées manuellement, effectivement.
mes charts représentent des "chandeliers" mis à jour en temps réel et placés sur la feuille en question. j'ai remarqué que si un chandelier est sélectionné, ça plante la macro. D'où ma question.
Ta solution me parait bonne, je suis en cours de mise au point et je vais la tester dès que possible.
merci.
Jean Pierre