A voir également:
- Excel Macro boucle
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Si et excel - Guide
- Word et excel gratuit - Guide
- Aller à la ligne excel - Guide
2 réponses
Utilisateur anonyme
19 janv. 2005 à 22:23
19 janv. 2005 à 22:23
Bonjour,
Sugestion (pas testé) :
Dim I As Integer
Dim Lig1 As Integer
Dim Lig2 As Integer
Dim Plage As String
Lig1 = 2 '(ligne ou je voudrais que ma macro commence)
Lig2 = 13 '(ligne ou je voudrais que ma macro termine)
For i = 1 To 28 '(j'ai 28 graph à faire)
Plage= ( "D" & Lig1 & ":D" & Lig2 )
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets("cat10_20").Range(Plage), PlotBy:="xlColumns"
ActiveChart.Location Where:=xlLocationAsObject, Name:="cat10_20"
With ActiveChart
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
Lig1 = Lig1 + 12
Lig2 = Lig2 + 12
Next i
End Sub
Lupin
~L'essentiel est invisible pour les yeux~
~On ne voit bien qu'avec le coeur~
Sugestion (pas testé) :
Dim I As Integer
Dim Lig1 As Integer
Dim Lig2 As Integer
Dim Plage As String
Lig1 = 2 '(ligne ou je voudrais que ma macro commence)
Lig2 = 13 '(ligne ou je voudrais que ma macro termine)
For i = 1 To 28 '(j'ai 28 graph à faire)
Plage= ( "D" & Lig1 & ":D" & Lig2 )
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets("cat10_20").Range(Plage), PlotBy:="xlColumns"
ActiveChart.Location Where:=xlLocationAsObject, Name:="cat10_20"
With ActiveChart
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
Lig1 = Lig1 + 12
Lig2 = Lig2 + 12
Next i
End Sub
Lupin
~L'essentiel est invisible pour les yeux~
~On ne voit bien qu'avec le coeur~