Discussion :

[Dazdh]

Bonjour,

J'ai un graphe tres simple (une courbe) issu du tableau suivant:

Code :

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

1
2
3
4
5
6
A	B
04/09	10
05/09	20
06/09	30
07/09	
08/09

Comme vous l'avez remarque, il n'y a pas de valeur pour les mois de Juillet et Aout (le fichier se met automatiquement a jour a la fin du mois via des liens vers un autre fichier). Mon graphe est a comme source de donnees tout le tableau, et lorsqu'il rencontre les mois de Juillet et Aout, il n'affiche rien (pas de point sur le courbe) mais affiche le mois en abcisse.

Cela tout a fait logique, vu qu'il n'y a pas de valeurs. Cependant, je souhaite que le graphe n'affiche rien (pas d'absisse "Juillet" et "Aout" ni de point sur la courbe) lorsqu'il rencontre une valeur vide, afin de laisser le maximum de place aux autres mois qui sont eux valorises.

Il faut donc inclure une condition dans la source de donnees du graphe, qui a l'etat brut est =Feuille!$A$1:$B$5

J'ai trouve dans d'autres posts que l'on pouvais ajouter une condition SI, mais elle ne s'applique qu'a une cellule, et pas a une plage. Comment faire pour l'appliquer dans un tel cas sur une plage, et comment la tourner pour qu'elle reponde a ce probleme?

Merci d'avance,

Dazdh

[Fvandermeulen]

Salut,
Il y a un moyen simple avec une macro, je te mets un code en exemple, reste à décider comment l'activer.
Tu as plusieurs possibilités, un bouton, sur un évènement de te feuille (par exemple quand tu change une donnée), sur l'activation de ta feuille,...

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
Sub MAJGraph()
 
Dim derLigne As Long
 
'Affecte le numéro de ligne de la dernière ligne remplie de la col. B
derLigne = Cells(Columns(2).Cells.Count, 1).End(xlUp).Row - 1 '-1 Car titres
 
    'Active le graphique voulu; dans ton cas change le nom de la feuille et du Graph
    Sheets("TaFeuille").ChartObjects("Chart 2").Activate
    'Adapte la plage source avec la variable; change le nom de la feuille
    ActiveChart.SetSourceData Source:=Sheets("TaFeuille").Range("A1:B" & derLigne), PlotBy:= _
        xlColumns
 
'sélectionne la prochaine cellule à remplir et désactive le graph.
Sheets("TaFeuille").Range("b" & derLigne).Select
End Sub

A+

[Dazdh]

Complique mais efficace!

Merci!