Bonjour a tous
Voila mon probleme j ai une feuille excel qui se presente sous cette forme:
| DATE |
POURCENT |
NOM |
| 01/02/2005 |
45
|
serveur3 |
| 02/02/2005 |
56
|
serveur1 |
| 01/02/2005 |
57
|
serveur2 |
| 01/05/2005 |
12
|
serveur2 |
| 01/03/2005 |
9
|
serveur1 |
| 01/06/2005 |
78
|
serveur2 |
| 01/02/2005 |
45
|
serveur3 |
| 07/02/2005 |
45
|
serveur1 |
| 23/02/2005 |
78
|
serveur2 |
| 04/12/2005 |
7
|
serveur3 |
| 01/06/2005 |
57
|
serveur2 |
| 21/05/2005 |
21
|
serveur3 |
| 11/03/2005 |
9
|
serveur1 |
| 24/08/2005 |
40
|
serveur2 |
J ai donc crée une macro me permettant de trié Mon tableau ci dessous
en fonction des Nom de serveur et de la date puis elle me trace un
graphique représentant le POURCENT en Fonction de la date pour chaque
serveur.
Seulement mon probleme est que ca le fait uniquement pour le premier serveur de la liste mais pas pour les autres.
Alors est ce que quelqu un pourrai me dire comment faire boucler ma macro pour que ca le fasse pour ous les nom de serveur .
Voici le code de ma macro.
Sub Macro3()
'
' Macro3 Macro
Selection.Sort Key1:=Range("C2"), Order1:=xlAscending, Key2:=Range("A2") _
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom
Charts.Add
ActiveChart.ChartType = xlLineMarkers
ActiveChart.SetSourceData Source:=Sheets("Feuil1").Range("B2:B6"), PlotBy:= _
xlColumns
ActiveChart.SeriesCollection(1).XValues = "=Feuil1!R2C1:R6C1"
ActiveChart.SeriesCollection(1).Name = "=Feuil1!R2C3"
ActiveChart.Location Where:=xlLocationAsNewSheet
ActiveChart.ApplyDataLabels Type:=xlDataLabelsShowNone, LegendKey:=False
Sheets("Feuil1").Select
End Sub
merci davance a tous