XL 2010 Modification axe abscisse avec 2 combobox sur graphique

P

Profane

XLDnaute Occasionnel

• 16 Décembre 2016

• #2

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 17 Décembre 2016

• #3

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

 

Pièces jointes

• GphProfane.xlsm

  26.9 KB · Affichages: 42

Vote positif 0 Vote négatif

P

Profane

XLDnaute Occasionnel

• 18 Décembre 2016

• #4

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 18 Décembre 2016

• #5

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 ?

 

Vote positif 0 Vote négatif

P

Profane

XLDnaute Occasionnel

• 18 Décembre 2016

• #6

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 18 Décembre 2016

• #7

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

 

Vote positif 0 Vote négatif

P

Profane

XLDnaute Occasionnel

• 18 Décembre 2016

• #8

erreur 438, encore et encore.....🙂

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 18 Décembre 2016

• #9

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

 

Vote positif 0 Vote négatif

P

Profane

XLDnaute Occasionnel

• 18 Décembre 2016

• #10

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 18 Décembre 2016

• #11

Bon. Je l'ai fait comme ça.

 

Pièces jointes

• GphProfane.xlsm

  34.2 KB · Affichages: 42

Vote positif 0 Vote négatif

P

Profane

XLDnaute Occasionnel

• 19 Décembre 2016

• #12

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

 

Vote positif 0 Vote négatif