Re : La valeur "0" dans un graph
Bonjour,
hé hé oui effectivement JBDUBREUIL, moi zossi j'aimerai en finir avec le ZERO !!! lol!
donc brico, merci, mais dans ce cas bien précis, l'histoire des filtres n'est pas réalisable; en raison du choix qu'il sera fait, on masquera la ligne qui possèdera une valeur.
non, non, je pensais plutôt à une solution radicale du type macro, tu vois ce que je veux dire.....lol!!
plus précisemment, je me dirigeais vers l'option identique à la macro xldienne qui ne prend pas en compte les valeurs zéros : ce que CTBernard avait proposé dans les codes siuvants.
NOn seulement on n'affiche que dalle mais en plus on affiche surtout pas la "part" du camenbert à zéro et cela c'est le pied!!!
je la replace au caszou ===> elle pourrait aider :
Public Sub Graph()
'défini la plage en ne contant pas les lignes avec 0
Dim plage As Range
Set plage = Range("A6:B6")
For Each cel In Range("B7:B14")
If cel.Value <> 0 Then
Set plage = Union(plage, Range(cel.Offset(0, -1), cel))
End If
plage.Select
Next
On Error Resume Next
ActiveSheet.ChartObjects.Delete 'efface lancien graphique
'crée le nouveau graphique
Charts.Add
ActiveChart.ChartType = xlPie
ActiveChart.SetSourceData Source:=plage, PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Feuil1"
ActiveChart.ApplyDataLabels Type:=xlDataLabelsShowPercent, LegendKey:=False _
, HasLeaderLines:=True
ActiveChart.PlotArea.ClearFormats
ActiveWindow.Visible = True
Range("B7").Select
End Sub
Celeda