problème avec la barre de défilement

[mimi]

Bonjour,


Je débute ( et c'est le cas de le dire ) en excel. J'ai un souci avec la barre de défilement.

Je m'explique.

J'ai une feuille de calcul qui contient un certains nombres de valeurs saisies chaque heure.
J'ai une autre feuille de calcul qui contient des feuilles graphiques. Chaque feuille graphique me renvoie des courbes avec les données saisies. Je peux faire des sélections de période pour l'affichage de mes courbes. Ca ne marche que pour les premières données, le graphique étant trop petit. D'où l'intérêt de ma scrollbar qui devrait me permettre de balayer toutes les dates de la période séléctionnée. Seulement voilà, ça ne marche pas vraiment.
J'ai 2 soucis à ce moment là :
- ma feuille avec les dates est mise à jour avec une date type 01/01/2000 ( qui soit dit en passant sort de je ne sais où ) alors que j'ai sélectionné la période 10/09/2003 au 25/09/2003.
- et du coup, la scroll qui fait bien un défilement mais commençant au 01/01/2000, elle n'arrive pas à aller bien loin.

Ma scroll a été définie par ajout de formulaires
valeur actuelle 4
valeur minimale 4
valeur maximale 150
changement de pas 1
changement de page 10
cellule liée : CoefGraphePeriode!$C$4:$C$150
bien entendu la valeur maximale change selon la sélection de période.


Est-ce que quelqu'un pourrait m'aider à ce sujet SVP ?


Merci

 

[vincent]

Bonsoir

pourrais tu joindre un exemple de ton fichier car sans un support le 'dépannage' me semble délicat.

Bonne soirée

@+Vincent

 

[mimi]

Salut


Merci encore pour ton aide mais du coup j'ai une autre question.


Je n'ai pas un seul graphique mais 9 que j'ai mis sur la même feuille de calcul.
Ma scroll ne marche que pour mon dernier graphique du code
Sub Macro5()
'
' Macro5 Macro
' Macro enregistrée le 30/09/2003 par 123
'

'
Application.ScreenUpdating = False
Sheets("Graphe").Shapes("Scroll Bar 31").Select
Selection.Max = Sheets("CoefGraphePeriode").Range("c65536").End(xlUp).Row - 15
Sheets("Graphe").ChartObjects("Graphique 1").Activate
Sheets("Graphe").ChartObjects("Graphique 11").Activate
Sheets("Graphe").ChartObjects("Graphique 29").Activate
Sheets("Graphe").ChartObjects("Graphique 5").Activate
Sheets("Graphe").ChartObjects("Graphique 6").Activate
Sheets("Graphe").ChartObjects("Graphique 7").Activate
Sheets("Graphe").ChartObjects("Graphique 32").Activate
Sheets("Graphe").ChartObjects("Graphique 30").Activate
Sheets("Graphe").ChartObjects("Graphique 2").Activate
ActiveChart.SetSourceData Source:=Sheets("CoefGraphePeriode").Range("C" & Range("c4") & ":G" & Range("c4") + 15 & ",C3:G3"), PlotBy:=xlColumns
Range("a1").Select
Application.ScreenUpdating = True
End Sub

ici seul le graphique 2 sera concerné par ma scroll


J'ai essayé de faire
Sub Macro5()
'
' Macro5 Macro
' Macro enregistrée le 30/09/2003 par 123
'

'
Application.ScreenUpdating = False
Sheets("Graphe").Shapes("Scroll Bar 31").Select
Selection.Max = Sheets("CoefGraphePeriode").Range("c65536").End(xlUp).Row - 15
Sheets("Graphe").ChartObjects.Activate
ActiveChart.SetSourceData Source:=Sheets("CoefGraphePeriode").Range("C" & Range("c4") & ":G" & Range("c4") + 15 & ",C3:G3"), PlotBy:=xlColumns
Range("a1").Select
Application.ScreenUpdating = True
End Sub

mais j'ai une erreur

J'ai également essayé de créer une autre feuille graphique censée contenir toutes mes autres feuilles graphiques mais comme quoi je n'y connais vraiment rien, je n'arrive pas à les coller dans ma nouvelle feuille graphique. Je n'arrive qu'à lui coller un graphique.


Comment faire ?


Merci

 

[vincent]

Bonsoir

peux tu me preciser ou se trouvent les plages de données de tes autres graphiques.Ensuite le fait que tes graphiques se trouvent tous sur la même feuille ne devrait pas posé de problème.Soit on rajoute un controle qui te permet de decider quel graphique la scroll barre va controler soit elle controle le graphique actif.

A plus

@+Vincent