Probleme avec UserForm

pour ton graphique, change ta procédure "Graphique" comme ça et ça ira :

Sub Graphique()
Application.DisplayAlerts = False
Sheets("Graph1").Select
ActiveWindow.SelectedSheets.Delete
A = Range("c65535").End(xlUp).Row
B = Range("c65535").End(xlUp).Column
C = Range("q65535").End(xlUp).Row
D = Range("q65535").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 = "Graph1"
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
Application.DisplayAlerts = True
End Sub

pour tes Toggle, tu les sélectionnes (un par un ou dans une boucle) et tu utilises la méthode "Clear".

tiens, voilà le fichier complet, pour répondre à toutes tes questions. Note que j'ai utilisé la propriété Tag de tes togglebuttons pour les sélectionner

Re Ti et le forum,

Excuser le retard pour les remerciements j'avais trop de boulot

merci a Ti le fichier marche a la perfection

Merci encore a XLD

Mytå º¿º