rookievba | Bonjour,
je cherche à créer des graphiques de manière automatique sous VBA. Le concept tourne exactement autour du sujet 101231 mais je n'ai rien compris de ses lignes de code (désolé  ).
Les graphiques d'excel sont dynamique, c'est-à-dire que à chaque fois qu'on créé un graphique, on est obligé de laisser les données sources pour que ce graphique "existe". Si on supprime les données source, plus de graphique ! Bref, je contourne ce piti problème en stockant toutes les données dont je veux obtenir un graphique.
Je cherche à tracer des graphes dont les données pour chacun se trouvent sur 2 lignes, => données du graphe 1 sur les lignes 3&4, du graphe 2 sur les lignes 5&6, etc...
Mon problème est que ma ligne de code suivante est mal écrite au niveau du range("D"&chr(A),.......) . Pourriez-vous m'aider à corriger ce problème svp ??? 
Spoiler :
Sub Graphiques()
'
Sheets("Data2" ).Select
For A = 2 To Cells(3, 1).Value Step 2
For B = 3 To Cells(4, 1).Value Step 2
Range("D" & Chr(A), "O" & Chr(B)).Select
Charts.Add
ActiveChart.ChartType = xlColumnStacked
ActiveChart.SetSourceData Source:=Sheets("Data2" ).Range("D" & Chr(A), "O" & Chr(B)), PlotBy:= _
xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Graphiques"
With ActiveChart
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
Next B
Next A
End Sub
|
Merci beaucoup pour votre précieuse aide  |
FORUM HardWare.fr
) est tout simplement de faire un next A et de remplacer ce B par B = A+1 !!!!!