Bonjour à tous,
J'ai besoin de votre aide encore une fois,
voila mon problème:
J'ai 3 onglets (onglet 1 ,2 et 3) ou il y a plusieurs graphiques dans chaque onglet.
Dans l'onglet 1, il y a graphique A1,A2,A3,A4,.......A16
Dans l'onglet 2, il y a graphique B1,B2,B3,B4........B10
Dans l'onglet 2, il y a graphique C1,C2,C3,C4........C10
dans chacun de ces 3 onglets, il y a aussi une colonne avec des listes déroulante permettant à l'utilisateur de choisir les options qui veut appliquer à ces graphique (Échelles des l'axes, options pour les couleurs des courbes séries 1, 2 et 3 , marqueurs.....)
EX: Voir PJ
lorsque l'utilisateur fait ces choix, il clic sur un bouton exécutant ainsi un macro qui applique ces choix sur l'ensemble des graphiques de l'onglet.
Le macro que j'autilse est le suivant:
Public Sub Graph()
Dim chtobj As ChartObject
Dim n As Integer
n = ActiveSheet.ChartObjects.Count
For Each chtobj In ActiveSheet.ChartObjects
With chtobj.Chart.Axes(xlValue)
.....
.....
end with
With chtobj.Chart.Axes(xlCategory)
....
end with
With chtobj.Chart.SeriesCollection(1)
.....
end with
With chtobj.Chart.SeriesCollection(2)
.....
end with
With chtobj.Chart.SeriesCollection(3)
.....
end with
Next chtobj
End Sub
Tous ca fonctionne bien, mais ces même graphiques sont réparti dans le même classeur dans d'autre onglets (3,4,5 et 6) ce sont des onglets pour présentation.
Ex:
Dans l'onglet 4,on trouve les graphique A1,B1,C1 et A2,B2,C2....
Dans l'onglet 5, on trouve les graphique A4,B4,C4 et A5,B5,C5....
Dans l'onglet 6, on trouve les graphique A14,B8,C8 et A15,B7,C10....
J'aimerai que lorsque l'utilisateur fait ces choix dans les 3 premier onglets que ces choix s'applique aussi sur les graphiques se trouvant dans les autres onglets.
Est ce que vous avez des solutions ou pistes de solution
merci d'avance