Discussion :

[Damsou]

Bonjour à tous !!
J'ai un pitit problème avec une macro que j'ai fait sous excel ! En effet cette macro a pour but de définir une plage source pour un graphique. En effet car lorque je supprime les lignes de la plage il y a de nouvelles valeurs (celle qui été en dessous) qui remontent et remplace les anciennes valeurs, alors j'ai fait la macro que voilà:

Code :

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

1
2
3
4
5
Sub Macro1()
    ActiveChart.ChartArea.Select
    ActiveChart.SetSourceData Source:=Sheets("Nombre OS").Range("A1:B6"), PlotBy _
        :=xlRows
End Sub

Seulement lors de son exécution après la suppression des lignes ca me met une faute sur ActiveChart.ChartArea.Select et ca me dit:

Variable objet ou variable de bloc With non définie

Quelqu'un a une idée pour régler ce problème et déjà est-ce possible de faire ce que je souhaite ?

[Rely]

Le problème pourrait se trouver dans l'utilisation de ActiveChart. Tu pourrais plutôt utiliser la collection Charts de l'objet mais dans ce cas tu dois connaître l'index du graphique ça va donner

Code :

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

1
2
3
4
5
6
7
8
9
 
Sub Macro1() 
    Dim Index as integer
 
    Index = 1
    Charts(Index).ChartArea.Select 
    Charts(Index).SetSourceData Source:=Sheets("Nombre OS").Range _
    ("A1:B6"), PlotBy     :=xlRows 
End Sub

En supposant que index = 1.
(Il se peut aussi, mais ça c'est mois sur, que le graphique soit supprimer à la suppression des lignes.)

[Damsou]

Ca ne marche pas ! il me dit la methode Select de la classe ChartArea a echoué !
Mais qu'est ce que tu entend par index (je n'y conné pas grand chose en VBA) et ensuite le graphique n'est pas supprimé puisqu'il est toujours sur l'autre page (oui, en effet le graphique est sur une autre page) !

[Damsou]

Ok ca marche !! Merci !! il suffisait de supprimer une ligne ce qui donne:

Code :

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

1
2
3
4
5
6
Sub Macro1() 
    Dim Index as integer 
    Index = 1     
    Charts(Index).SetSourceData Source:=Sheets("Nombre OS").Range _ 
    ("A1:B6"), PlotBy     :=xlRows 
End Sub

Mais ca seré quand meme cool de ta part de m'expliquer ce que c'est qu'un index !
Merci d'avance !

[Rely]

Mais qu'est ce que tu entend par index (je n'y conné pas grand chose en VBA)

L'index s'utilise avec une collection (collection=ensemble de n'importe quoi, ici d'objet) comme Charts pour acceder aux objets de la collection il peut être alphanumérique ou numérique (entier). Dans notre cas ici il est numérique. Il représente, je crois, l'ordre d'insertion du graphique dans le classeur dc si tu n'as qu'1 graphique dans le classeur l'index de ce graphique sera 1.

Ca ne marche pas ! il me dit la methode Select de la classe ChartArea a echoué !

Je pense que tu doit d'abord sélectionner la feuille sur laquelle se trouve le graphique. ça donne

Code :

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

1
2
3
4
5
6
7
8
 
Sub Macro1() 
    Feuil2.Select
    Charts(1).ChartArea.Select 
    Charts(1).SetSourceData Source:=Sheets("Nombre OS").Range _ 
    ("A1:B6"), PlotBy     :=xlRows 
End Sub
En supposant la feuille sur laquelle se trouve le graphique s'appelle Feuil2

[Rely]

dsl. j'ai repondu avant de lire ton dernier post. si ça marche alors c'est ok!

[Damsou]

ok merci Rely pour ton explication sur l'index ca me sera fort utile car je vais avoir plusieur graph à mettre à jour !
et pis en fait merci pour tout !