Bonjour à tous,
J'ai plusieurs diagrammes dans une feuille Excel.
Lors de la selection de données de ces diagrammes j'ai sélectionner des cellules vides afin de pouvoir y ajouter des données plus tard et chaque diagrammes pourraient contenir 226 séries.
J'ai réalisé le code suivant pour mettre en forme chaque série.
Le problème est que lors de l'exécution, cela prend énormement de temps (de plus la fenêtre devient blanche et redevient normale après l'exécution)
J'aimerais savoir comment je peux faire pour ignorer ces séries vides.
Merci d'avance pour vos réponses.
Cordialement
Elo7
J'ai plusieurs diagrammes dans une feuille Excel.
Lors de la selection de données de ces diagrammes j'ai sélectionner des cellules vides afin de pouvoir y ajouter des données plus tard et chaque diagrammes pourraient contenir 226 séries.
J'ai réalisé le code suivant pour mettre en forme chaque série.
Code:
Sub Etiquettes_Serie()
Application.ScreenUpdating = False
Dim reihe As Integer 'pour serie
Dim indD As Integer ' indice du nom du diagramme
reihe = 2
indD = 1
'
For indD = 1 To ActiveSheet.ChartObjects.Count
ActiveSheet.ChartObjects("Diagramm " & indD).Activate
'ActiveChart.PlotArea.Select
ActiveChart.ApplyDataLabels
'ActiveChart.SeriesCollection(3).DataLabels.Select
' Selection.ShowSeriesName = True
' Selection.ShowValue = False
ActiveChart.SeriesCollection(1).DataLabels.Select
Selection.ShowSeriesName = False
Selection.ShowValue = False
For reihe = 2 To 226
'
ActiveChart.SeriesCollection(reihe).DataLabels.Select
If ActiveChart.SeriesCollection(reihe).Value = 0 Then
Selection.ShowSeriesName = False
Else: Selection.ShowSeriesName = True
End If
Selection.ShowValue = False
' Selection.Separator = " "
With Selection.Format.TextFrame2.TextRange.Font.Fill
.Visible = msoTrue
.ForeColor.ObjectThemeColor = msoThemeColorBackground1
.ForeColor.TintAndShade = 0
.ForeColor.Brightness = -0.150000006
.Transparency = 0
.Solid
.Bold = msoTrue ' Selection.Format.TextFrame2.TextRange.Font.Bold
End With
Next reihe
Next indD
End SubLe problème est que lors de l'exécution, cela prend énormement de temps (de plus la fenêtre devient blanche et redevient normale après l'exécution)
J'aimerais savoir comment je peux faire pour ignorer ces séries vides.
Merci d'avance pour vos réponses.
Cordialement
Elo7