XL 2010 Modification axe abscisse avec 2 combobox sur graphique

[Profane]

Bonjour à tous,

je nomme des plages dans le gestionnaires de noms (correspondant à un tableau)
j'alimente 2 Combobox :
- 1 pour la date de début
- 1 pour la date de fin

j'ai 2 graphiques qui sont alimentés via les données du tableau

voila mon soucis:
j'aimerai que via le choix des 2 combo box, l'axe des abscisses soit modifié en conséquence, les données liés également

je vous joins un fichier

d'avance merci

 

[Profane]

bonjour à tous
apparemment ça a l air compliqué cette histoire
une piste a creusée ?
Cordialement

 

[Dranreb]

Bonjour
Il serait plus simple de le faire d'après une sélection dans la colonne Mois.

 

[Profane]

Bonjour Dranreb
je préfère vraiment passer par les valeurs des combobox, si possible
j'étais parti entre temps sur une autre méthode :

mais j'ai une erreur sur l'affectation des variables dd (date debut) et df (datefin)
une aide serait la bienvenue
voila le code :

Private Sub ComboBoxDFin_Change()
Dim PlageX As Range
Dim dd, df As Range




With Sheets("Graphiques")

'dd = ComboBoxDDebut.ListIndex.Address
dd = Range(ComboBoxDDebut.RowSource)(ComboBoxDDebut.ListIndex + 1).Address
'df = ComboBoxDDebut.ListIndex.Address
df = Range(ComboBoxDFin.RowSource)(ComboBoxDFin.ListIndex + 1).Address

Set PlageX = Range(dd,df)
ActiveChart.SeriesCollection(1).XValues = PlageX
ActiveChart.SeriesCollection(2).XValues = PlageX
ActiveChart.SeriesCollection(3).XValues = PlageX

End With


End Sub

 

[Dranreb]

Bonjour.
Manque Set devant, et il y a Address à la fin qu'il ne faut pas.
Pourquoi ne vous plait-il pas, le système consistant à nommer simplement "Lignes" les lignes entières couvrant toutes les autres plages nommées ?

 

[Profane]

re
j ai déjà essayé en ajoutant set et en enlevant adresses
j ai une erreur toujours la même, méthode non géré par l'objet
je fais ce code pour aider quel qu un, faut qu il soit simple a utiliser, surtout qu il doit l exécuter une fois par mois
l idée de la sélection de plage c est plutôt abstrait et moins "convivial" pour quel qu un qui n est pas familier de l'informatique ;-)
Cordialement

 

[Dranreb]

Manque aussi .Rows(
Set dd = Range(ComboBoxDDebut.RowSource).Rows(ComboBoxDDebut.ListIndex + 1)

 

[Profane]

erreur 438, encore et encore.....

 

[Dranreb]

Utilisez le nom d'objet worksheet devant Range
Votre With ne sert à rien de toute façon: rien ne commence par un point.

 

[Profane]

oui effectivement, a force de changer le code j en oublie l essentiel
MAIS toujours erreur 438, je me demande vraiment si c est possible de le faire directement en worksheets, ou si on n est pas obligé de passer par un userform, c est déconcertant tout de même

 

[Dranreb]

Bon. Je l'ai fait comme ça.

 

[Profane]

Bonjour Dranreb,
un mot : excellent, je ne pensais pas qu' il fallait un truc si complexe pour cette fonctionnalité
je n'ai pas encore compris la syntaxe, mais je m y attelle
merci beaucoup