Afficher/masquer graph : élément introuvable

Version imprimable

Bonjour à tous,
J'ai un problème au niveau de mes graphiques. En effet, j'ai crée des graphiques que je souhaite afficher ou masquer en cliquant sur un CheckBox.
Cependant le code fonctionne deux fois et ensuite j'ai le message d'erreur suivant : Erreur d'execution 2147024809 (80070057), l'élément portant ce nom est introuvable.
Voici le code :

Code:

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
    m = Sh9.Cells(Rows.Count, "B").End(xlUp).Row
 
    If LIGNE_A.Value = True Then
 
    ActiveSheet.ChartObjects("Graphique A1").Visible = True
    ActiveSheet.ChartObjects("Graphique A2").Visible = True
 
    With ActiveSheet.Shapes("Graphique A1")
    .Height = 300
    .Width = 655
    .Left = Range("G" & m + 26).Left
    .Top = Range("G" & m + 26).Top
    End With
 
    With ActiveSheet.Shapes("Graphique A2")
    .Height = 300
    .Width = 655
    .Left = Range("Y" & m + 26).Left
    .Top = Range("Y" & m + 26).Top
    End With
 
    Else
        ActiveSheet.ChartObjects("Graphique A1").Visible = False
        ActiveSheet.ChartObjects("Graphique A2").Visible = False
        DeleteRows ("Ligne A")

merci à vous tous pour votre aide.

02/06/2015, 14h24
Daniel.C

Bonjour,

"DeleteRows" ?

Oui en fait j'ai un graph par tableau (6 tableaux) et j'ai 6 cases à cocher et si je décoche la case tableau Ligne A j'ai le tableau qui se supprime

Code:

1
2
3
4
5
6
7
8
9
Private Sub DeleteRows(Ligne As String)
Dim FirstRow&
On Error GoTo Erreur
FirstRow& = Columns("B:B").Find(What:=Ligne, After:=Range("B54"), LookIn:=xlFormulas, _
    LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
    MatchCase:=False, SearchFormat:=False).Row
Rows(FirstRow& & ":" & FirstRow& + 46).Delete Shift:=xlUp
Erreur:
End Sub

02/06/2015, 14h38
Daniel.C

Est-ce que tu sais sur quelle ligne se produit l'erreur ?
02/06/2015, 14h42
Ardiden31

L'erreur se produit sur la ligne 5
02/06/2015, 15h21
joe.levrai

Bonjour,

après avoir utilisé deux fois ta procédure, quand elle se met à planter, tes graphiques existent toujours ?

va dans les propriétés du graphique, et regarde si tu as bien activé l'option "Ne pas déplacer ou dimensionner avec les cellules"

par défaut, l'option est sur "déplacer et dimensionner avec les cellules" .. ce qui génère un déplacement du graphique quand tu supprimes des lignes .... jusqu'à sa suppression si tu supprimes les lignes qui sont derrière la position du graphique
02/06/2015, 15h48
Ardiden31

Oui l'option par défaut était bien activer. Je vais tester en optant pour "Ne pas déplacer ou dimensionner avec les cellules".

Merci joe.levrai c'est parfait. Mais le problème est bel est bien réglé ? Les graphs ne risquent pas de se supprimer définitivement ?
?
02/06/2015, 16h05
joe.levrai

impossible de les supprimer : non

mais "impossible de les voir se supprimer quand on supprime des cellules" : oui

en gros, tes graphiques ne se déplaceront plus quand tu supprimeras des cellules, lignes, colonnes
02/06/2015, 16h20
Ardiden31

Ok. Je te remerci pour ton aide

a+ ;)
03/06/2015, 10h10
Ardiden31

1 pièce(s) jointe(s)

Bonjour à tous,
Je reviens sur le poste car j'ai un problème avec l'affichage des graphiques. En effet, ils ne sont plus supprimés mais ils ne suivent pas le tableau quand on décoche une case. Le garphique reste à la même place.
Je laisse mon fichier en pj pour plus de clarté.
Encore merci pour votre aide.