Activer un code pour plusieurs graphiques.

[djstroubi]

Bonjour,

j'ai un code à insérer dans worksheet mais qui est adapté à un graphique par feuille et j'en ai trois par page.Est ce que quelqu'un pourrai m'aider


Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
'La donnée horaire modifiable est placée en feuille "lundi", cellule D2
If Sh.Name = "lundi" And Target.Address = "$D$2" And IsDate(Target.Text) Then
'Le graphique est créé directement sur une sheet de type Graph
Charts("graph lundi").Axes(xlValue).MinimumScale = Target
End If
End Sub

 

[tototiti2008]

Re : Activer un code pour plusieurs graphiques.

Bonjour djsroubi,

avec un bout de fichier exemple et une explication claire de ce que doit réaliser le code, on pourra mieux te répondre....

 

[djstroubi]

Re : Activer un code pour plusieurs graphiques.

Re,

je souhaite changer ma valeur minimum de mon axe abscisse mais avec ce code je ne peut changer que la valeur pour mon premier graphique et pas pour les trois.

De plus comment faire pour que ce code soit actif sur l'ensemble de mes pages (ici graph lundi mais dansle fichier complet il y a une feuille par joint) je n'ai pas pu te mettre tous pour une question de taille

Tu change l'heure dans la cellule A75

 

[tototiti2008]

Re : Activer un code pour plusieurs graphiques.

Bonjour djstroubi,

désolé, je ne peux pas ouvrir les zip... peut-être quelqu'un d'autre.