Bonsoir,
Je travail actuellement sur un projet Excel intégrant un userform et une base de donnée. Je voudrais créer un histogramme dans une feuille graphique à partir de données présentes dans deux feuilles différentes. L'histogramme doit se créer en fonction de la sélection choisi dans le userform. J'ai ajouté une condition If pour savoir dans quelle feuille VBA doit aller chercher les données.
En gros si le code ISIN (code boursier) commence par FR, il doit aller chercher l'info dans la feuille CAC 40 sinon dans NASDAQ 100.
J'ai dimensionné J, à partir de 2, VBA regarde dans les données si oui ou non le code ISIN correspond à la sélection dans le userform. Si oui, alors il stock les données de la colonne B et F dans le graph1.
Je vous met le code que j'ai tapé:
Private Sub bt_graphique_Click()
Dim j As Integer
j = 2
UserForm1.Hide
Sheets("Graph1").Visible = 1
Sheets("Graph1").Select
If Left(ISIN, 2) = "FR" Then
Worksheets("CAC_40").Activate
For j = 2 To 238
If Range("A" & j) = "ISIN" Then
Range("B" & j).Value = Graph1
Range("F" & j).Value = Graph1
End If
Next
Else
Worksheets("NASDAQ_100").Activate
For j = 2 To 595
If Range("A" & j) = "ISIN" Then
Range("B" & j).Value = Graph1
Range("F" & j).Value = Graph1
End If
Next
End If
End Sub
Ça me marque "Erreur d'exécution 9, l'indice n'appartient pas à la sélection"..
J'espère avoir été clair, merci d'avance si quelqu'un peut m'éclairer..
A plus