Bonjour

J'ai un petit problème à soumettre à la communauté. En espérant que celle-ci puisse m'aider.

Description:

J'ai créé un UserForm qui contient 9 graphiques. Ils ont été créés avec l'outil ChartSpace. Lors de l'initialisation je les fais devenir invisibles , s'en suit une série de questions qui ont pour but de faire apparaitre l'un ou l'autre des graphiques à l'écran.

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Private Sub InitGraph() 
  Graph1.Visible = False
  Graph2.Visible = False
  Graph3.Visible = False
  Graph4.Visible = False
  Graph5.Visible = False
  Graph6.Visible = False
  Graph7.Visible = False
  Graph8.Visible = False
  Graph9.Visible = False
EndSub
 
 
Private Sub affichage()
 
  Dim i As integer
  Dim Nom As String
  Dim NumGraph As String
 
  Call InitGraph
  For i=1 to 9
 
    If NumGraph = i Then
      Nom = "Graph" & i
      ChartSpace(Nom).Visible = True
      Exit For
    End IF
 
  Next i
 
End Sub

Question:
Je voudrais avoir la déclaration corrigée
Code : Sélectionner tout - Visualiser dans une fenêtre à part
ChartSpace(Nom).Visible = True
afin de faire apparaître le graphique grâce au "If" dans la boucle "for"?

Merci d'avance