Discussion :

[Ardiden31]

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 :

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
    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.

[Daniel.C]

Bonjour,

"DeleteRows" ?

[Ardiden31]

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 :

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

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

[Daniel.C]

Est-ce que tu sais sur quelle ligne se produit l'erreur ?

[Ardiden31]

L'erreur se produit sur la ligne 5

[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

[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 ?
?

[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

[Ardiden31]

Ok. Je te remerci pour ton aide


a+

[Ardiden31]

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.