Salut fabrice et le Forum
Une applcation que j'utilise sur un programme
Sub Graphique()
Application.DisplayAlerts = False
Sheets("Graphique").Select
ActiveWindow.SelectedSheets.Delete
A = Range("c65535").End(xlUp).Row
B = Range("c65535").End(xlUp).Column
C = Range("bt65535").End(xlUp).Row
D = Range("bt65535").End(xlUp).Column
Charts.Add
ActiveChart.ChartType = xlColumnClustered
With Worksheets("Triage")
ActiveChart.SetSourceData Source:=.Range(.Cells(A, B), .Cells(C, D)), PlotBy _
:=xlRows
End With
With ActiveChart
.Name = "Graphique"
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
Application.DisplayAlerts = True
End Sub
Une macro graphique suffit d'adapter les valeurs du UserForm pour remplacer les valeurs A,B,C,et D en fonction
Grrr encore un.select @+Thierry va encore me le dire
))
Pour le userform pas le temps de travailler sur cela desolé surement tu auras d'autre réponse
Amitié Mytå