Sub GrafYan_Efgé_QuandClic()
Dim graf As Object
Set graf = ActiveSheet.ChartObjects(Application.Caller)
With graf
If .Width <= Min Then
.Width = Max
Else
.Width = Min
End If
End With
Set graf = Nothing
End Sub
Re à tous,
@ David
En fait, l'interet est de "voir le déroulement du graph" .
Dans mon fichier, j'ai oublié de remettre le "Timer" d'attente, donc sur une machine moderne, il est impossible de voir cet effet.
Ma proposition était surtout valable pour éviter d'utiliser des Noms
Je reviens demain avec une version plus corecte.
Cordialement