Select Case ListEchelle.Value
        Case "semaine"
            GraphPPM.SetSourceData _
                Source:=Sheets("enr_incidents" ).Range("PPM_Semaine" ), _
                PlotBy:=xlColumn
                MsgBox "Graphique sur la semaine"
        Case "mois"
            GraphPPM.SetSourceData _
                Source:=Sheets("enr_incidents" ).Range("PPM_Mois" ), _
                PlotBy:=xlColumn
                MsgBox "Graphique sur le mois"
        Case "3 mois"
            GraphPPM.SetSourceData _
                Source:=Sheets("enr_incidents" ).Range("PPM_3Mois" ), _
                PlotBy:=xlColumn
        Case "6 mois"
            GraphPPM.SetSourceData _
                Source:=Sheets("enr_incidents" ).Range("PPM_6Mois" ), _
                PlotBy:=xlColumn
        Case "Aucune"
            GraphPPM.SetSourceData _
                Source:=Sheets("enr_incidents" ).Range("ppm" ), _
                PlotBy:=xlColumn
End Select
 
j'ai fais donc un case select selon la valeur d'une listbox, mais ca doti pas marcher car je n'ai aucun msg des msgbox et ca fait planter ma generation de graphique apres
 
j'ai pas trouvé d'exemple sur le net avec une listbox
 
plz help !!!

t une brele ?

arretez de m'agresser je suis debutant en vba, je viens chercher de l'aide et non de l'agressivité