Thank you guys for all your help! this works..!!!

On Jan 21, 4:28 pm, Francois L wrote:
ShaneDevenshire a écrit :





The sample provide by François L, which was my other suggestion, fails not
because the idea is incorrect, but simply because thechartname is "Chart1"
not "Graphique 1".

You can use the following code:

Private Sub Worksheet_Change(ByVal Target As Range)
If[PickList] = "Day1" Then
ChartObjects("Chart1").Visible = False
Else
ChartObjects("Chart1").Visible = True
EndIf
End Sub
(...)
Very interesting that my two suggestions both generated a new web page on
the internet showing my solutions, both with files dated 1/21/2007!Hi,

My sample "fails" just because it was made with a french version of XL
and in an english version XL translate Graphique asChart. A workaround
is simply to rename the Chartobjects.

For your information, this sample is on the sitewww.excelabo.netsince
2005, seehttp://www.excelabo.net/moteurs/compteclic.php?nom=fl-cachegraph

--
François L- Hide quoted text --Showquoted text -