[VBA-E] protection d'un chart contre toute selection

Version imprimable

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:

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

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:

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+

21/03/2007, 11h49
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