Camenbert et valeur 0

[vinzdu16]

Bonsoir

J'ai créé un camenbert en selectionnant une colonne de chiffre ou il y a des 0. les 0 apparaîssent sur le camenbert lorsque j'affiche les etiquettes de donnée.

Comment fait t-on pour que cela n'apparaisse pas?

Merci, 🙂

Vinz

 

[PMO2]

Re : Camenbert et valeur 0

Bonjour,

Une piste avec le code suivant à copier dans un module standard

Sub DetruitEtiquetteValeurNulle()
Dim CH As Chart
Dim S As Worksheet
Dim R As Range
Dim C As Range
Dim A$
Dim i&
Dim nbPoints&
Dim cpt&
If TypeName(Selection) <> "ChartArea" Then
  MsgBox "L'objet sélectionné n'est pas un graphique."
  Exit Sub
End If
Set CH = ActiveChart
Set S = Sheets(CH.Parent.Parent.Name)
On Error Resume Next
Application.ScreenUpdating = False
For i& = 1 To CH.SeriesCollection.Count
  A$ = CH.SeriesCollection(i&).Formula
  A$ = Replace(A$, "$", "")
  A$ = Mid(A$, InStrRev(A$, "!") + 1)
  A$ = Mid(A$, 1, InStr(A$, ",") - 1)
  Set R = S.Range(A$)
  nbPoints& = CH.SeriesCollection(i&).Points.Count
  cpt& = 0
  For Each C In R
    If cpt& > nbPoints& Then cpt& = 0
    cpt& = cpt& + 1
    If C = "" Or C = 0 Then
      CH.SeriesCollection(i&).Points(cpt&).DataLabel.Characters.Delete
    End If
  Next C
Next i&
CH.Deselect
Application.ScreenUpdating = True
End Sub

(Dans l'exemple en pièce jointe, cliquez sur le bouton "Créer une feuille source")

Sélectionnez le graphique puis lancez la macro DetruitEtiquetteValeurNulle.

Cordialement.

PMO
Patrick Morange