Discussion :

[amrod93]

Bonjour,

je souhaiterais savoir comment peut on empêcher la suppression d'un graphique sur Excel mais laisser la possibilité de le sélectionner pour le copier/coller. En effet, j'ai testé les options de protection de la feuille, on peut empêcher la suppression mais on ne peut plus le sélectionner.

Il doit sans doute y avoir une propriété sur Chart en VBA pour empêcher juste la suppression.

Merci pour votre aide.

[Invité]

Bonjour,

Avec une macro qui déverrouille, copie le graphique et reverrouille la feuille.

A faire manuellement avec l'éditeur de macro activé.

Cordialement.

[amrod93]

En fait, j'ai un graphique mis à jour par macro. Je ne veux pas que l'utilisateur puisse supprimer le graphique mais je lui laisse la possibilité de sélectionner le graphe.

Si je vérouille l'onglet où est présent le graphe, l'utilisateur ne peut pas sélectionner le graphe.

Je n'ai pas trouver d'événement qui catch la suppression.

Avez vous une proposition de code pour savoir si l'utilisateur tente de supprimer le graphe ou alors empêcher juste la suppression car en vérouillant/dévérouillant l'onglet cela ne fonctionne pas.

Merci par avance

[amrod93]

Je suis passé par ta technique finalement. Je pensais qu'on ne pouvait pas copier/coller quand la feuille était vérouillée.

Merci !!

[Invité]

Deux codes, suivant que le graphe est sur une feuille Chart ou Worksheet. Les graphes sont copiés sur un nouveau classeur.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
Private ShGraphe As Chart
Private ShFeuilleDuGraphe As Worksheet
 
Private GrapheACopier As ChartObject
 
Sub CopieFeuilleGraphe()
 
    Set ShGraphe = Sheets("NomFeuilleGrapheACopier")
 
    With ShGraphe
       .Unprotect ("MotDePasse")
       .Select
       .Copy
    End With
 
    ActiveWorkbook.SaveAs Filename:="Chemin\" & "NomDuNouveauFichier.xlsm" _
        , FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
  '  ActiveWorkbook.Close
 
    With ShGraphe
      .Activate
      .Protect Password:="MotDePasse", DrawingObjects:=True, Contents:=True, Scenarios:=True
    End With
 
   Set ShGraphe = Nothing
 
End Sub
 
 
Sub CopierGrapheSurFeuilleDonnees()
 
    Set ShFeuilleDuGraphe = Sheets("NomDeLaFeuille")
 
    With ShFeuilleDuGraphe
       .Activate
       .Unprotect ("MotDePasse")
    End With
 
    Set GrapheACopier = ShFeuilleDuGraphe.ChartObjects("Graphique 1")
 
    GrapheACopier.Copy
 
    Workbooks.Add
    ActiveSheet.Paste
 
    ActiveWorkbook.SaveAs Filename:="Chemin\" & "NomDuNouveauFichier.xlsm" _
        , FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
  '  ActiveWorkbook.Close
 
      With ShFeuilleDuGraphe
      .Activate
      .Protect Password:="MotDePasse", DrawingObjects:=True, Contents:=True, Scenarios:=True
    End With
 
  Set GrapheACopier = Nothing
  Set ShFeuilleDuGraphe = Nothing
 
 
End Sub

Cordialement.

[amrod93]

Merci beaucoup !