Discussion :

[THOMAS314GREEN]

Bonjour, j'ai fait une petite macro pour mettre en forme mes graphiques.
Ces derniers sont réalisés à partir d'un TCD.
J'ai créé mon code en omettant le fait que je pouvais avoir uniquement des "KO" (voir capture) et mon code me renvoie une erreur du coup.

Mon code (Capture2) ne prend pas en charge ce cas de figure et je voudrais mettre une boucle if

J'ai pensé à

Code :

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

1
2
If   ActiveChart.SeriesCollection(2) = "" then
....

Seulement ca ne fonctionne pas: mauvaise condition

ActiveChart.SeriesCollection(2) est la courbe des "KO" mais dansce cas de figure elle est absente.

Merci d'avance

[riaolle]

Bonjour

Seulement ca ne fonctionne pas: mauvaise condition

Peux-tu être un peu plus précis sur ce qui ne fonctionne pas? As-tu un message d'erreur? Si oui, lequel et où exactement dans ton code?
Est-ce que ta question revient à demander comment vérifier si la série 2 existe dans ton graphique?
SI oui, tu peux créer la fonction suivante :

Code :

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

1
2
3
4
5
6
7
8
Function serieExist(numSerie As Integer) As Boolean
    serieExist = True
    On Error GoTo LineError
    ActiveChart.SeriesCollection(numSerie).Select
    Exit Function
LineError:
    serieExist = False
End Function

Ensuite dans ton code, tu mets la condition:

Code :

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

If serieExist(2) =False Then

[THOMAS314GREEN]

Un message apparait. La ligne de code est bien la ...(2)

Je vais essayer de faire votre code et je vous tient au courant.