Problème macro pour un graphique

[joffrey]

Bonjour à tous,

Voilà j'ai un petit problème avec une macro excel 2007 qui permet grâce à un bouton de créer un graphique à partir d'un tableau de donnée importer d'accès:

Sub Button1_Click()

'Création d'un graphique dans la feuille active.
ActiveSheet.Shapes.AddChart
'Activation du graphique sans le sélectionner
ActiveSheet.ChartObjects(1).Activate
'Propriétés du graphique
With ActiveChart
'Selection de la source des données
'Cette méthode fonctionne très bien pour ce tableau
'Le nom abscices et des ordonnées est trouvé automatiquement par Excel
'Il y a une autre méthode pour créer chaque série une à une. Mais là c'est pour faire simple.
.SetSourceData Source:=Worksheets(1).Range("A7"), PlotBy:=xlRows

'Définition du Type du Graphique en courbes
.ChartType = xlLine
'Déplacement du graphique dans une feuille Graph plutôt que de le laisser dans une Feuille Sheet
.Location Where:=xlLocationAsNewSheet
End With

End Sub



Il s'agit de cette ligne:

.SetSourceData Source:=Worksheets(1).Range("A7"), PlotBy:=xlRows

j'aimerai rajouter une condition > ou = à 50

Est ce possible?

Merci d'avance de votre réponse

 

[joffrey]

Re : Problème macro pour un graphique

S'il vous plait, j'ai vraiment besoin d'aide et je ne suis pas doué en VB

 

[joffrey]

Re : Problème macro pour un graphique

Svp, j'ai vraiment besoin d'aide!!