Bonjour Daniel,
Je te remercie pour ton aide si précieuse.
J'ai réussi avec tes indications à refaire ton exemple (et avec
l'élimination des doublons c'est super !!). Seulement j'ai encore du
mal à l'appliquer à mon fichier : j'ai en effet 3 colonnes
supplémentaires qui doivent apparaitre dans la listbox 1 et du coup la
cinétique commence en G4 au lieu de D4.
Du coup j'ai modifié la macro de la façon suivante :
Private Sub Workbook_Open()
With Sheets("Feuil1")
.ListBox1.AddItem .[A4]
.ListBox1.AddItem .[B4]
.ListBox1.AddItem .[C4]
.ListBox1.AddItem .[D4]
.ListBox1.AddItem .[E4]
.ListBox1.AddItem .[F4]
.ListBox3.AddItem .[G4]
.ListBox3.AddItem .[H4]
.ListBox3.AddItem .[I4]
.ListBox3.AddItem .[J4]
.ListBox3.AddItem .[K4]
.ListBox3.AddItem .[L4]
.ListBox3.AddItem .[M4]
End With
End Sub
Ca ca m'a l'ai bon par contre pour la feuille 1 si je modifie de la
façon suivante j'ai pas de bonnes courbes ni de bonnes légendes :
rivate Sub CommandButton1_Click()
Dim c As Range, Ctr
If ListBox1.Value = "" Then MsgBox "Saisissez un choix dans la
première liste"
If ListBox3.Value = "" Then MsgBox "Saisissez un choix dans la
troisième liste"
test = False
For i = 0 To ListBox2.ListCount - 1
If ListBox2.Selected(i) Then test = True
Next i
If test = False Then
MsgBox "Saisissez un choix dans la seconde liste"
End If
Ctr = Application.Match(ListBox3.Value, [G4:M4], 0)
With ActiveSheet.ChartObjects(1).Chart
For i = .SeriesCollection.Count To 1 Step -1
.SeriesCollection(i).Delete
Next i
For i = 0 To ListBox2.ListCount - 1
If ListBox2.Selected(i) Then
For Each c In Range("A5",
Range("A65536").End(xlUp)).Offset(, ListBox1.ListIndex)
If c = ListBox2.List(i) Then
.SeriesCollection.NewSerie s
.SeriesCollection(.SeriesC ollection.Count).XValues
= Range("G4").Resize(, Ctr)
.SeriesCollection(.SeriesC ollection.Count).Values
= Range("G5").Offset(c.Row - 5).Resize(, Ctr)
.SeriesCollection(.SeriesC ollection.Count).Name
= Range("G5").Offset(c.Row - 5, -3)
.HasTitle = True
.ChartTitle.Characters.Tex t = ListBox2.Value
End If
Next c
End If
Next i
End With
ListBox1.ListIndex = -1
ListBox2.ListIndex = -1
End Sub
Private Sub ListBox1_Click()
Dim c As Range, Dico As New Collection
ListBox2.Clear
On Error Resume Next
For Each c In _
Range("A5", Range("A65536").End(xlUp)).Offset(,
ListBox1.ListIndex)
Dico.Add c, c
Next c
For Each Item In Dico
ListBox2.AddItem Item
Next Item
End Sub
Peux tu m'aider à nouveau ?
Je me demandais également si je voulais faire la même chose sur
plusieur feuilles du même classeur (même si le tableau de départ n'e st
pas le même)?
Est ce que ca te parait difficile à utiliser si le nombre de série du
graphique est de 200? car j'ai fait juste un essai avec quelques
lignes seulement.
Merci beaucoup pour ton aide
On 24 fév, 13:36, "Daniel.C" wrote:Regarde le classeur ci-joint; j'ai éliminé les doublons dans listbox 2 et
réglé le problème de la légende :http://cjoint.com/?cynIOWFdYk
Daniel
a écrit dans le message de news:
Bonjour Daniel,
Effectivement, mais connaissance en vba sont effectivement limitée.
Peux tu me détailler au maximum TOUTES les étapes à effectuer ?
Par exemple : faut-il que je commence par créer un graphique normale,
puis creer les listbox (c'est bien affichage, barre d'outils et
formulaire?) puis faire un copier de coller de tes macros?
Une sorte de didactiel pour réussir à recréer ton magnifique trava il
pas à pas, ca serait vraiment super (je sais que je t'en demande
beaucoup mais je suis bloquée).
Merci beaucoup
On 23 fév, 23:45, "Daniel.C" wrote:Ce n'est pas facile, et il reste les points suivants à améliorer ( au
minimum) :
- le titre.
- l'espacement des séries dans la légende.
- la suppression dans le listbox du milieu.
J'essaie d'expliquer :
Au départ, toutes les séries possibles sont tracées
Dans ThisWorkbook :
Private Sub Workbook_Open()
With Sheets("Feuil1")
.ListBox1.AddItem .[A4]
.ListBox1.AddItem .[B4]
.ListBox1.AddItem .[C4]
.ListBox3.AddItem .[D4]
.ListBox3.AddItem .[E4]
.ListBox3.AddItem .[F4]
.ListBox3.AddItem .[G4]
.ListBox3.AddItem .[H4]
.ListBox3.AddItem .[I4]
.ListBox3.AddItem .[J4]
End With
End Sub
C'est à dire, à l'ouverture du classeur, remplissage de la listbox du haut
(ListBox1) et de la listbox du bas (ListBox3). Naturellement, il faut
envisager une boucle s'il y a plus d'items.
Le reste du code est dans la feuille :
Sur un choix dans la listbox1, les séries deviennent invisibles et l a
ListBox2 (celle du milieu) est rempli selon le choix effectué.
Sur click sur le bouton :
- La variable Ctr reçoit la position du choix de la ListBox3 (l'heur e) par
rapport à D4 (pour définir les valeurs de l'axe des X).
-Pour chaque série :
-- L'axe des X est défini.
-- Les valeurs Y sont définies à 1 valeur.
-- La couleur de la police de la légende pour la série est positio nnée à
blanc.
Traitement de la ou des sélection(s) du ListBox2 :
Pour chaque série sélectionnée :
Pour chaque valeur de la zone A5:Cn, (n étant la dernière ligne co ntenant
des informations) :
Si cette valeur est égale au choix de ListBox2 :
- On rend la série visible.
- Dimensionnement de la plage des Y selon le choix effectué dans le
ListBox3.
-Rétablissement de la couleur de la police de l'entrée de légend e
correspondant à la série.
J'espère que ton niveau de connaissance VBA te permettra de comprend re mes
explications. Dans tous les cas, n'hésite pas à demander tous les
renseignements dont tu peux avoir besoin.
Daniel
a écrit dans le message de news:
Bonsoir Daniel,
Merci beaucoup pour cet exemple c'est exactement ce qu'il me faut !!!
Ca me sauve la vie!!!
Pourrais tu me détailler comment tu as fais pour que je puisse faire
la même chose sur mon fichier ça serait vraiment sympa?
Encore merci
On 23 fév, 19:25, "Daniel.C" wrote:Bonsoir.
Regarde le classeur à l'adresse :http://cjoint.com/?cxtyeuvpub
Toutes les séries sont tracées à l'origine. Il faut faire un c hoix dans
chaque listbox.
Cordialement.
Daniel
a écrit dans le message de news:
Bonjour JB,
Je vous remercie pour ces indications mais cet exemple ne me convien t
pas (en plus j'ai du mal à l'appliquer) car je ne peux pas compare r
différents produits ce qui est vraiment mon objectif principal.
Je voudrais vraiment avoir 3 listes déroulantes :
-une où je coche le ou les produits et apparaissent les courbes de s
produits choisis des différentes mesures en fonction du temps et e n
légende le nom des produits.
-une où je selectionne la gamme des produits et apparaissent les
courbes des produits appartenant à cette gamme des différentes m esures
en fonction du temps et en légende le nom des produits.
-une où serait indiqué le type de produit et apparaissent les co urbes
des produits appartenant à ce type des différentes mesures en fo nction
du temps et en légende le nom des produits.
Est ce que c'est faisable?
Pouvez-vous m'aider s'il vous plaît?
Merci d'avance
On 23 fév, 15:17, JB wrote:Bonjour,
Exmple onglet graphedyn5
http://boisgontierjacques.free.fr/fichiers/graphe/jb-GraphiqueDynam iq...
JB
On 23 fév, 14:03, wrote:Bonjour à tous !
J'ai une nouvelle fois besoin de vos lumières...
J'ai le tableau de données suivants :http://cjoint.com/?cxn3AD NpIl
(bien sûr il s'agit d'un exemple, il faut immaginer ce tableau avec
beaucoup plus de lignes et de colonnes...).
Je voudrais trouver un moyen de pouvoir obtenir une sorte de
graphique
dynamique (sous forme de courbes) où je pourais choisir sur le
graphique par l'intermédiaire de liste déroulantes :
En ordonner : les valeurs des mesures uniquement.
En abcisse : les divers temps de mesure (1H...24H) et la possibi lié
de
choisir les produits que je veux ou selectionner par gamme ou en core
par type de produit.
J'ai déja réussi grâce à un graphique relié à un TCD à pouvoir
choisir
les produits désirés (sans cinétique) mais pas pour les de ux autres
options :
ex :
si je selection la gamme A, il apparaitrait les courbes de mesur es
du
produit AA et AAA...
si je selection en type de produit livres, seule la cinétique de la
courbe CC apparait.
Je vous remercie d'avance pour votre aide ainsi que de bien voul oir
me
détailler la procédure à effectuer pour que je puisse l'ap pliquer à
mon fichier (car je ne suis malheureusement pas une pro d'excel) .-
Masquer le texte des messages
...
plus de détails »- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour Daniel,
Je te remercie pour ton aide si précieuse.
J'ai réussi avec tes indications à refaire ton exemple (et avec
l'élimination des doublons c'est super !!). Seulement j'ai encore du
mal à l'appliquer à mon fichier : j'ai en effet 3 colonnes
supplémentaires qui doivent apparaitre dans la listbox 1 et du coup la
cinétique commence en G4 au lieu de D4.
Du coup j'ai modifié la macro de la façon suivante :
Private Sub Workbook_Open()
With Sheets("Feuil1")
.ListBox1.AddItem .[A4]
.ListBox1.AddItem .[B4]
.ListBox1.AddItem .[C4]
.ListBox1.AddItem .[D4]
.ListBox1.AddItem .[E4]
.ListBox1.AddItem .[F4]
.ListBox3.AddItem .[G4]
.ListBox3.AddItem .[H4]
.ListBox3.AddItem .[I4]
.ListBox3.AddItem .[J4]
.ListBox3.AddItem .[K4]
.ListBox3.AddItem .[L4]
.ListBox3.AddItem .[M4]
End With
End Sub
Ca ca m'a l'ai bon par contre pour la feuille 1 si je modifie de la
façon suivante j'ai pas de bonnes courbes ni de bonnes légendes :
rivate Sub CommandButton1_Click()
Dim c As Range, Ctr
If ListBox1.Value = "" Then MsgBox "Saisissez un choix dans la
première liste"
If ListBox3.Value = "" Then MsgBox "Saisissez un choix dans la
troisième liste"
test = False
For i = 0 To ListBox2.ListCount - 1
If ListBox2.Selected(i) Then test = True
Next i
If test = False Then
MsgBox "Saisissez un choix dans la seconde liste"
End If
Ctr = Application.Match(ListBox3.Value, [G4:M4], 0)
With ActiveSheet.ChartObjects(1).Chart
For i = .SeriesCollection.Count To 1 Step -1
.SeriesCollection(i).Delete
Next i
For i = 0 To ListBox2.ListCount - 1
If ListBox2.Selected(i) Then
For Each c In Range("A5",
Range("A65536").End(xlUp)).Offset(, ListBox1.ListIndex)
If c = ListBox2.List(i) Then
.SeriesCollection.NewSerie s
.SeriesCollection(.SeriesC ollection.Count).XValues
= Range("G4").Resize(, Ctr)
.SeriesCollection(.SeriesC ollection.Count).Values
= Range("G5").Offset(c.Row - 5).Resize(, Ctr)
.SeriesCollection(.SeriesC ollection.Count).Name
= Range("G5").Offset(c.Row - 5, -3)
.HasTitle = True
.ChartTitle.Characters.Tex t = ListBox2.Value
End If
Next c
End If
Next i
End With
ListBox1.ListIndex = -1
ListBox2.ListIndex = -1
End Sub
Private Sub ListBox1_Click()
Dim c As Range, Dico As New Collection
ListBox2.Clear
On Error Resume Next
For Each c In _
Range("A5", Range("A65536").End(xlUp)).Offset(,
ListBox1.ListIndex)
Dico.Add c, c
Next c
For Each Item In Dico
ListBox2.AddItem Item
Next Item
End Sub
Peux tu m'aider à nouveau ?
Je me demandais également si je voulais faire la même chose sur
plusieur feuilles du même classeur (même si le tableau de départ n'e st
pas le même)?
Est ce que ca te parait difficile à utiliser si le nombre de série du
graphique est de 200? car j'ai fait juste un essai avec quelques
lignes seulement.
Merci beaucoup pour ton aide
On 24 fév, 13:36, "Daniel.C" <dZZZcolarde...@free.fr> wrote:
Regarde le classeur ci-joint; j'ai éliminé les doublons dans listbox 2 et
réglé le problème de la légende :http://cjoint.com/?cynIOWFdYk
Daniel
<newoceane2...@yahoo.fr> a écrit dans le message de news:
fcd19c0e-1903-47c9-8a67-802e845da...@c33g2000hsd.googlegroups.com...
Bonjour Daniel,
Effectivement, mais connaissance en vba sont effectivement limitée.
Peux tu me détailler au maximum TOUTES les étapes à effectuer ?
Par exemple : faut-il que je commence par créer un graphique normale,
puis creer les listbox (c'est bien affichage, barre d'outils et
formulaire?) puis faire un copier de coller de tes macros?
Une sorte de didactiel pour réussir à recréer ton magnifique trava il
pas à pas, ca serait vraiment super (je sais que je t'en demande
beaucoup mais je suis bloquée).
Merci beaucoup
On 23 fév, 23:45, "Daniel.C" <dZZZcolarde...@free.fr> wrote:
Ce n'est pas facile, et il reste les points suivants à améliorer ( au
minimum) :
- le titre.
- l'espacement des séries dans la légende.
- la suppression dans le listbox du milieu.
J'essaie d'expliquer :
Au départ, toutes les séries possibles sont tracées
Dans ThisWorkbook :
Private Sub Workbook_Open()
With Sheets("Feuil1")
.ListBox1.AddItem .[A4]
.ListBox1.AddItem .[B4]
.ListBox1.AddItem .[C4]
.ListBox3.AddItem .[D4]
.ListBox3.AddItem .[E4]
.ListBox3.AddItem .[F4]
.ListBox3.AddItem .[G4]
.ListBox3.AddItem .[H4]
.ListBox3.AddItem .[I4]
.ListBox3.AddItem .[J4]
End With
End Sub
C'est à dire, à l'ouverture du classeur, remplissage de la listbox du haut
(ListBox1) et de la listbox du bas (ListBox3). Naturellement, il faut
envisager une boucle s'il y a plus d'items.
Le reste du code est dans la feuille :
Sur un choix dans la listbox1, les séries deviennent invisibles et l a
ListBox2 (celle du milieu) est rempli selon le choix effectué.
Sur click sur le bouton :
- La variable Ctr reçoit la position du choix de la ListBox3 (l'heur e) par
rapport à D4 (pour définir les valeurs de l'axe des X).
-Pour chaque série :
-- L'axe des X est défini.
-- Les valeurs Y sont définies à 1 valeur.
-- La couleur de la police de la légende pour la série est positio nnée à
blanc.
Traitement de la ou des sélection(s) du ListBox2 :
Pour chaque série sélectionnée :
Pour chaque valeur de la zone A5:Cn, (n étant la dernière ligne co ntenant
des informations) :
Si cette valeur est égale au choix de ListBox2 :
- On rend la série visible.
- Dimensionnement de la plage des Y selon le choix effectué dans le
ListBox3.
-Rétablissement de la couleur de la police de l'entrée de légend e
correspondant à la série.
J'espère que ton niveau de connaissance VBA te permettra de comprend re mes
explications. Dans tous les cas, n'hésite pas à demander tous les
renseignements dont tu peux avoir besoin.
Daniel
<newoceane2...@yahoo.fr> a écrit dans le message de news:
7ea2c58b-89ad-4801-bc62-77d2a6461...@q70g2000hsb.googlegroups.com...
Bonsoir Daniel,
Merci beaucoup pour cet exemple c'est exactement ce qu'il me faut !!!
Ca me sauve la vie!!!
Pourrais tu me détailler comment tu as fais pour que je puisse faire
la même chose sur mon fichier ça serait vraiment sympa?
Encore merci
On 23 fév, 19:25, "Daniel.C" <dZZZcolarde...@free.fr> wrote:
Bonsoir.
Regarde le classeur à l'adresse :http://cjoint.com/?cxtyeuvpub
Toutes les séries sont tracées à l'origine. Il faut faire un c hoix dans
chaque listbox.
Cordialement.
Daniel
<newoceane2...@yahoo.fr> a écrit dans le message de news:
da8108a0-fbff-4919-95b9-590c6186b...@i29g2000prf.googlegroups.com...
Bonjour JB,
Je vous remercie pour ces indications mais cet exemple ne me convien t
pas (en plus j'ai du mal à l'appliquer) car je ne peux pas compare r
différents produits ce qui est vraiment mon objectif principal.
Je voudrais vraiment avoir 3 listes déroulantes :
-une où je coche le ou les produits et apparaissent les courbes de s
produits choisis des différentes mesures en fonction du temps et e n
légende le nom des produits.
-une où je selectionne la gamme des produits et apparaissent les
courbes des produits appartenant à cette gamme des différentes m esures
en fonction du temps et en légende le nom des produits.
-une où serait indiqué le type de produit et apparaissent les co urbes
des produits appartenant à ce type des différentes mesures en fo nction
du temps et en légende le nom des produits.
Est ce que c'est faisable?
Pouvez-vous m'aider s'il vous plaît?
Merci d'avance
On 23 fév, 15:17, JB <boisgont...@hotmail.com> wrote:
Bonjour,
Exmple onglet graphedyn5
http://boisgontierjacques.free.fr/fichiers/graphe/jb-GraphiqueDynam iq...
JB
On 23 fév, 14:03, newoceane2...@yahoo.fr wrote:
Bonjour à tous !
J'ai une nouvelle fois besoin de vos lumières...
J'ai le tableau de données suivants :http://cjoint.com/?cxn3AD NpIl
(bien sûr il s'agit d'un exemple, il faut immaginer ce tableau avec
beaucoup plus de lignes et de colonnes...).
Je voudrais trouver un moyen de pouvoir obtenir une sorte de
graphique
dynamique (sous forme de courbes) où je pourais choisir sur le
graphique par l'intermédiaire de liste déroulantes :
En ordonner : les valeurs des mesures uniquement.
En abcisse : les divers temps de mesure (1H...24H) et la possibi lié
de
choisir les produits que je veux ou selectionner par gamme ou en core
par type de produit.
J'ai déja réussi grâce à un graphique relié à un TCD à pouvoir
choisir
les produits désirés (sans cinétique) mais pas pour les de ux autres
options :
ex :
si je selection la gamme A, il apparaitrait les courbes de mesur es
du
produit AA et AAA...
si je selection en type de produit livres, seule la cinétique de la
courbe CC apparait.
Je vous remercie d'avance pour votre aide ainsi que de bien voul oir
me
détailler la procédure à effectuer pour que je puisse l'ap pliquer à
mon fichier (car je ne suis malheureusement pas une pro d'excel) .-
Masquer le texte des messages
...
plus de détails »- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour Daniel,
Je te remercie pour ton aide si précieuse.
J'ai réussi avec tes indications à refaire ton exemple (et avec
l'élimination des doublons c'est super !!). Seulement j'ai encore du
mal à l'appliquer à mon fichier : j'ai en effet 3 colonnes
supplémentaires qui doivent apparaitre dans la listbox 1 et du coup la
cinétique commence en G4 au lieu de D4.
Du coup j'ai modifié la macro de la façon suivante :
Private Sub Workbook_Open()
With Sheets("Feuil1")
.ListBox1.AddItem .[A4]
.ListBox1.AddItem .[B4]
.ListBox1.AddItem .[C4]
.ListBox1.AddItem .[D4]
.ListBox1.AddItem .[E4]
.ListBox1.AddItem .[F4]
.ListBox3.AddItem .[G4]
.ListBox3.AddItem .[H4]
.ListBox3.AddItem .[I4]
.ListBox3.AddItem .[J4]
.ListBox3.AddItem .[K4]
.ListBox3.AddItem .[L4]
.ListBox3.AddItem .[M4]
End With
End Sub
Ca ca m'a l'ai bon par contre pour la feuille 1 si je modifie de la
façon suivante j'ai pas de bonnes courbes ni de bonnes légendes :
rivate Sub CommandButton1_Click()
Dim c As Range, Ctr
If ListBox1.Value = "" Then MsgBox "Saisissez un choix dans la
première liste"
If ListBox3.Value = "" Then MsgBox "Saisissez un choix dans la
troisième liste"
test = False
For i = 0 To ListBox2.ListCount - 1
If ListBox2.Selected(i) Then test = True
Next i
If test = False Then
MsgBox "Saisissez un choix dans la seconde liste"
End If
Ctr = Application.Match(ListBox3.Value, [G4:M4], 0)
With ActiveSheet.ChartObjects(1).Chart
For i = .SeriesCollection.Count To 1 Step -1
.SeriesCollection(i).Delete
Next i
For i = 0 To ListBox2.ListCount - 1
If ListBox2.Selected(i) Then
For Each c In Range("A5",
Range("A65536").End(xlUp)).Offset(, ListBox1.ListIndex)
If c = ListBox2.List(i) Then
.SeriesCollection.NewSerie s
.SeriesCollection(.SeriesC ollection.Count).XValues
= Range("G4").Resize(, Ctr)
.SeriesCollection(.SeriesC ollection.Count).Values
= Range("G5").Offset(c.Row - 5).Resize(, Ctr)
.SeriesCollection(.SeriesC ollection.Count).Name
= Range("G5").Offset(c.Row - 5, -3)
.HasTitle = True
.ChartTitle.Characters.Tex t = ListBox2.Value
End If
Next c
End If
Next i
End With
ListBox1.ListIndex = -1
ListBox2.ListIndex = -1
End Sub
Private Sub ListBox1_Click()
Dim c As Range, Dico As New Collection
ListBox2.Clear
On Error Resume Next
For Each c In _
Range("A5", Range("A65536").End(xlUp)).Offset(,
ListBox1.ListIndex)
Dico.Add c, c
Next c
For Each Item In Dico
ListBox2.AddItem Item
Next Item
End Sub
Peux tu m'aider à nouveau ?
Je me demandais également si je voulais faire la même chose sur
plusieur feuilles du même classeur (même si le tableau de départ n'e st
pas le même)?
Est ce que ca te parait difficile à utiliser si le nombre de série du
graphique est de 200? car j'ai fait juste un essai avec quelques
lignes seulement.
Merci beaucoup pour ton aide
On 24 fév, 13:36, "Daniel.C" wrote:Regarde le classeur ci-joint; j'ai éliminé les doublons dans listbox 2 et
réglé le problème de la légende :http://cjoint.com/?cynIOWFdYk
Daniel
a écrit dans le message de news:
Bonjour Daniel,
Effectivement, mais connaissance en vba sont effectivement limitée.
Peux tu me détailler au maximum TOUTES les étapes à effectuer ?
Par exemple : faut-il que je commence par créer un graphique normale,
puis creer les listbox (c'est bien affichage, barre d'outils et
formulaire?) puis faire un copier de coller de tes macros?
Une sorte de didactiel pour réussir à recréer ton magnifique trava il
pas à pas, ca serait vraiment super (je sais que je t'en demande
beaucoup mais je suis bloquée).
Merci beaucoup
On 23 fév, 23:45, "Daniel.C" wrote:Ce n'est pas facile, et il reste les points suivants à améliorer ( au
minimum) :
- le titre.
- l'espacement des séries dans la légende.
- la suppression dans le listbox du milieu.
J'essaie d'expliquer :
Au départ, toutes les séries possibles sont tracées
Dans ThisWorkbook :
Private Sub Workbook_Open()
With Sheets("Feuil1")
.ListBox1.AddItem .[A4]
.ListBox1.AddItem .[B4]
.ListBox1.AddItem .[C4]
.ListBox3.AddItem .[D4]
.ListBox3.AddItem .[E4]
.ListBox3.AddItem .[F4]
.ListBox3.AddItem .[G4]
.ListBox3.AddItem .[H4]
.ListBox3.AddItem .[I4]
.ListBox3.AddItem .[J4]
End With
End Sub
C'est à dire, à l'ouverture du classeur, remplissage de la listbox du haut
(ListBox1) et de la listbox du bas (ListBox3). Naturellement, il faut
envisager une boucle s'il y a plus d'items.
Le reste du code est dans la feuille :
Sur un choix dans la listbox1, les séries deviennent invisibles et l a
ListBox2 (celle du milieu) est rempli selon le choix effectué.
Sur click sur le bouton :
- La variable Ctr reçoit la position du choix de la ListBox3 (l'heur e) par
rapport à D4 (pour définir les valeurs de l'axe des X).
-Pour chaque série :
-- L'axe des X est défini.
-- Les valeurs Y sont définies à 1 valeur.
-- La couleur de la police de la légende pour la série est positio nnée à
blanc.
Traitement de la ou des sélection(s) du ListBox2 :
Pour chaque série sélectionnée :
Pour chaque valeur de la zone A5:Cn, (n étant la dernière ligne co ntenant
des informations) :
Si cette valeur est égale au choix de ListBox2 :
- On rend la série visible.
- Dimensionnement de la plage des Y selon le choix effectué dans le
ListBox3.
-Rétablissement de la couleur de la police de l'entrée de légend e
correspondant à la série.
J'espère que ton niveau de connaissance VBA te permettra de comprend re mes
explications. Dans tous les cas, n'hésite pas à demander tous les
renseignements dont tu peux avoir besoin.
Daniel
a écrit dans le message de news:
Bonsoir Daniel,
Merci beaucoup pour cet exemple c'est exactement ce qu'il me faut !!!
Ca me sauve la vie!!!
Pourrais tu me détailler comment tu as fais pour que je puisse faire
la même chose sur mon fichier ça serait vraiment sympa?
Encore merci
On 23 fév, 19:25, "Daniel.C" wrote:Bonsoir.
Regarde le classeur à l'adresse :http://cjoint.com/?cxtyeuvpub
Toutes les séries sont tracées à l'origine. Il faut faire un c hoix dans
chaque listbox.
Cordialement.
Daniel
a écrit dans le message de news:
Bonjour JB,
Je vous remercie pour ces indications mais cet exemple ne me convien t
pas (en plus j'ai du mal à l'appliquer) car je ne peux pas compare r
différents produits ce qui est vraiment mon objectif principal.
Je voudrais vraiment avoir 3 listes déroulantes :
-une où je coche le ou les produits et apparaissent les courbes de s
produits choisis des différentes mesures en fonction du temps et e n
légende le nom des produits.
-une où je selectionne la gamme des produits et apparaissent les
courbes des produits appartenant à cette gamme des différentes m esures
en fonction du temps et en légende le nom des produits.
-une où serait indiqué le type de produit et apparaissent les co urbes
des produits appartenant à ce type des différentes mesures en fo nction
du temps et en légende le nom des produits.
Est ce que c'est faisable?
Pouvez-vous m'aider s'il vous plaît?
Merci d'avance
On 23 fév, 15:17, JB wrote:Bonjour,
Exmple onglet graphedyn5
http://boisgontierjacques.free.fr/fichiers/graphe/jb-GraphiqueDynam iq...
JB
On 23 fév, 14:03, wrote:Bonjour à tous !
J'ai une nouvelle fois besoin de vos lumières...
J'ai le tableau de données suivants :http://cjoint.com/?cxn3AD NpIl
(bien sûr il s'agit d'un exemple, il faut immaginer ce tableau avec
beaucoup plus de lignes et de colonnes...).
Je voudrais trouver un moyen de pouvoir obtenir une sorte de
graphique
dynamique (sous forme de courbes) où je pourais choisir sur le
graphique par l'intermédiaire de liste déroulantes :
En ordonner : les valeurs des mesures uniquement.
En abcisse : les divers temps de mesure (1H...24H) et la possibi lié
de
choisir les produits que je veux ou selectionner par gamme ou en core
par type de produit.
J'ai déja réussi grâce à un graphique relié à un TCD à pouvoir
choisir
les produits désirés (sans cinétique) mais pas pour les de ux autres
options :
ex :
si je selection la gamme A, il apparaitrait les courbes de mesur es
du
produit AA et AAA...
si je selection en type de produit livres, seule la cinétique de la
courbe CC apparait.
Je vous remercie d'avance pour votre aide ainsi que de bien voul oir
me
détailler la procédure à effectuer pour que je puisse l'ap pliquer à
mon fichier (car je ne suis malheureusement pas une pro d'excel) .-
Masquer le texte des messages
...
plus de détails »- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour Daniel,
Je te remercie pour ton aide si précieuse.
J'ai réussi avec tes indications à refaire ton exemple (et avec
l'élimination des doublons c'est super !!). Seulement j'ai encore du
mal à l'appliquer à mon fichier : j'ai en effet 3 colonnes
supplémentaires qui doivent apparaitre dans la listbox 1 et du coup la
cinétique commence en G4 au lieu de D4.
Du coup j'ai modifié la macro de la façon suivante :
Private Sub Workbook_Open()
With Sheets("Feuil1")
.ListBox1.AddItem .[A4]
.ListBox1.AddItem .[B4]
.ListBox1.AddItem .[C4]
.ListBox1.AddItem .[D4]
.ListBox1.AddItem .[E4]
.ListBox1.AddItem .[F4]
.ListBox3.AddItem .[G4]
.ListBox3.AddItem .[H4]
.ListBox3.AddItem .[I4]
.ListBox3.AddItem .[J4]
.ListBox3.AddItem .[K4]
.ListBox3.AddItem .[L4]
.ListBox3.AddItem .[M4]
End With
End Sub
Ca ca m'a l'ai bon par contre pour la feuille 1 si je modifie de la
façon suivante j'ai pas de bonnes courbes ni de bonnes légendes :
rivate Sub CommandButton1_Click()
Dim c As Range, Ctr
If ListBox1.Value = "" Then MsgBox "Saisissez un choix dans la
première liste"
If ListBox3.Value = "" Then MsgBox "Saisissez un choix dans la
troisième liste"
test = False
For i = 0 To ListBox2.ListCount - 1
If ListBox2.Selected(i) Then test = True
Next i
If test = False Then
MsgBox "Saisissez un choix dans la seconde liste"
End If
Ctr = Application.Match(ListBox3.Value, [G4:M4], 0)
With ActiveSheet.ChartObjects(1).Chart
For i = .SeriesCollection.Count To 1 Step -1
.SeriesCollection(i).Delete
Next i
For i = 0 To ListBox2.ListCount - 1
If ListBox2.Selected(i) Then
For Each c In Range("A5",
Range("A65536").End(xlUp)).Offset(, ListBox1.ListIndex)
If c = ListBox2.List(i) Then
.SeriesCollection.NewSeries
.SeriesCollection(.SeriesCollection.Count).XValues
= Range("G4").Resize(, Ctr)
.SeriesCollection(.SeriesCollection.Count).Values
= Range("G5").Offset(c.Row - 5).Resize(, Ctr)
.SeriesCollection(.SeriesCollection.Count).Name
= Range("G5").Offset(c.Row - 5, -3)
.HasTitle = True
.ChartTitle.Characters.Text = ListBox2.Value
End If
Next c
End If
Next i
End With
ListBox1.ListIndex = -1
ListBox2.ListIndex = -1
End Sub
Private Sub ListBox1_Click()
Dim c As Range, Dico As New Collection
ListBox2.Clear
On Error Resume Next
For Each c In _
Range("A5", Range("A65536").End(xlUp)).Offset(,
ListBox1.ListIndex)
Dico.Add c, c
Next c
For Each Item In Dico
ListBox2.AddItem Item
Next Item
End Sub
Peux tu m'aider à nouveau ?
Je me demandais également si je voulais faire la même chose sur
plusieur feuilles du même classeur (même si le tableau de départ n'est
pas le même)?
Est ce que ca te parait difficile à utiliser si le nombre de série du
graphique est de 200? car j'ai fait juste un essai avec quelques
lignes seulement.
Merci beaucoup pour ton aide
On 24 fév, 13:36, "Daniel.C" wrote:Regarde le classeur ci-joint; j'ai éliminé les doublons dans listbox2 et
réglé le problème de la légende :http://cjoint.com/?cynIOWFdYk
Daniel
a écrit dans le message de news:
Bonjour Daniel,
Effectivement, mais connaissance en vba sont effectivement limitée.
Peux tu me détailler au maximum TOUTES les étapes à effectuer ?
Par exemple : faut-il que je commence par créer un graphique normale,
puis creer les listbox (c'est bien affichage, barre d'outils et
formulaire?) puis faire un copier de coller de tes macros?
Une sorte de didactiel pour réussir à recréer ton magnifique travail
pas à pas, ca serait vraiment super (je sais que je t'en demande
beaucoup mais je suis bloquée).
Merci beaucoup
On 23 fév, 23:45, "Daniel.C" wrote:Ce n'est pas facile, et il reste les points suivants à améliorer (au
minimum) :
- le titre.
- l'espacement des séries dans la légende.
- la suppression dans le listbox du milieu.
J'essaie d'expliquer :
Au départ, toutes les séries possibles sont tracées
Dans ThisWorkbook :
Private Sub Workbook_Open()
With Sheets("Feuil1")
.ListBox1.AddItem .[A4]
.ListBox1.AddItem .[B4]
.ListBox1.AddItem .[C4]
.ListBox3.AddItem .[D4]
.ListBox3.AddItem .[E4]
.ListBox3.AddItem .[F4]
.ListBox3.AddItem .[G4]
.ListBox3.AddItem .[H4]
.ListBox3.AddItem .[I4]
.ListBox3.AddItem .[J4]
End With
End Sub
C'est à dire, à l'ouverture du classeur, remplissage de la listbox du
haut
(ListBox1) et de la listbox du bas (ListBox3). Naturellement, il faut
envisager une boucle s'il y a plus d'items.
Le reste du code est dans la feuille :
Sur un choix dans la listbox1, les séries deviennent invisibles et la
ListBox2 (celle du milieu) est rempli selon le choix effectué.
Sur click sur le bouton :
- La variable Ctr reçoit la position du choix de la ListBox3 (l'heure)
par
rapport à D4 (pour définir les valeurs de l'axe des X).
-Pour chaque série :
-- L'axe des X est défini.
-- Les valeurs Y sont définies à 1 valeur.
-- La couleur de la police de la légende pour la série est positionnée
à
blanc.
Traitement de la ou des sélection(s) du ListBox2 :
Pour chaque série sélectionnée :
Pour chaque valeur de la zone A5:Cn, (n étant la dernière ligne
contenant
des informations) :
Si cette valeur est égale au choix de ListBox2 :
- On rend la série visible.
- Dimensionnement de la plage des Y selon le choix effectué dans le
ListBox3.
-Rétablissement de la couleur de la police de l'entrée de légende
correspondant à la série.
J'espère que ton niveau de connaissance VBA te permettra de comprendre
mes
explications. Dans tous les cas, n'hésite pas à demander tous les
renseignements dont tu peux avoir besoin.
Daniel
a écrit dans le message de news:
Bonsoir Daniel,
Merci beaucoup pour cet exemple c'est exactement ce qu'il me faut !!!
Ca me sauve la vie!!!
Pourrais tu me détailler comment tu as fais pour que je puisse faire
la même chose sur mon fichier ça serait vraiment sympa?
Encore merci
On 23 fév, 19:25, "Daniel.C" wrote:Bonsoir.
Regarde le classeur à l'adresse :http://cjoint.com/?cxtyeuvpub
Toutes les séries sont tracées à l'origine. Il faut faire un choix
dans
chaque listbox.
Cordialement.
Daniel
a écrit dans le message de news:
Bonjour JB,
Je vous remercie pour ces indications mais cet exemple ne me
convient
pas (en plus j'ai du mal à l'appliquer) car je ne peux pas comparer
différents produits ce qui est vraiment mon objectif principal.
Je voudrais vraiment avoir 3 listes déroulantes :
-une où je coche le ou les produits et apparaissent les courbes des
produits choisis des différentes mesures en fonction du temps et en
légende le nom des produits.
-une où je selectionne la gamme des produits et apparaissent les
courbes des produits appartenant à cette gamme des différentes
mesures
en fonction du temps et en légende le nom des produits.
-une où serait indiqué le type de produit et apparaissent les
courbes
des produits appartenant à ce type des différentes mesures en
fonction
du temps et en légende le nom des produits.
Est ce que c'est faisable?
Pouvez-vous m'aider s'il vous plaît?
Merci d'avance
On 23 fév, 15:17, JB wrote:Bonjour,
Exmple onglet graphedyn5
http://boisgontierjacques.free.fr/fichiers/graphe/jb-GraphiqueDynamiq...
JB
On 23 fév, 14:03, wrote:Bonjour à tous !
J'ai une nouvelle fois besoin de vos lumières...
J'ai le tableau de données suivants
:http://cjoint.com/?cxn3ADNpIl
(bien sûr il s'agit d'un exemple, il faut immaginer ce tableau
avec
beaucoup plus de lignes et de colonnes...).
Je voudrais trouver un moyen de pouvoir obtenir une sorte de
graphique
dynamique (sous forme de courbes) où je pourais choisir sur le
graphique par l'intermédiaire de liste déroulantes :
En ordonner : les valeurs des mesures uniquement.
En abcisse : les divers temps de mesure (1H...24H) et la
possibilié
de
choisir les produits que je veux ou selectionner par gamme ou
encore
par type de produit.
J'ai déja réussi grâce à un graphique relié à un TCD à pouvoir
choisir
les produits désirés (sans cinétique) mais pas pour les deux
autres
options :
ex :
si je selection la gamme A, il apparaitrait les courbes de
mesures
du
produit AA et AAA...
si je selection en type de produit livres, seule la cinétique de
la
courbe CC apparait.
Je vous remercie d'avance pour votre aide ainsi que de bien
vouloir
me
détailler la procédure à effectuer pour que je puisse
l'appliquer à
mon fichier (car je ne suis malheureusement pas une pro
d'excel).-
Masquer le texte des messages
...
plus de détails »- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour Daniel,
Je te remercie pour ton aide si précieuse.
J'ai réussi avec tes indications à refaire ton exemple (et avec
l'élimination des doublons c'est super !!). Seulement j'ai encore du
mal à l'appliquer à mon fichier : j'ai en effet 3 colonnes
supplémentaires qui doivent apparaitre dans la listbox 1 et du coup la
cinétique commence en G4 au lieu de D4.
Du coup j'ai modifié la macro de la façon suivante :
Private Sub Workbook_Open()
With Sheets("Feuil1")
.ListBox1.AddItem .[A4]
.ListBox1.AddItem .[B4]
.ListBox1.AddItem .[C4]
.ListBox1.AddItem .[D4]
.ListBox1.AddItem .[E4]
.ListBox1.AddItem .[F4]
.ListBox3.AddItem .[G4]
.ListBox3.AddItem .[H4]
.ListBox3.AddItem .[I4]
.ListBox3.AddItem .[J4]
.ListBox3.AddItem .[K4]
.ListBox3.AddItem .[L4]
.ListBox3.AddItem .[M4]
End With
End Sub
Ca ca m'a l'ai bon par contre pour la feuille 1 si je modifie de la
façon suivante j'ai pas de bonnes courbes ni de bonnes légendes :
rivate Sub CommandButton1_Click()
Dim c As Range, Ctr
If ListBox1.Value = "" Then MsgBox "Saisissez un choix dans la
première liste"
If ListBox3.Value = "" Then MsgBox "Saisissez un choix dans la
troisième liste"
test = False
For i = 0 To ListBox2.ListCount - 1
If ListBox2.Selected(i) Then test = True
Next i
If test = False Then
MsgBox "Saisissez un choix dans la seconde liste"
End If
Ctr = Application.Match(ListBox3.Value, [G4:M4], 0)
With ActiveSheet.ChartObjects(1).Chart
For i = .SeriesCollection.Count To 1 Step -1
.SeriesCollection(i).Delete
Next i
For i = 0 To ListBox2.ListCount - 1
If ListBox2.Selected(i) Then
For Each c In Range("A5",
Range("A65536").End(xlUp)).Offset(, ListBox1.ListIndex)
If c = ListBox2.List(i) Then
.SeriesCollection.NewSeries
.SeriesCollection(.SeriesCollection.Count).XValues
= Range("G4").Resize(, Ctr)
.SeriesCollection(.SeriesCollection.Count).Values
= Range("G5").Offset(c.Row - 5).Resize(, Ctr)
.SeriesCollection(.SeriesCollection.Count).Name
= Range("G5").Offset(c.Row - 5, -3)
.HasTitle = True
.ChartTitle.Characters.Text = ListBox2.Value
End If
Next c
End If
Next i
End With
ListBox1.ListIndex = -1
ListBox2.ListIndex = -1
End Sub
Private Sub ListBox1_Click()
Dim c As Range, Dico As New Collection
ListBox2.Clear
On Error Resume Next
For Each c In _
Range("A5", Range("A65536").End(xlUp)).Offset(,
ListBox1.ListIndex)
Dico.Add c, c
Next c
For Each Item In Dico
ListBox2.AddItem Item
Next Item
End Sub
Peux tu m'aider à nouveau ?
Je me demandais également si je voulais faire la même chose sur
plusieur feuilles du même classeur (même si le tableau de départ n'est
pas le même)?
Est ce que ca te parait difficile à utiliser si le nombre de série du
graphique est de 200? car j'ai fait juste un essai avec quelques
lignes seulement.
Merci beaucoup pour ton aide
On 24 fév, 13:36, "Daniel.C" <dZZZcolarde...@free.fr> wrote:
Regarde le classeur ci-joint; j'ai éliminé les doublons dans listbox2 et
réglé le problème de la légende :http://cjoint.com/?cynIOWFdYk
Daniel
<newoceane2...@yahoo.fr> a écrit dans le message de news:
fcd19c0e-1903-47c9-8a67-802e845da...@c33g2000hsd.googlegroups.com...
Bonjour Daniel,
Effectivement, mais connaissance en vba sont effectivement limitée.
Peux tu me détailler au maximum TOUTES les étapes à effectuer ?
Par exemple : faut-il que je commence par créer un graphique normale,
puis creer les listbox (c'est bien affichage, barre d'outils et
formulaire?) puis faire un copier de coller de tes macros?
Une sorte de didactiel pour réussir à recréer ton magnifique travail
pas à pas, ca serait vraiment super (je sais que je t'en demande
beaucoup mais je suis bloquée).
Merci beaucoup
On 23 fév, 23:45, "Daniel.C" <dZZZcolarde...@free.fr> wrote:
Ce n'est pas facile, et il reste les points suivants à améliorer (au
minimum) :
- le titre.
- l'espacement des séries dans la légende.
- la suppression dans le listbox du milieu.
J'essaie d'expliquer :
Au départ, toutes les séries possibles sont tracées
Dans ThisWorkbook :
Private Sub Workbook_Open()
With Sheets("Feuil1")
.ListBox1.AddItem .[A4]
.ListBox1.AddItem .[B4]
.ListBox1.AddItem .[C4]
.ListBox3.AddItem .[D4]
.ListBox3.AddItem .[E4]
.ListBox3.AddItem .[F4]
.ListBox3.AddItem .[G4]
.ListBox3.AddItem .[H4]
.ListBox3.AddItem .[I4]
.ListBox3.AddItem .[J4]
End With
End Sub
C'est à dire, à l'ouverture du classeur, remplissage de la listbox du
haut
(ListBox1) et de la listbox du bas (ListBox3). Naturellement, il faut
envisager une boucle s'il y a plus d'items.
Le reste du code est dans la feuille :
Sur un choix dans la listbox1, les séries deviennent invisibles et la
ListBox2 (celle du milieu) est rempli selon le choix effectué.
Sur click sur le bouton :
- La variable Ctr reçoit la position du choix de la ListBox3 (l'heure)
par
rapport à D4 (pour définir les valeurs de l'axe des X).
-Pour chaque série :
-- L'axe des X est défini.
-- Les valeurs Y sont définies à 1 valeur.
-- La couleur de la police de la légende pour la série est positionnée
à
blanc.
Traitement de la ou des sélection(s) du ListBox2 :
Pour chaque série sélectionnée :
Pour chaque valeur de la zone A5:Cn, (n étant la dernière ligne
contenant
des informations) :
Si cette valeur est égale au choix de ListBox2 :
- On rend la série visible.
- Dimensionnement de la plage des Y selon le choix effectué dans le
ListBox3.
-Rétablissement de la couleur de la police de l'entrée de légende
correspondant à la série.
J'espère que ton niveau de connaissance VBA te permettra de comprendre
mes
explications. Dans tous les cas, n'hésite pas à demander tous les
renseignements dont tu peux avoir besoin.
Daniel
<newoceane2...@yahoo.fr> a écrit dans le message de news:
7ea2c58b-89ad-4801-bc62-77d2a6461...@q70g2000hsb.googlegroups.com...
Bonsoir Daniel,
Merci beaucoup pour cet exemple c'est exactement ce qu'il me faut !!!
Ca me sauve la vie!!!
Pourrais tu me détailler comment tu as fais pour que je puisse faire
la même chose sur mon fichier ça serait vraiment sympa?
Encore merci
On 23 fév, 19:25, "Daniel.C" <dZZZcolarde...@free.fr> wrote:
Bonsoir.
Regarde le classeur à l'adresse :http://cjoint.com/?cxtyeuvpub
Toutes les séries sont tracées à l'origine. Il faut faire un choix
dans
chaque listbox.
Cordialement.
Daniel
<newoceane2...@yahoo.fr> a écrit dans le message de news:
da8108a0-fbff-4919-95b9-590c6186b...@i29g2000prf.googlegroups.com...
Bonjour JB,
Je vous remercie pour ces indications mais cet exemple ne me
convient
pas (en plus j'ai du mal à l'appliquer) car je ne peux pas comparer
différents produits ce qui est vraiment mon objectif principal.
Je voudrais vraiment avoir 3 listes déroulantes :
-une où je coche le ou les produits et apparaissent les courbes des
produits choisis des différentes mesures en fonction du temps et en
légende le nom des produits.
-une où je selectionne la gamme des produits et apparaissent les
courbes des produits appartenant à cette gamme des différentes
mesures
en fonction du temps et en légende le nom des produits.
-une où serait indiqué le type de produit et apparaissent les
courbes
des produits appartenant à ce type des différentes mesures en
fonction
du temps et en légende le nom des produits.
Est ce que c'est faisable?
Pouvez-vous m'aider s'il vous plaît?
Merci d'avance
On 23 fév, 15:17, JB <boisgont...@hotmail.com> wrote:
Bonjour,
Exmple onglet graphedyn5
http://boisgontierjacques.free.fr/fichiers/graphe/jb-GraphiqueDynamiq...
JB
On 23 fév, 14:03, newoceane2...@yahoo.fr wrote:
Bonjour à tous !
J'ai une nouvelle fois besoin de vos lumières...
J'ai le tableau de données suivants
:http://cjoint.com/?cxn3ADNpIl
(bien sûr il s'agit d'un exemple, il faut immaginer ce tableau
avec
beaucoup plus de lignes et de colonnes...).
Je voudrais trouver un moyen de pouvoir obtenir une sorte de
graphique
dynamique (sous forme de courbes) où je pourais choisir sur le
graphique par l'intermédiaire de liste déroulantes :
En ordonner : les valeurs des mesures uniquement.
En abcisse : les divers temps de mesure (1H...24H) et la
possibilié
de
choisir les produits que je veux ou selectionner par gamme ou
encore
par type de produit.
J'ai déja réussi grâce à un graphique relié à un TCD à pouvoir
choisir
les produits désirés (sans cinétique) mais pas pour les deux
autres
options :
ex :
si je selection la gamme A, il apparaitrait les courbes de
mesures
du
produit AA et AAA...
si je selection en type de produit livres, seule la cinétique de
la
courbe CC apparait.
Je vous remercie d'avance pour votre aide ainsi que de bien
vouloir
me
détailler la procédure à effectuer pour que je puisse
l'appliquer à
mon fichier (car je ne suis malheureusement pas une pro
d'excel).-
Masquer le texte des messages
...
plus de détails »- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour Daniel,
Je te remercie pour ton aide si précieuse.
J'ai réussi avec tes indications à refaire ton exemple (et avec
l'élimination des doublons c'est super !!). Seulement j'ai encore du
mal à l'appliquer à mon fichier : j'ai en effet 3 colonnes
supplémentaires qui doivent apparaitre dans la listbox 1 et du coup la
cinétique commence en G4 au lieu de D4.
Du coup j'ai modifié la macro de la façon suivante :
Private Sub Workbook_Open()
With Sheets("Feuil1")
.ListBox1.AddItem .[A4]
.ListBox1.AddItem .[B4]
.ListBox1.AddItem .[C4]
.ListBox1.AddItem .[D4]
.ListBox1.AddItem .[E4]
.ListBox1.AddItem .[F4]
.ListBox3.AddItem .[G4]
.ListBox3.AddItem .[H4]
.ListBox3.AddItem .[I4]
.ListBox3.AddItem .[J4]
.ListBox3.AddItem .[K4]
.ListBox3.AddItem .[L4]
.ListBox3.AddItem .[M4]
End With
End Sub
Ca ca m'a l'ai bon par contre pour la feuille 1 si je modifie de la
façon suivante j'ai pas de bonnes courbes ni de bonnes légendes :
rivate Sub CommandButton1_Click()
Dim c As Range, Ctr
If ListBox1.Value = "" Then MsgBox "Saisissez un choix dans la
première liste"
If ListBox3.Value = "" Then MsgBox "Saisissez un choix dans la
troisième liste"
test = False
For i = 0 To ListBox2.ListCount - 1
If ListBox2.Selected(i) Then test = True
Next i
If test = False Then
MsgBox "Saisissez un choix dans la seconde liste"
End If
Ctr = Application.Match(ListBox3.Value, [G4:M4], 0)
With ActiveSheet.ChartObjects(1).Chart
For i = .SeriesCollection.Count To 1 Step -1
.SeriesCollection(i).Delete
Next i
For i = 0 To ListBox2.ListCount - 1
If ListBox2.Selected(i) Then
For Each c In Range("A5",
Range("A65536").End(xlUp)).Offset(, ListBox1.ListIndex)
If c = ListBox2.List(i) Then
.SeriesCollection.NewSeries
.SeriesCollection(.SeriesCollection.Count).XValues
= Range("G4").Resize(, Ctr)
.SeriesCollection(.SeriesCollection.Count).Values
= Range("G5").Offset(c.Row - 5).Resize(, Ctr)
.SeriesCollection(.SeriesCollection.Count).Name
= Range("G5").Offset(c.Row - 5, -3)
.HasTitle = True
.ChartTitle.Characters.Text = ListBox2.Value
End If
Next c
End If
Next i
End With
ListBox1.ListIndex = -1
ListBox2.ListIndex = -1
End Sub
Private Sub ListBox1_Click()
Dim c As Range, Dico As New Collection
ListBox2.Clear
On Error Resume Next
For Each c In _
Range("A5", Range("A65536").End(xlUp)).Offset(,
ListBox1.ListIndex)
Dico.Add c, c
Next c
For Each Item In Dico
ListBox2.AddItem Item
Next Item
End Sub
Peux tu m'aider à nouveau ?
Je me demandais également si je voulais faire la même chose sur
plusieur feuilles du même classeur (même si le tableau de départ n'est
pas le même)?
Est ce que ca te parait difficile à utiliser si le nombre de série du
graphique est de 200? car j'ai fait juste un essai avec quelques
lignes seulement.
Merci beaucoup pour ton aide
On 24 fév, 13:36, "Daniel.C" wrote:Regarde le classeur ci-joint; j'ai éliminé les doublons dans listbox2 et
réglé le problème de la légende :http://cjoint.com/?cynIOWFdYk
Daniel
a écrit dans le message de news:
Bonjour Daniel,
Effectivement, mais connaissance en vba sont effectivement limitée.
Peux tu me détailler au maximum TOUTES les étapes à effectuer ?
Par exemple : faut-il que je commence par créer un graphique normale,
puis creer les listbox (c'est bien affichage, barre d'outils et
formulaire?) puis faire un copier de coller de tes macros?
Une sorte de didactiel pour réussir à recréer ton magnifique travail
pas à pas, ca serait vraiment super (je sais que je t'en demande
beaucoup mais je suis bloquée).
Merci beaucoup
On 23 fév, 23:45, "Daniel.C" wrote:Ce n'est pas facile, et il reste les points suivants à améliorer (au
minimum) :
- le titre.
- l'espacement des séries dans la légende.
- la suppression dans le listbox du milieu.
J'essaie d'expliquer :
Au départ, toutes les séries possibles sont tracées
Dans ThisWorkbook :
Private Sub Workbook_Open()
With Sheets("Feuil1")
.ListBox1.AddItem .[A4]
.ListBox1.AddItem .[B4]
.ListBox1.AddItem .[C4]
.ListBox3.AddItem .[D4]
.ListBox3.AddItem .[E4]
.ListBox3.AddItem .[F4]
.ListBox3.AddItem .[G4]
.ListBox3.AddItem .[H4]
.ListBox3.AddItem .[I4]
.ListBox3.AddItem .[J4]
End With
End Sub
C'est à dire, à l'ouverture du classeur, remplissage de la listbox du
haut
(ListBox1) et de la listbox du bas (ListBox3). Naturellement, il faut
envisager une boucle s'il y a plus d'items.
Le reste du code est dans la feuille :
Sur un choix dans la listbox1, les séries deviennent invisibles et la
ListBox2 (celle du milieu) est rempli selon le choix effectué.
Sur click sur le bouton :
- La variable Ctr reçoit la position du choix de la ListBox3 (l'heure)
par
rapport à D4 (pour définir les valeurs de l'axe des X).
-Pour chaque série :
-- L'axe des X est défini.
-- Les valeurs Y sont définies à 1 valeur.
-- La couleur de la police de la légende pour la série est positionnée
à
blanc.
Traitement de la ou des sélection(s) du ListBox2 :
Pour chaque série sélectionnée :
Pour chaque valeur de la zone A5:Cn, (n étant la dernière ligne
contenant
des informations) :
Si cette valeur est égale au choix de ListBox2 :
- On rend la série visible.
- Dimensionnement de la plage des Y selon le choix effectué dans le
ListBox3.
-Rétablissement de la couleur de la police de l'entrée de légende
correspondant à la série.
J'espère que ton niveau de connaissance VBA te permettra de comprendre
mes
explications. Dans tous les cas, n'hésite pas à demander tous les
renseignements dont tu peux avoir besoin.
Daniel
a écrit dans le message de news:
Bonsoir Daniel,
Merci beaucoup pour cet exemple c'est exactement ce qu'il me faut !!!
Ca me sauve la vie!!!
Pourrais tu me détailler comment tu as fais pour que je puisse faire
la même chose sur mon fichier ça serait vraiment sympa?
Encore merci
On 23 fév, 19:25, "Daniel.C" wrote:Bonsoir.
Regarde le classeur à l'adresse :http://cjoint.com/?cxtyeuvpub
Toutes les séries sont tracées à l'origine. Il faut faire un choix
dans
chaque listbox.
Cordialement.
Daniel
a écrit dans le message de news:
Bonjour JB,
Je vous remercie pour ces indications mais cet exemple ne me
convient
pas (en plus j'ai du mal à l'appliquer) car je ne peux pas comparer
différents produits ce qui est vraiment mon objectif principal.
Je voudrais vraiment avoir 3 listes déroulantes :
-une où je coche le ou les produits et apparaissent les courbes des
produits choisis des différentes mesures en fonction du temps et en
légende le nom des produits.
-une où je selectionne la gamme des produits et apparaissent les
courbes des produits appartenant à cette gamme des différentes
mesures
en fonction du temps et en légende le nom des produits.
-une où serait indiqué le type de produit et apparaissent les
courbes
des produits appartenant à ce type des différentes mesures en
fonction
du temps et en légende le nom des produits.
Est ce que c'est faisable?
Pouvez-vous m'aider s'il vous plaît?
Merci d'avance
On 23 fév, 15:17, JB wrote:Bonjour,
Exmple onglet graphedyn5
http://boisgontierjacques.free.fr/fichiers/graphe/jb-GraphiqueDynamiq...
JB
On 23 fév, 14:03, wrote:Bonjour à tous !
J'ai une nouvelle fois besoin de vos lumières...
J'ai le tableau de données suivants
:http://cjoint.com/?cxn3ADNpIl
(bien sûr il s'agit d'un exemple, il faut immaginer ce tableau
avec
beaucoup plus de lignes et de colonnes...).
Je voudrais trouver un moyen de pouvoir obtenir une sorte de
graphique
dynamique (sous forme de courbes) où je pourais choisir sur le
graphique par l'intermédiaire de liste déroulantes :
En ordonner : les valeurs des mesures uniquement.
En abcisse : les divers temps de mesure (1H...24H) et la
possibilié
de
choisir les produits que je veux ou selectionner par gamme ou
encore
par type de produit.
J'ai déja réussi grâce à un graphique relié à un TCD à pouvoir
choisir
les produits désirés (sans cinétique) mais pas pour les deux
autres
options :
ex :
si je selection la gamme A, il apparaitrait les courbes de
mesures
du
produit AA et AAA...
si je selection en type de produit livres, seule la cinétique de
la
courbe CC apparait.
Je vous remercie d'avance pour votre aide ainsi que de bien
vouloir
me
détailler la procédure à effectuer pour que je puisse
l'appliquer à
mon fichier (car je ne suis malheureusement pas une pro
d'excel).-
Masquer le texte des messages
...
plus de détails »- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour Daniel,
Je te remercie pour ton aide si précieuse.
J'ai réussi avec tes indications à refaire ton exemple (et avec
l'élimination des doublons c'est super !!). Seulement j'ai encore du
mal à l'appliquer à mon fichier : j'ai en effet 3 colonnes
supplémentaires qui doivent apparaitre dans la listbox 1 et du coup la
cinétique commence en G4 au lieu de D4.
Du coup j'ai modifié la macro de la façon suivante :
Private Sub Workbook_Open()
With Sheets("Feuil1")
.ListBox1.AddItem .[A4]
.ListBox1.AddItem .[B4]
.ListBox1.AddItem .[C4]
.ListBox1.AddItem .[D4]
.ListBox1.AddItem .[E4]
.ListBox1.AddItem .[F4]
.ListBox3.AddItem .[G4]
.ListBox3.AddItem .[H4]
.ListBox3.AddItem .[I4]
.ListBox3.AddItem .[J4]
.ListBox3.AddItem .[K4]
.ListBox3.AddItem .[L4]
.ListBox3.AddItem .[M4]
End With
End Sub
Ca ca m'a l'ai bon par contre pour la feuille 1 si je modifie de la
façon suivante j'ai pas de bonnes courbes ni de bonnes légendes :
rivate Sub CommandButton1_Click()
Dim c As Range, Ctr
If ListBox1.Value = "" Then MsgBox "Saisissez un choix dans la
première liste"
If ListBox3.Value = "" Then MsgBox "Saisissez un choix dans la
troisième liste"
test = False
For i = 0 To ListBox2.ListCount - 1
If ListBox2.Selected(i) Then test = True
Next i
If test = False Then
MsgBox "Saisissez un choix dans la seconde liste"
End If
Ctr = Application.Match(ListBox3.Value, [G4:M4], 0)
With ActiveSheet.ChartObjects(1).Chart
For i = .SeriesCollection.Count To 1 Step -1
.SeriesCollection(i).Delete
Next i
For i = 0 To ListBox2.ListCount - 1
If ListBox2.Selected(i) Then
For Each c In Range("A5",
Range("A65536").End(xlUp)).Offset(, ListBox1.ListIndex)
If c = ListBox2.List(i) Then
.SeriesCollection.NewSeries
.SeriesCollection(.SeriesCollection.Count).XValues
= Range("G4").Resize(, Ctr)
.SeriesCollection(.SeriesCollection.Count).Values
= Range("G5").Offset(c.Row - 5).Resize(, Ctr)
.SeriesCollection(.SeriesCollection.Count).Name
= Range("G5").Offset(c.Row - 5, -3)
.HasTitle = True
.ChartTitle.Characters.Text = ListBox2.Value
End If
Next c
End If
Next i
End With
ListBox1.ListIndex = -1
ListBox2.ListIndex = -1
End Sub
Private Sub ListBox1_Click()
Dim c As Range, Dico As New Collection
ListBox2.Clear
On Error Resume Next
For Each c In _
Range("A5", Range("A65536").End(xlUp)).Offset(,
ListBox1.ListIndex)
Dico.Add c, c
Next c
For Each Item In Dico
ListBox2.AddItem Item
Next Item
End Sub
Peux tu m'aider à nouveau ?
Je me demandais également si je voulais faire la même chose sur
plusieur feuilles du même classeur (même si le tableau de départ n'est
pas le même)?
Est ce que ca te parait difficile à utiliser si le nombre de série du
graphique est de 200? car j'ai fait juste un essai avec quelques
lignes seulement.
Merci beaucoup pour ton aide
On 24 fév, 13:36, "Daniel.C" wrote:Regarde le classeur ci-joint; j'ai éliminé les doublons dans listbox2 et
réglé le problème de la légende :http://cjoint.com/?cynIOWFdYk
Daniel
a écrit dans le message de news:
Bonjour Daniel,
Effectivement, mais connaissance en vba sont effectivement limitée.
Peux tu me détailler au maximum TOUTES les étapes à effectuer ?
Par exemple : faut-il que je commence par créer un graphique normale,
puis creer les listbox (c'est bien affichage, barre d'outils et
formulaire?) puis faire un copier de coller de tes macros?
Une sorte de didactiel pour réussir à recréer ton magnifique travail
pas à pas, ca serait vraiment super (je sais que je t'en demande
beaucoup mais je suis bloquée).
Merci beaucoup
On 23 fév, 23:45, "Daniel.C" wrote:Ce n'est pas facile, et il reste les points suivants à améliorer (au
minimum) :
- le titre.
- l'espacement des séries dans la légende.
- la suppression dans le listbox du milieu.
J'essaie d'expliquer :
Au départ, toutes les séries possibles sont tracées
Dans ThisWorkbook :
Private Sub Workbook_Open()
With Sheets("Feuil1")
.ListBox1.AddItem .[A4]
.ListBox1.AddItem .[B4]
.ListBox1.AddItem .[C4]
.ListBox3.AddItem .[D4]
.ListBox3.AddItem .[E4]
.ListBox3.AddItem .[F4]
.ListBox3.AddItem .[G4]
.ListBox3.AddItem .[H4]
.ListBox3.AddItem .[I4]
.ListBox3.AddItem .[J4]
End With
End Sub
C'est à dire, à l'ouverture du classeur, remplissage de la listbox du
haut
(ListBox1) et de la listbox du bas (ListBox3). Naturellement, il faut
envisager une boucle s'il y a plus d'items.
Le reste du code est dans la feuille :
Sur un choix dans la listbox1, les séries deviennent invisibles et la
ListBox2 (celle du milieu) est rempli selon le choix effectué.
Sur click sur le bouton :
- La variable Ctr reçoit la position du choix de la ListBox3 (l'heure)
par
rapport à D4 (pour définir les valeurs de l'axe des X).
-Pour chaque série :
-- L'axe des X est défini.
-- Les valeurs Y sont définies à 1 valeur.
-- La couleur de la police de la légende pour la série est positionnée
à
blanc.
Traitement de la ou des sélection(s) du ListBox2 :
Pour chaque série sélectionnée :
Pour chaque valeur de la zone A5:Cn, (n étant la dernière ligne
contenant
des informations) :
Si cette valeur est égale au choix de ListBox2 :
- On rend la série visible.
- Dimensionnement de la plage des Y selon le choix effectué dans le
ListBox3.
-Rétablissement de la couleur de la police de l'entrée de légende
correspondant à la série.
J'espère que ton niveau de connaissance VBA te permettra de comprendre
mes
explications. Dans tous les cas, n'hésite pas à demander tous les
renseignements dont tu peux avoir besoin.
Daniel
a écrit dans le message de news:
Bonsoir Daniel,
Merci beaucoup pour cet exemple c'est exactement ce qu'il me faut !!!
Ca me sauve la vie!!!
Pourrais tu me détailler comment tu as fais pour que je puisse faire
la même chose sur mon fichier ça serait vraiment sympa?
Encore merci
On 23 fév, 19:25, "Daniel.C" wrote:Bonsoir.
Regarde le classeur à l'adresse :http://cjoint.com/?cxtyeuvpub
Toutes les séries sont tracées à l'origine. Il faut faire un choix
dans
chaque listbox.
Cordialement.
Daniel
a écrit dans le message de news:
Bonjour JB,
Je vous remercie pour ces indications mais cet exemple ne me
convient
pas (en plus j'ai du mal à l'appliquer) car je ne peux pas comparer
différents produits ce qui est vraiment mon objectif principal.
Je voudrais vraiment avoir 3 listes déroulantes :
-une où je coche le ou les produits et apparaissent les courbes des
produits choisis des différentes mesures en fonction du temps et en
légende le nom des produits.
-une où je selectionne la gamme des produits et apparaissent les
courbes des produits appartenant à cette gamme des différentes
mesures
en fonction du temps et en légende le nom des produits.
-une où serait indiqué le type de produit et apparaissent les
courbes
des produits appartenant à ce type des différentes mesures en
fonction
du temps et en légende le nom des produits.
Est ce que c'est faisable?
Pouvez-vous m'aider s'il vous plaît?
Merci d'avance
On 23 fév, 15:17, JB wrote:Bonjour,
Exmple onglet graphedyn5
http://boisgontierjacques.free.fr/fichiers/graphe/jb-GraphiqueDynamiq...
JB
On 23 fév, 14:03, wrote:Bonjour à tous !
J'ai une nouvelle fois besoin de vos lumières...
J'ai le tableau de données suivants
:http://cjoint.com/?cxn3ADNpIl
(bien sûr il s'agit d'un exemple, il faut immaginer ce tableau
avec
beaucoup plus de lignes et de colonnes...).
Je voudrais trouver un moyen de pouvoir obtenir une sorte de
graphique
dynamique (sous forme de courbes) où je pourais choisir sur le
graphique par l'intermédiaire de liste déroulantes :
En ordonner : les valeurs des mesures uniquement.
En abcisse : les divers temps de mesure (1H...24H) et la
possibilié
de
choisir les produits que je veux ou selectionner par gamme ou
encore
par type de produit.
J'ai déja réussi grâce à un graphique relié à un TCD à pouvoir
choisir
les produits désirés (sans cinétique) mais pas pour les deux
autres
options :
ex :
si je selection la gamme A, il apparaitrait les courbes de
mesures
du
produit AA et AAA...
si je selection en type de produit livres, seule la cinétique de
la
courbe CC apparait.
Je vous remercie d'avance pour votre aide ainsi que de bien
vouloir
me
détailler la procédure à effectuer pour que je puisse
l'appliquer à
mon fichier (car je ne suis malheureusement pas une pro
d'excel).-
Masquer le texte des messages
...
plus de détails »- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour Daniel,
Je te remercie pour ton aide si précieuse.
J'ai réussi avec tes indications à refaire ton exemple (et avec
l'élimination des doublons c'est super !!). Seulement j'ai encore du
mal à l'appliquer à mon fichier : j'ai en effet 3 colonnes
supplémentaires qui doivent apparaitre dans la listbox 1 et du coup la
cinétique commence en G4 au lieu de D4.
Du coup j'ai modifié la macro de la façon suivante :
Private Sub Workbook_Open()
With Sheets("Feuil1")
.ListBox1.AddItem .[A4]
.ListBox1.AddItem .[B4]
.ListBox1.AddItem .[C4]
.ListBox1.AddItem .[D4]
.ListBox1.AddItem .[E4]
.ListBox1.AddItem .[F4]
.ListBox3.AddItem .[G4]
.ListBox3.AddItem .[H4]
.ListBox3.AddItem .[I4]
.ListBox3.AddItem .[J4]
.ListBox3.AddItem .[K4]
.ListBox3.AddItem .[L4]
.ListBox3.AddItem .[M4]
End With
End Sub
Ca ca m'a l'ai bon par contre pour la feuille 1 si je modifie de la
façon suivante j'ai pas de bonnes courbes ni de bonnes légendes :
rivate Sub CommandButton1_Click()
Dim c As Range, Ctr
If ListBox1.Value = "" Then MsgBox "Saisissez un choix dans la
première liste"
If ListBox3.Value = "" Then MsgBox "Saisissez un choix dans la
troisième liste"
test = False
For i = 0 To ListBox2.ListCount - 1
If ListBox2.Selected(i) Then test = True
Next i
If test = False Then
MsgBox "Saisissez un choix dans la seconde liste"
End If
Ctr = Application.Match(ListBox3.Value, [G4:M4], 0)
With ActiveSheet.ChartObjects(1).Chart
For i = .SeriesCollection.Count To 1 Step -1
.SeriesCollection(i).Delete
Next i
For i = 0 To ListBox2.ListCount - 1
If ListBox2.Selected(i) Then
For Each c In Range("A5",
Range("A65536").End(xlUp)).Offset(, ListBox1.ListIndex)
If c = ListBox2.List(i) Then
.SeriesCollection.NewSeries
.SeriesCollection(.SeriesCollection.Count).XValues
= Range("G4").Resize(, Ctr)
.SeriesCollection(.SeriesCollection.Count).Values
= Range("G5").Offset(c.Row - 5).Resize(, Ctr)
.SeriesCollection(.SeriesCollection.Count).Name
= Range("G5").Offset(c.Row - 5, -3)
.HasTitle = True
.ChartTitle.Characters.Text = ListBox2.Value
End If
Next c
End If
Next i
End With
ListBox1.ListIndex = -1
ListBox2.ListIndex = -1
End Sub
Private Sub ListBox1_Click()
Dim c As Range, Dico As New Collection
ListBox2.Clear
On Error Resume Next
For Each c In _
Range("A5", Range("A65536").End(xlUp)).Offset(,
ListBox1.ListIndex)
Dico.Add c, c
Next c
For Each Item In Dico
ListBox2.AddItem Item
Next Item
End Sub
Peux tu m'aider à nouveau ?
Je me demandais également si je voulais faire la même chose sur
plusieur feuilles du même classeur (même si le tableau de départ n'est
pas le même)?
Est ce que ca te parait difficile à utiliser si le nombre de série du
graphique est de 200? car j'ai fait juste un essai avec quelques
lignes seulement.
Merci beaucoup pour ton aide
On 24 fév, 13:36, "Daniel.C" <dZZZcolarde...@free.fr> wrote:
Regarde le classeur ci-joint; j'ai éliminé les doublons dans listbox2 et
réglé le problème de la légende :http://cjoint.com/?cynIOWFdYk
Daniel
<newoceane2...@yahoo.fr> a écrit dans le message de news:
fcd19c0e-1903-47c9-8a67-802e845da...@c33g2000hsd.googlegroups.com...
Bonjour Daniel,
Effectivement, mais connaissance en vba sont effectivement limitée.
Peux tu me détailler au maximum TOUTES les étapes à effectuer ?
Par exemple : faut-il que je commence par créer un graphique normale,
puis creer les listbox (c'est bien affichage, barre d'outils et
formulaire?) puis faire un copier de coller de tes macros?
Une sorte de didactiel pour réussir à recréer ton magnifique travail
pas à pas, ca serait vraiment super (je sais que je t'en demande
beaucoup mais je suis bloquée).
Merci beaucoup
On 23 fév, 23:45, "Daniel.C" <dZZZcolarde...@free.fr> wrote:
Ce n'est pas facile, et il reste les points suivants à améliorer (au
minimum) :
- le titre.
- l'espacement des séries dans la légende.
- la suppression dans le listbox du milieu.
J'essaie d'expliquer :
Au départ, toutes les séries possibles sont tracées
Dans ThisWorkbook :
Private Sub Workbook_Open()
With Sheets("Feuil1")
.ListBox1.AddItem .[A4]
.ListBox1.AddItem .[B4]
.ListBox1.AddItem .[C4]
.ListBox3.AddItem .[D4]
.ListBox3.AddItem .[E4]
.ListBox3.AddItem .[F4]
.ListBox3.AddItem .[G4]
.ListBox3.AddItem .[H4]
.ListBox3.AddItem .[I4]
.ListBox3.AddItem .[J4]
End With
End Sub
C'est à dire, à l'ouverture du classeur, remplissage de la listbox du
haut
(ListBox1) et de la listbox du bas (ListBox3). Naturellement, il faut
envisager une boucle s'il y a plus d'items.
Le reste du code est dans la feuille :
Sur un choix dans la listbox1, les séries deviennent invisibles et la
ListBox2 (celle du milieu) est rempli selon le choix effectué.
Sur click sur le bouton :
- La variable Ctr reçoit la position du choix de la ListBox3 (l'heure)
par
rapport à D4 (pour définir les valeurs de l'axe des X).
-Pour chaque série :
-- L'axe des X est défini.
-- Les valeurs Y sont définies à 1 valeur.
-- La couleur de la police de la légende pour la série est positionnée
à
blanc.
Traitement de la ou des sélection(s) du ListBox2 :
Pour chaque série sélectionnée :
Pour chaque valeur de la zone A5:Cn, (n étant la dernière ligne
contenant
des informations) :
Si cette valeur est égale au choix de ListBox2 :
- On rend la série visible.
- Dimensionnement de la plage des Y selon le choix effectué dans le
ListBox3.
-Rétablissement de la couleur de la police de l'entrée de légende
correspondant à la série.
J'espère que ton niveau de connaissance VBA te permettra de comprendre
mes
explications. Dans tous les cas, n'hésite pas à demander tous les
renseignements dont tu peux avoir besoin.
Daniel
<newoceane2...@yahoo.fr> a écrit dans le message de news:
7ea2c58b-89ad-4801-bc62-77d2a6461...@q70g2000hsb.googlegroups.com...
Bonsoir Daniel,
Merci beaucoup pour cet exemple c'est exactement ce qu'il me faut !!!
Ca me sauve la vie!!!
Pourrais tu me détailler comment tu as fais pour que je puisse faire
la même chose sur mon fichier ça serait vraiment sympa?
Encore merci
On 23 fév, 19:25, "Daniel.C" <dZZZcolarde...@free.fr> wrote:
Bonsoir.
Regarde le classeur à l'adresse :http://cjoint.com/?cxtyeuvpub
Toutes les séries sont tracées à l'origine. Il faut faire un choix
dans
chaque listbox.
Cordialement.
Daniel
<newoceane2...@yahoo.fr> a écrit dans le message de news:
da8108a0-fbff-4919-95b9-590c6186b...@i29g2000prf.googlegroups.com...
Bonjour JB,
Je vous remercie pour ces indications mais cet exemple ne me
convient
pas (en plus j'ai du mal à l'appliquer) car je ne peux pas comparer
différents produits ce qui est vraiment mon objectif principal.
Je voudrais vraiment avoir 3 listes déroulantes :
-une où je coche le ou les produits et apparaissent les courbes des
produits choisis des différentes mesures en fonction du temps et en
légende le nom des produits.
-une où je selectionne la gamme des produits et apparaissent les
courbes des produits appartenant à cette gamme des différentes
mesures
en fonction du temps et en légende le nom des produits.
-une où serait indiqué le type de produit et apparaissent les
courbes
des produits appartenant à ce type des différentes mesures en
fonction
du temps et en légende le nom des produits.
Est ce que c'est faisable?
Pouvez-vous m'aider s'il vous plaît?
Merci d'avance
On 23 fév, 15:17, JB <boisgont...@hotmail.com> wrote:
Bonjour,
Exmple onglet graphedyn5
http://boisgontierjacques.free.fr/fichiers/graphe/jb-GraphiqueDynamiq...
JB
On 23 fév, 14:03, newoceane2...@yahoo.fr wrote:
Bonjour à tous !
J'ai une nouvelle fois besoin de vos lumières...
J'ai le tableau de données suivants
:http://cjoint.com/?cxn3ADNpIl
(bien sûr il s'agit d'un exemple, il faut immaginer ce tableau
avec
beaucoup plus de lignes et de colonnes...).
Je voudrais trouver un moyen de pouvoir obtenir une sorte de
graphique
dynamique (sous forme de courbes) où je pourais choisir sur le
graphique par l'intermédiaire de liste déroulantes :
En ordonner : les valeurs des mesures uniquement.
En abcisse : les divers temps de mesure (1H...24H) et la
possibilié
de
choisir les produits que je veux ou selectionner par gamme ou
encore
par type de produit.
J'ai déja réussi grâce à un graphique relié à un TCD à pouvoir
choisir
les produits désirés (sans cinétique) mais pas pour les deux
autres
options :
ex :
si je selection la gamme A, il apparaitrait les courbes de
mesures
du
produit AA et AAA...
si je selection en type de produit livres, seule la cinétique de
la
courbe CC apparait.
Je vous remercie d'avance pour votre aide ainsi que de bien
vouloir
me
détailler la procédure à effectuer pour que je puisse
l'appliquer à
mon fichier (car je ne suis malheureusement pas une pro
d'excel).-
Masquer le texte des messages
...
plus de détails »- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour Daniel,
Je te remercie pour ton aide si précieuse.
J'ai réussi avec tes indications à refaire ton exemple (et avec
l'élimination des doublons c'est super !!). Seulement j'ai encore du
mal à l'appliquer à mon fichier : j'ai en effet 3 colonnes
supplémentaires qui doivent apparaitre dans la listbox 1 et du coup la
cinétique commence en G4 au lieu de D4.
Du coup j'ai modifié la macro de la façon suivante :
Private Sub Workbook_Open()
With Sheets("Feuil1")
.ListBox1.AddItem .[A4]
.ListBox1.AddItem .[B4]
.ListBox1.AddItem .[C4]
.ListBox1.AddItem .[D4]
.ListBox1.AddItem .[E4]
.ListBox1.AddItem .[F4]
.ListBox3.AddItem .[G4]
.ListBox3.AddItem .[H4]
.ListBox3.AddItem .[I4]
.ListBox3.AddItem .[J4]
.ListBox3.AddItem .[K4]
.ListBox3.AddItem .[L4]
.ListBox3.AddItem .[M4]
End With
End Sub
Ca ca m'a l'ai bon par contre pour la feuille 1 si je modifie de la
façon suivante j'ai pas de bonnes courbes ni de bonnes légendes :
rivate Sub CommandButton1_Click()
Dim c As Range, Ctr
If ListBox1.Value = "" Then MsgBox "Saisissez un choix dans la
première liste"
If ListBox3.Value = "" Then MsgBox "Saisissez un choix dans la
troisième liste"
test = False
For i = 0 To ListBox2.ListCount - 1
If ListBox2.Selected(i) Then test = True
Next i
If test = False Then
MsgBox "Saisissez un choix dans la seconde liste"
End If
Ctr = Application.Match(ListBox3.Value, [G4:M4], 0)
With ActiveSheet.ChartObjects(1).Chart
For i = .SeriesCollection.Count To 1 Step -1
.SeriesCollection(i).Delete
Next i
For i = 0 To ListBox2.ListCount - 1
If ListBox2.Selected(i) Then
For Each c In Range("A5",
Range("A65536").End(xlUp)).Offset(, ListBox1.ListIndex)
If c = ListBox2.List(i) Then
.SeriesCollection.NewSeries
.SeriesCollection(.SeriesCollection.Count).XValues
= Range("G4").Resize(, Ctr)
.SeriesCollection(.SeriesCollection.Count).Values
= Range("G5").Offset(c.Row - 5).Resize(, Ctr)
.SeriesCollection(.SeriesCollection.Count).Name
= Range("G5").Offset(c.Row - 5, -3)
.HasTitle = True
.ChartTitle.Characters.Text = ListBox2.Value
End If
Next c
End If
Next i
End With
ListBox1.ListIndex = -1
ListBox2.ListIndex = -1
End Sub
Private Sub ListBox1_Click()
Dim c As Range, Dico As New Collection
ListBox2.Clear
On Error Resume Next
For Each c In _
Range("A5", Range("A65536").End(xlUp)).Offset(,
ListBox1.ListIndex)
Dico.Add c, c
Next c
For Each Item In Dico
ListBox2.AddItem Item
Next Item
End Sub
Peux tu m'aider à nouveau ?
Je me demandais également si je voulais faire la même chose sur
plusieur feuilles du même classeur (même si le tableau de départ n'est
pas le même)?
Est ce que ca te parait difficile à utiliser si le nombre de série du
graphique est de 200? car j'ai fait juste un essai avec quelques
lignes seulement.
Merci beaucoup pour ton aide
On 24 fév, 13:36, "Daniel.C" wrote:Regarde le classeur ci-joint; j'ai éliminé les doublons dans listbox2 et
réglé le problème de la légende :http://cjoint.com/?cynIOWFdYk
Daniel
a écrit dans le message de news:
Bonjour Daniel,
Effectivement, mais connaissance en vba sont effectivement limitée.
Peux tu me détailler au maximum TOUTES les étapes à effectuer ?
Par exemple : faut-il que je commence par créer un graphique normale,
puis creer les listbox (c'est bien affichage, barre d'outils et
formulaire?) puis faire un copier de coller de tes macros?
Une sorte de didactiel pour réussir à recréer ton magnifique travail
pas à pas, ca serait vraiment super (je sais que je t'en demande
beaucoup mais je suis bloquée).
Merci beaucoup
On 23 fév, 23:45, "Daniel.C" wrote:Ce n'est pas facile, et il reste les points suivants à améliorer (au
minimum) :
- le titre.
- l'espacement des séries dans la légende.
- la suppression dans le listbox du milieu.
J'essaie d'expliquer :
Au départ, toutes les séries possibles sont tracées
Dans ThisWorkbook :
Private Sub Workbook_Open()
With Sheets("Feuil1")
.ListBox1.AddItem .[A4]
.ListBox1.AddItem .[B4]
.ListBox1.AddItem .[C4]
.ListBox3.AddItem .[D4]
.ListBox3.AddItem .[E4]
.ListBox3.AddItem .[F4]
.ListBox3.AddItem .[G4]
.ListBox3.AddItem .[H4]
.ListBox3.AddItem .[I4]
.ListBox3.AddItem .[J4]
End With
End Sub
C'est à dire, à l'ouverture du classeur, remplissage de la listbox du
haut
(ListBox1) et de la listbox du bas (ListBox3). Naturellement, il faut
envisager une boucle s'il y a plus d'items.
Le reste du code est dans la feuille :
Sur un choix dans la listbox1, les séries deviennent invisibles et la
ListBox2 (celle du milieu) est rempli selon le choix effectué.
Sur click sur le bouton :
- La variable Ctr reçoit la position du choix de la ListBox3 (l'heure)
par
rapport à D4 (pour définir les valeurs de l'axe des X).
-Pour chaque série :
-- L'axe des X est défini.
-- Les valeurs Y sont définies à 1 valeur.
-- La couleur de la police de la légende pour la série est positionnée
à
blanc.
Traitement de la ou des sélection(s) du ListBox2 :
Pour chaque série sélectionnée :
Pour chaque valeur de la zone A5:Cn, (n étant la dernière ligne
contenant
des informations) :
Si cette valeur est égale au choix de ListBox2 :
- On rend la série visible.
- Dimensionnement de la plage des Y selon le choix effectué dans le
ListBox3.
-Rétablissement de la couleur de la police de l'entrée de légende
correspondant à la série.
J'espère que ton niveau de connaissance VBA te permettra de comprendre
mes
explications. Dans tous les cas, n'hésite pas à demander tous les
renseignements dont tu peux avoir besoin.
Daniel
a écrit dans le message de news:
Bonsoir Daniel,
Merci beaucoup pour cet exemple c'est exactement ce qu'il me faut !!!
Ca me sauve la vie!!!
Pourrais tu me détailler comment tu as fais pour que je puisse faire
la même chose sur mon fichier ça serait vraiment sympa?
Encore merci
On 23 fév, 19:25, "Daniel.C" wrote:Bonsoir.
Regarde le classeur à l'adresse :http://cjoint.com/?cxtyeuvpub
Toutes les séries sont tracées à l'origine. Il faut faire un choix
dans
chaque listbox.
Cordialement.
Daniel
a écrit dans le message de news:
Bonjour JB,
Je vous remercie pour ces indications mais cet exemple ne me
convient
pas (en plus j'ai du mal à l'appliquer) car je ne peux pas comparer
différents produits ce qui est vraiment mon objectif principal.
Je voudrais vraiment avoir 3 listes déroulantes :
-une où je coche le ou les produits et apparaissent les courbes des
produits choisis des différentes mesures en fonction du temps et en
légende le nom des produits.
-une où je selectionne la gamme des produits et apparaissent les
courbes des produits appartenant à cette gamme des différentes
mesures
en fonction du temps et en légende le nom des produits.
-une où serait indiqué le type de produit et apparaissent les
courbes
des produits appartenant à ce type des différentes mesures en
fonction
du temps et en légende le nom des produits.
Est ce que c'est faisable?
Pouvez-vous m'aider s'il vous plaît?
Merci d'avance
On 23 fév, 15:17, JB wrote:Bonjour,
Exmple onglet graphedyn5
http://boisgontierjacques.free.fr/fichiers/graphe/jb-GraphiqueDynamiq...
JB
On 23 fév, 14:03, wrote:Bonjour à tous !
J'ai une nouvelle fois besoin de vos lumières...
J'ai le tableau de données suivants
:http://cjoint.com/?cxn3ADNpIl
(bien sûr il s'agit d'un exemple, il faut immaginer ce tableau
avec
beaucoup plus de lignes et de colonnes...).
Je voudrais trouver un moyen de pouvoir obtenir une sorte de
graphique
dynamique (sous forme de courbes) où je pourais choisir sur le
graphique par l'intermédiaire de liste déroulantes :
En ordonner : les valeurs des mesures uniquement.
En abcisse : les divers temps de mesure (1H...24H) et la
possibilié
de
choisir les produits que je veux ou selectionner par gamme ou
encore
par type de produit.
J'ai déja réussi grâce à un graphique relié à un TCD à pouvoir
choisir
les produits désirés (sans cinétique) mais pas pour les deux
autres
options :
ex :
si je selection la gamme A, il apparaitrait les courbes de
mesures
du
produit AA et AAA...
si je selection en type de produit livres, seule la cinétique de
la
courbe CC apparait.
Je vous remercie d'avance pour votre aide ainsi que de bien
vouloir
me
détailler la procédure à effectuer pour que je puisse
l'appliquer à
mon fichier (car je ne suis malheureusement pas une pro
d'excel).-
Masquer le texte des messages
...
plus de détails »- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Plus vite que prévu :
http://cjoint.com/?cyta2DlKow
Daniel
a écrit dans le message de news:
Bonsoir,
Voici un fichier exemple qui se rapporche plus de mon fichier :
http://cjoint.com/?cyrSqOGYjw
Il faut qu' apparaisse en listebox1 les données jusqu'à la case F
incluse
Comment adapter les macros pour que ca marche sur plusieur feuille
avec des tableau un peu différents (il y a un temps de plus sur la
feuille 2).
Merci beaucoup pour votre aide
On 24 fév, 14:23, wrote:Bonjour Daniel,
Je te remercie pour ton aide si précieuse.
J'ai réussi avec tes indications à refaire ton exemple (et avec
l'élimination des doublons c'est super !!). Seulement j'ai encore du
mal à l'appliquer à mon fichier : j'ai en effet 3 colonnes
supplémentaires qui doivent apparaitre dans la listbox 1 et du coup la
cinétique commence en G4 au lieu de D4.
Du coup j'ai modifié la macro de la façon suivante :
Private Sub Workbook_Open()
With Sheets("Feuil1")
.ListBox1.AddItem .[A4]
.ListBox1.AddItem .[B4]
.ListBox1.AddItem .[C4]
.ListBox1.AddItem .[D4]
.ListBox1.AddItem .[E4]
.ListBox1.AddItem .[F4]
.ListBox3.AddItem .[G4]
.ListBox3.AddItem .[H4]
.ListBox3.AddItem .[I4]
.ListBox3.AddItem .[J4]
.ListBox3.AddItem .[K4]
.ListBox3.AddItem .[L4]
.ListBox3.AddItem .[M4]
End With
End Sub
Ca ca m'a l'ai bon par contre pour la feuille 1 si je modifie de la
façon suivante j'ai pas de bonnes courbes ni de bonnes légendes :
rivate Sub CommandButton1_Click()
Dim c As Range, Ctr
If ListBox1.Value = "" Then MsgBox "Saisissez un choix dans la
première liste"
If ListBox3.Value = "" Then MsgBox "Saisissez un choix dans la
troisième liste"
test = False
For i = 0 To ListBox2.ListCount - 1
If ListBox2.Selected(i) Then test = True
Next i
If test = False Then
MsgBox "Saisissez un choix dans la seconde liste"
End If
Ctr = Application.Match(ListBox3.Value, [G4:M4], 0)
With ActiveSheet.ChartObjects(1).Chart
For i = .SeriesCollection.Count To 1 Step -1
.SeriesCollection(i).Delete
Next i
For i = 0 To ListBox2.ListCount - 1
If ListBox2.Selected(i) Then
For Each c In Range("A5",
Range("A65536").End(xlUp)).Offset(, ListBox1.ListIndex)
If c = ListBox2.List(i) Then
.SeriesCollection.NewSeries
.SeriesCollection(.SeriesCollection.Count).XValues
= Range("G4").Resize(, Ctr)
.SeriesCollection(.SeriesCollection.Count).Values
= Range("G5").Offset(c.Row - 5).Resize(, Ctr)
.SeriesCollection(.SeriesCollection.Count).Name
= Range("G5").Offset(c.Row - 5, -3)
.HasTitle = True
.ChartTitle.Characters.Text = ListBox2.Value
End If
Next c
End If
Next i
End With
ListBox1.ListIndex = -1
ListBox2.ListIndex = -1
End Sub
Private Sub ListBox1_Click()
Dim c As Range, Dico As New Collection
ListBox2.Clear
On Error Resume Next
For Each c In _
Range("A5", Range("A65536").End(xlUp)).Offset(,
ListBox1.ListIndex)
Dico.Add c, c
Next c
For Each Item In Dico
ListBox2.AddItem Item
Next Item
End Sub
Peux tu m'aider à nouveau ?
Je me demandais également si je voulais faire la même chose sur
plusieur feuilles du même classeur (même si le tableau de départ n'est
pas le même)?
Est ce que ca te parait difficile à utiliser si le nombre de série du
graphique est de 200? car j'ai fait juste un essai avec quelques
lignes seulement.
Merci beaucoup pour ton aide
On 24 fév, 13:36, "Daniel.C" wrote:Regarde le classeur ci-joint; j'ai éliminé les doublons dans listbox2
et
réglé le problème de la légende :http://cjoint.com/?cynIOWFdYk
Daniel
a écrit dans le message de news:
Bonjour Daniel,
Effectivement, mais connaissance en vba sont effectivement limitée.
Peux tu me détailler au maximum TOUTES les étapes à effectuer ?
Par exemple : faut-il que je commence par créer un graphique normale,
puis creer les listbox (c'est bien affichage, barre d'outils et
formulaire?) puis faire un copier de coller de tes macros?
Une sorte de didactiel pour réussir à recréer ton magnifique travail
pas à pas, ca serait vraiment super (je sais que je t'en demande
beaucoup mais je suis bloquée).
Merci beaucoup
On 23 fév, 23:45, "Daniel.C" wrote:Ce n'est pas facile, et il reste les points suivants à améliorer (au
minimum) :
- le titre.
- l'espacement des séries dans la légende.
- la suppression dans le listbox du milieu.
J'essaie d'expliquer :
Au départ, toutes les séries possibles sont tracées
Dans ThisWorkbook :
Private Sub Workbook_Open()
With Sheets("Feuil1")
.ListBox1.AddItem .[A4]
.ListBox1.AddItem .[B4]
.ListBox1.AddItem .[C4]
.ListBox3.AddItem .[D4]
.ListBox3.AddItem .[E4]
.ListBox3.AddItem .[F4]
.ListBox3.AddItem .[G4]
.ListBox3.AddItem .[H4]
.ListBox3.AddItem .[I4]
.ListBox3.AddItem .[J4]
End With
End Sub
C'est à dire, à l'ouverture du classeur, remplissage de la listbox du
haut
(ListBox1) et de la listbox du bas (ListBox3). Naturellement, il faut
envisager une boucle s'il y a plus d'items.
Le reste du code est dans la feuille :
Sur un choix dans la listbox1, les séries deviennent invisibles et la
ListBox2 (celle du milieu) est rempli selon le choix effectué.
Sur click sur le bouton :
- La variable Ctr reçoit la position du choix de la ListBox3
(l'heure) par
rapport à D4 (pour définir les valeurs de l'axe des X).
-Pour chaque série :
-- L'axe des X est défini.
-- Les valeurs Y sont définies à 1 valeur.
-- La couleur de la police de la légende pour la série est
positionnée à
blanc.
Traitement de la ou des sélection(s) du ListBox2 :
Pour chaque série sélectionnée :
Pour chaque valeur de la zone A5:Cn, (n étant la dernière ligne
contenant
des informations) :
Si cette valeur est égale au choix de ListBox2 :
- On rend la série visible.
- Dimensionnement de la plage des Y selon le choix effectué dans le
ListBox3.
-Rétablissement de la couleur de la police de l'entrée de légende
correspondant à la série.
J'espère que ton niveau de connaissance VBA te permettra de
comprendre mes
explications. Dans tous les cas, n'hésite pas à demander tous les
renseignements dont tu peux avoir besoin.
Daniel
a écrit dans le message de news:
Bonsoir Daniel,
Merci beaucoup pour cet exemple c'est exactement ce qu'il me faut !!!
Ca me sauve la vie!!!
Pourrais tu me détailler comment tu as fais pour que je puisse faire
la même chose sur mon fichier ça serait vraiment sympa?
Encore merci
On 23 fév, 19:25, "Daniel.C" wrote:Bonsoir.
Regarde le classeur à l'adresse :http://cjoint.com/?cxtyeuvpub
Toutes les séries sont tracées à l'origine. Il faut faire un choix
dans
chaque listbox.
Cordialement.
Daniel
a écrit dans le message de news:
Bonjour JB,
Je vous remercie pour ces indications mais cet exemple ne me
convient
pas (en plus j'ai du mal à l'appliquer) car je ne peux pas comparer
différents produits ce qui est vraiment mon objectif principal.
Je voudrais vraiment avoir 3 listes déroulantes :
-une où je coche le ou les produits et apparaissent les courbes des
produits choisis des différentes mesures en fonction du temps et en
légende le nom des produits.
-une où je selectionne la gamme des produits et apparaissent les
courbes des produits appartenant à cette gamme des différentes
mesures
en fonction du temps et en légende le nom des produits.
-une où serait indiqué le type de produit et apparaissent les
courbes
des produits appartenant à ce type des différentes mesures en
fonction
du temps et en légende le nom des produits.
Est ce que c'est faisable?
Pouvez-vous m'aider s'il vous plaît?
Merci d'avance
On 23 fév, 15:17, JB wrote:Bonjour,
Exmple onglet graphedyn5
http://boisgontierjacques.free.fr/fichiers/graphe/jb-GraphiqueDynamiq...
JB
On 23 fév, 14:03, wrote:Bonjour à tous !
J'ai une nouvelle fois besoin de vos lumières...
J'ai le tableau de données suivants
:http://cjoint.com/?cxn3ADNpIl
(bien sûr il s'agit d'un exemple, il faut immaginer ce tableau
avec
beaucoup plus de lignes et de colonnes...).
Je voudrais trouver un moyen de pouvoir obtenir une sorte de
graphique
dynamique (sous forme de courbes) où je pourais choisir sur le
graphique par l'intermédiaire de liste déroulantes :
En ordonner : les valeurs des mesures uniquement.
En abcisse : les divers temps de mesure (1H...24H) et la
possibilié
de
choisir les produits que je veux ou selectionner par gamme ou
encore
par type de produit.
J'ai déja réussi grâce à un graphique relié à un TCD à pouvoir
choisir
les produits désirés (sans cinétique) mais pas pour les deux
autres
options :
ex :
si je selection la gamme A, il apparaitrait les courbes de
mesures
du
produit AA et AAA...
si je selection en type de produit livres, seule la cinétique
de la
courbe CC apparait.
Je vous remercie d'avance pour votre aide ainsi que de bien
vouloir
me
détailler la procédure à effectuer pour que je puisse
l'appliquer à
mon fichier (car je ne suis malheureusement pas une pro
d'excel).-
Masquer le texte des messages
...
plus de détails »- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Plus vite que prévu :
http://cjoint.com/?cyta2DlKow
Daniel
<newoceane2000@yahoo.fr> a écrit dans le message de news:
62c7ddab-4f1b-4919-971b-3e4e5799baee@s13g2000prd.googlegroups.com...
Bonsoir,
Voici un fichier exemple qui se rapporche plus de mon fichier :
http://cjoint.com/?cyrSqOGYjw
Il faut qu' apparaisse en listebox1 les données jusqu'à la case F
incluse
Comment adapter les macros pour que ca marche sur plusieur feuille
avec des tableau un peu différents (il y a un temps de plus sur la
feuille 2).
Merci beaucoup pour votre aide
On 24 fév, 14:23, newoceane2...@yahoo.fr wrote:
Bonjour Daniel,
Je te remercie pour ton aide si précieuse.
J'ai réussi avec tes indications à refaire ton exemple (et avec
l'élimination des doublons c'est super !!). Seulement j'ai encore du
mal à l'appliquer à mon fichier : j'ai en effet 3 colonnes
supplémentaires qui doivent apparaitre dans la listbox 1 et du coup la
cinétique commence en G4 au lieu de D4.
Du coup j'ai modifié la macro de la façon suivante :
Private Sub Workbook_Open()
With Sheets("Feuil1")
.ListBox1.AddItem .[A4]
.ListBox1.AddItem .[B4]
.ListBox1.AddItem .[C4]
.ListBox1.AddItem .[D4]
.ListBox1.AddItem .[E4]
.ListBox1.AddItem .[F4]
.ListBox3.AddItem .[G4]
.ListBox3.AddItem .[H4]
.ListBox3.AddItem .[I4]
.ListBox3.AddItem .[J4]
.ListBox3.AddItem .[K4]
.ListBox3.AddItem .[L4]
.ListBox3.AddItem .[M4]
End With
End Sub
Ca ca m'a l'ai bon par contre pour la feuille 1 si je modifie de la
façon suivante j'ai pas de bonnes courbes ni de bonnes légendes :
rivate Sub CommandButton1_Click()
Dim c As Range, Ctr
If ListBox1.Value = "" Then MsgBox "Saisissez un choix dans la
première liste"
If ListBox3.Value = "" Then MsgBox "Saisissez un choix dans la
troisième liste"
test = False
For i = 0 To ListBox2.ListCount - 1
If ListBox2.Selected(i) Then test = True
Next i
If test = False Then
MsgBox "Saisissez un choix dans la seconde liste"
End If
Ctr = Application.Match(ListBox3.Value, [G4:M4], 0)
With ActiveSheet.ChartObjects(1).Chart
For i = .SeriesCollection.Count To 1 Step -1
.SeriesCollection(i).Delete
Next i
For i = 0 To ListBox2.ListCount - 1
If ListBox2.Selected(i) Then
For Each c In Range("A5",
Range("A65536").End(xlUp)).Offset(, ListBox1.ListIndex)
If c = ListBox2.List(i) Then
.SeriesCollection.NewSeries
.SeriesCollection(.SeriesCollection.Count).XValues
= Range("G4").Resize(, Ctr)
.SeriesCollection(.SeriesCollection.Count).Values
= Range("G5").Offset(c.Row - 5).Resize(, Ctr)
.SeriesCollection(.SeriesCollection.Count).Name
= Range("G5").Offset(c.Row - 5, -3)
.HasTitle = True
.ChartTitle.Characters.Text = ListBox2.Value
End If
Next c
End If
Next i
End With
ListBox1.ListIndex = -1
ListBox2.ListIndex = -1
End Sub
Private Sub ListBox1_Click()
Dim c As Range, Dico As New Collection
ListBox2.Clear
On Error Resume Next
For Each c In _
Range("A5", Range("A65536").End(xlUp)).Offset(,
ListBox1.ListIndex)
Dico.Add c, c
Next c
For Each Item In Dico
ListBox2.AddItem Item
Next Item
End Sub
Peux tu m'aider à nouveau ?
Je me demandais également si je voulais faire la même chose sur
plusieur feuilles du même classeur (même si le tableau de départ n'est
pas le même)?
Est ce que ca te parait difficile à utiliser si le nombre de série du
graphique est de 200? car j'ai fait juste un essai avec quelques
lignes seulement.
Merci beaucoup pour ton aide
On 24 fév, 13:36, "Daniel.C" <dZZZcolarde...@free.fr> wrote:
Regarde le classeur ci-joint; j'ai éliminé les doublons dans listbox2
et
réglé le problème de la légende :http://cjoint.com/?cynIOWFdYk
Daniel
<newoceane2...@yahoo.fr> a écrit dans le message de news:
fcd19c0e-1903-47c9-8a67-802e845da...@c33g2000hsd.googlegroups.com...
Bonjour Daniel,
Effectivement, mais connaissance en vba sont effectivement limitée.
Peux tu me détailler au maximum TOUTES les étapes à effectuer ?
Par exemple : faut-il que je commence par créer un graphique normale,
puis creer les listbox (c'est bien affichage, barre d'outils et
formulaire?) puis faire un copier de coller de tes macros?
Une sorte de didactiel pour réussir à recréer ton magnifique travail
pas à pas, ca serait vraiment super (je sais que je t'en demande
beaucoup mais je suis bloquée).
Merci beaucoup
On 23 fév, 23:45, "Daniel.C" <dZZZcolarde...@free.fr> wrote:
Ce n'est pas facile, et il reste les points suivants à améliorer (au
minimum) :
- le titre.
- l'espacement des séries dans la légende.
- la suppression dans le listbox du milieu.
J'essaie d'expliquer :
Au départ, toutes les séries possibles sont tracées
Dans ThisWorkbook :
Private Sub Workbook_Open()
With Sheets("Feuil1")
.ListBox1.AddItem .[A4]
.ListBox1.AddItem .[B4]
.ListBox1.AddItem .[C4]
.ListBox3.AddItem .[D4]
.ListBox3.AddItem .[E4]
.ListBox3.AddItem .[F4]
.ListBox3.AddItem .[G4]
.ListBox3.AddItem .[H4]
.ListBox3.AddItem .[I4]
.ListBox3.AddItem .[J4]
End With
End Sub
C'est à dire, à l'ouverture du classeur, remplissage de la listbox du
haut
(ListBox1) et de la listbox du bas (ListBox3). Naturellement, il faut
envisager une boucle s'il y a plus d'items.
Le reste du code est dans la feuille :
Sur un choix dans la listbox1, les séries deviennent invisibles et la
ListBox2 (celle du milieu) est rempli selon le choix effectué.
Sur click sur le bouton :
- La variable Ctr reçoit la position du choix de la ListBox3
(l'heure) par
rapport à D4 (pour définir les valeurs de l'axe des X).
-Pour chaque série :
-- L'axe des X est défini.
-- Les valeurs Y sont définies à 1 valeur.
-- La couleur de la police de la légende pour la série est
positionnée à
blanc.
Traitement de la ou des sélection(s) du ListBox2 :
Pour chaque série sélectionnée :
Pour chaque valeur de la zone A5:Cn, (n étant la dernière ligne
contenant
des informations) :
Si cette valeur est égale au choix de ListBox2 :
- On rend la série visible.
- Dimensionnement de la plage des Y selon le choix effectué dans le
ListBox3.
-Rétablissement de la couleur de la police de l'entrée de légende
correspondant à la série.
J'espère que ton niveau de connaissance VBA te permettra de
comprendre mes
explications. Dans tous les cas, n'hésite pas à demander tous les
renseignements dont tu peux avoir besoin.
Daniel
<newoceane2...@yahoo.fr> a écrit dans le message de news:
7ea2c58b-89ad-4801-bc62-77d2a6461...@q70g2000hsb.googlegroups.com...
Bonsoir Daniel,
Merci beaucoup pour cet exemple c'est exactement ce qu'il me faut !!!
Ca me sauve la vie!!!
Pourrais tu me détailler comment tu as fais pour que je puisse faire
la même chose sur mon fichier ça serait vraiment sympa?
Encore merci
On 23 fév, 19:25, "Daniel.C" <dZZZcolarde...@free.fr> wrote:
Bonsoir.
Regarde le classeur à l'adresse :http://cjoint.com/?cxtyeuvpub
Toutes les séries sont tracées à l'origine. Il faut faire un choix
dans
chaque listbox.
Cordialement.
Daniel
<newoceane2...@yahoo.fr> a écrit dans le message de news:
da8108a0-fbff-4919-95b9-590c6186b...@i29g2000prf.googlegroups.com...
Bonjour JB,
Je vous remercie pour ces indications mais cet exemple ne me
convient
pas (en plus j'ai du mal à l'appliquer) car je ne peux pas comparer
différents produits ce qui est vraiment mon objectif principal.
Je voudrais vraiment avoir 3 listes déroulantes :
-une où je coche le ou les produits et apparaissent les courbes des
produits choisis des différentes mesures en fonction du temps et en
légende le nom des produits.
-une où je selectionne la gamme des produits et apparaissent les
courbes des produits appartenant à cette gamme des différentes
mesures
en fonction du temps et en légende le nom des produits.
-une où serait indiqué le type de produit et apparaissent les
courbes
des produits appartenant à ce type des différentes mesures en
fonction
du temps et en légende le nom des produits.
Est ce que c'est faisable?
Pouvez-vous m'aider s'il vous plaît?
Merci d'avance
On 23 fév, 15:17, JB <boisgont...@hotmail.com> wrote:
Bonjour,
Exmple onglet graphedyn5
http://boisgontierjacques.free.fr/fichiers/graphe/jb-GraphiqueDynamiq...
JB
On 23 fév, 14:03, newoceane2...@yahoo.fr wrote:
Bonjour à tous !
J'ai une nouvelle fois besoin de vos lumières...
J'ai le tableau de données suivants
:http://cjoint.com/?cxn3ADNpIl
(bien sûr il s'agit d'un exemple, il faut immaginer ce tableau
avec
beaucoup plus de lignes et de colonnes...).
Je voudrais trouver un moyen de pouvoir obtenir une sorte de
graphique
dynamique (sous forme de courbes) où je pourais choisir sur le
graphique par l'intermédiaire de liste déroulantes :
En ordonner : les valeurs des mesures uniquement.
En abcisse : les divers temps de mesure (1H...24H) et la
possibilié
de
choisir les produits que je veux ou selectionner par gamme ou
encore
par type de produit.
J'ai déja réussi grâce à un graphique relié à un TCD à pouvoir
choisir
les produits désirés (sans cinétique) mais pas pour les deux
autres
options :
ex :
si je selection la gamme A, il apparaitrait les courbes de
mesures
du
produit AA et AAA...
si je selection en type de produit livres, seule la cinétique
de la
courbe CC apparait.
Je vous remercie d'avance pour votre aide ainsi que de bien
vouloir
me
détailler la procédure à effectuer pour que je puisse
l'appliquer à
mon fichier (car je ne suis malheureusement pas une pro
d'excel).-
Masquer le texte des messages
...
plus de détails »- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Plus vite que prévu :
http://cjoint.com/?cyta2DlKow
Daniel
a écrit dans le message de news:
Bonsoir,
Voici un fichier exemple qui se rapporche plus de mon fichier :
http://cjoint.com/?cyrSqOGYjw
Il faut qu' apparaisse en listebox1 les données jusqu'à la case F
incluse
Comment adapter les macros pour que ca marche sur plusieur feuille
avec des tableau un peu différents (il y a un temps de plus sur la
feuille 2).
Merci beaucoup pour votre aide
On 24 fév, 14:23, wrote:Bonjour Daniel,
Je te remercie pour ton aide si précieuse.
J'ai réussi avec tes indications à refaire ton exemple (et avec
l'élimination des doublons c'est super !!). Seulement j'ai encore du
mal à l'appliquer à mon fichier : j'ai en effet 3 colonnes
supplémentaires qui doivent apparaitre dans la listbox 1 et du coup la
cinétique commence en G4 au lieu de D4.
Du coup j'ai modifié la macro de la façon suivante :
Private Sub Workbook_Open()
With Sheets("Feuil1")
.ListBox1.AddItem .[A4]
.ListBox1.AddItem .[B4]
.ListBox1.AddItem .[C4]
.ListBox1.AddItem .[D4]
.ListBox1.AddItem .[E4]
.ListBox1.AddItem .[F4]
.ListBox3.AddItem .[G4]
.ListBox3.AddItem .[H4]
.ListBox3.AddItem .[I4]
.ListBox3.AddItem .[J4]
.ListBox3.AddItem .[K4]
.ListBox3.AddItem .[L4]
.ListBox3.AddItem .[M4]
End With
End Sub
Ca ca m'a l'ai bon par contre pour la feuille 1 si je modifie de la
façon suivante j'ai pas de bonnes courbes ni de bonnes légendes :
rivate Sub CommandButton1_Click()
Dim c As Range, Ctr
If ListBox1.Value = "" Then MsgBox "Saisissez un choix dans la
première liste"
If ListBox3.Value = "" Then MsgBox "Saisissez un choix dans la
troisième liste"
test = False
For i = 0 To ListBox2.ListCount - 1
If ListBox2.Selected(i) Then test = True
Next i
If test = False Then
MsgBox "Saisissez un choix dans la seconde liste"
End If
Ctr = Application.Match(ListBox3.Value, [G4:M4], 0)
With ActiveSheet.ChartObjects(1).Chart
For i = .SeriesCollection.Count To 1 Step -1
.SeriesCollection(i).Delete
Next i
For i = 0 To ListBox2.ListCount - 1
If ListBox2.Selected(i) Then
For Each c In Range("A5",
Range("A65536").End(xlUp)).Offset(, ListBox1.ListIndex)
If c = ListBox2.List(i) Then
.SeriesCollection.NewSeries
.SeriesCollection(.SeriesCollection.Count).XValues
= Range("G4").Resize(, Ctr)
.SeriesCollection(.SeriesCollection.Count).Values
= Range("G5").Offset(c.Row - 5).Resize(, Ctr)
.SeriesCollection(.SeriesCollection.Count).Name
= Range("G5").Offset(c.Row - 5, -3)
.HasTitle = True
.ChartTitle.Characters.Text = ListBox2.Value
End If
Next c
End If
Next i
End With
ListBox1.ListIndex = -1
ListBox2.ListIndex = -1
End Sub
Private Sub ListBox1_Click()
Dim c As Range, Dico As New Collection
ListBox2.Clear
On Error Resume Next
For Each c In _
Range("A5", Range("A65536").End(xlUp)).Offset(,
ListBox1.ListIndex)
Dico.Add c, c
Next c
For Each Item In Dico
ListBox2.AddItem Item
Next Item
End Sub
Peux tu m'aider à nouveau ?
Je me demandais également si je voulais faire la même chose sur
plusieur feuilles du même classeur (même si le tableau de départ n'est
pas le même)?
Est ce que ca te parait difficile à utiliser si le nombre de série du
graphique est de 200? car j'ai fait juste un essai avec quelques
lignes seulement.
Merci beaucoup pour ton aide
On 24 fév, 13:36, "Daniel.C" wrote:Regarde le classeur ci-joint; j'ai éliminé les doublons dans listbox2
et
réglé le problème de la légende :http://cjoint.com/?cynIOWFdYk
Daniel
a écrit dans le message de news:
Bonjour Daniel,
Effectivement, mais connaissance en vba sont effectivement limitée.
Peux tu me détailler au maximum TOUTES les étapes à effectuer ?
Par exemple : faut-il que je commence par créer un graphique normale,
puis creer les listbox (c'est bien affichage, barre d'outils et
formulaire?) puis faire un copier de coller de tes macros?
Une sorte de didactiel pour réussir à recréer ton magnifique travail
pas à pas, ca serait vraiment super (je sais que je t'en demande
beaucoup mais je suis bloquée).
Merci beaucoup
On 23 fév, 23:45, "Daniel.C" wrote:Ce n'est pas facile, et il reste les points suivants à améliorer (au
minimum) :
- le titre.
- l'espacement des séries dans la légende.
- la suppression dans le listbox du milieu.
J'essaie d'expliquer :
Au départ, toutes les séries possibles sont tracées
Dans ThisWorkbook :
Private Sub Workbook_Open()
With Sheets("Feuil1")
.ListBox1.AddItem .[A4]
.ListBox1.AddItem .[B4]
.ListBox1.AddItem .[C4]
.ListBox3.AddItem .[D4]
.ListBox3.AddItem .[E4]
.ListBox3.AddItem .[F4]
.ListBox3.AddItem .[G4]
.ListBox3.AddItem .[H4]
.ListBox3.AddItem .[I4]
.ListBox3.AddItem .[J4]
End With
End Sub
C'est à dire, à l'ouverture du classeur, remplissage de la listbox du
haut
(ListBox1) et de la listbox du bas (ListBox3). Naturellement, il faut
envisager une boucle s'il y a plus d'items.
Le reste du code est dans la feuille :
Sur un choix dans la listbox1, les séries deviennent invisibles et la
ListBox2 (celle du milieu) est rempli selon le choix effectué.
Sur click sur le bouton :
- La variable Ctr reçoit la position du choix de la ListBox3
(l'heure) par
rapport à D4 (pour définir les valeurs de l'axe des X).
-Pour chaque série :
-- L'axe des X est défini.
-- Les valeurs Y sont définies à 1 valeur.
-- La couleur de la police de la légende pour la série est
positionnée à
blanc.
Traitement de la ou des sélection(s) du ListBox2 :
Pour chaque série sélectionnée :
Pour chaque valeur de la zone A5:Cn, (n étant la dernière ligne
contenant
des informations) :
Si cette valeur est égale au choix de ListBox2 :
- On rend la série visible.
- Dimensionnement de la plage des Y selon le choix effectué dans le
ListBox3.
-Rétablissement de la couleur de la police de l'entrée de légende
correspondant à la série.
J'espère que ton niveau de connaissance VBA te permettra de
comprendre mes
explications. Dans tous les cas, n'hésite pas à demander tous les
renseignements dont tu peux avoir besoin.
Daniel
a écrit dans le message de news:
Bonsoir Daniel,
Merci beaucoup pour cet exemple c'est exactement ce qu'il me faut !!!
Ca me sauve la vie!!!
Pourrais tu me détailler comment tu as fais pour que je puisse faire
la même chose sur mon fichier ça serait vraiment sympa?
Encore merci
On 23 fév, 19:25, "Daniel.C" wrote:Bonsoir.
Regarde le classeur à l'adresse :http://cjoint.com/?cxtyeuvpub
Toutes les séries sont tracées à l'origine. Il faut faire un choix
dans
chaque listbox.
Cordialement.
Daniel
a écrit dans le message de news:
Bonjour JB,
Je vous remercie pour ces indications mais cet exemple ne me
convient
pas (en plus j'ai du mal à l'appliquer) car je ne peux pas comparer
différents produits ce qui est vraiment mon objectif principal.
Je voudrais vraiment avoir 3 listes déroulantes :
-une où je coche le ou les produits et apparaissent les courbes des
produits choisis des différentes mesures en fonction du temps et en
légende le nom des produits.
-une où je selectionne la gamme des produits et apparaissent les
courbes des produits appartenant à cette gamme des différentes
mesures
en fonction du temps et en légende le nom des produits.
-une où serait indiqué le type de produit et apparaissent les
courbes
des produits appartenant à ce type des différentes mesures en
fonction
du temps et en légende le nom des produits.
Est ce que c'est faisable?
Pouvez-vous m'aider s'il vous plaît?
Merci d'avance
On 23 fév, 15:17, JB wrote:Bonjour,
Exmple onglet graphedyn5
http://boisgontierjacques.free.fr/fichiers/graphe/jb-GraphiqueDynamiq...
JB
On 23 fév, 14:03, wrote:Bonjour à tous !
J'ai une nouvelle fois besoin de vos lumières...
J'ai le tableau de données suivants
:http://cjoint.com/?cxn3ADNpIl
(bien sûr il s'agit d'un exemple, il faut immaginer ce tableau
avec
beaucoup plus de lignes et de colonnes...).
Je voudrais trouver un moyen de pouvoir obtenir une sorte de
graphique
dynamique (sous forme de courbes) où je pourais choisir sur le
graphique par l'intermédiaire de liste déroulantes :
En ordonner : les valeurs des mesures uniquement.
En abcisse : les divers temps de mesure (1H...24H) et la
possibilié
de
choisir les produits que je veux ou selectionner par gamme ou
encore
par type de produit.
J'ai déja réussi grâce à un graphique relié à un TCD à pouvoir
choisir
les produits désirés (sans cinétique) mais pas pour les deux
autres
options :
ex :
si je selection la gamme A, il apparaitrait les courbes de
mesures
du
produit AA et AAA...
si je selection en type de produit livres, seule la cinétique
de la
courbe CC apparait.
Je vous remercie d'avance pour votre aide ainsi que de bien
vouloir
me
détailler la procédure à effectuer pour que je puisse
l'appliquer à
mon fichier (car je ne suis malheureusement pas une pro
d'excel).-
Masquer le texte des messages
...
plus de détails »- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Oups :http://cjoint.com/?cytMOKh2GW
Daniel
"Daniel.C" a écrit dans le message de news:Plus vite que prévu :
http://cjoint.com/?cyta2DlKow
Daniel
a écrit dans le message de news:
Bonsoir,
Voici un fichier exemple qui se rapporche plus de mon fichier :
http://cjoint.com/?cyrSqOGYjw
Il faut qu' apparaisse en listebox1 les données jusqu'à la case F
incluse
Comment adapter les macros pour que ca marche sur plusieur feuille
avec des tableau un peu différents (il y a un temps de plus sur la
feuille 2).
Merci beaucoup pour votre aide
On 24 fév, 14:23, wrote:Bonjour Daniel,
Je te remercie pour ton aide si précieuse.
J'ai réussi avec tes indications à refaire ton exemple (et avec
l'élimination des doublons c'est super !!). Seulement j'ai encore du
mal à l'appliquer à mon fichier : j'ai en effet 3 colonnes
supplémentaires qui doivent apparaitre dans la listbox 1 et du coup l a
cinétique commence en G4 au lieu de D4.
Du coup j'ai modifié la macro de la façon suivante :
Private Sub Workbook_Open()
With Sheets("Feuil1")
.ListBox1.AddItem .[A4]
.ListBox1.AddItem .[B4]
.ListBox1.AddItem .[C4]
.ListBox1.AddItem .[D4]
.ListBox1.AddItem .[E4]
.ListBox1.AddItem .[F4]
.ListBox3.AddItem .[G4]
.ListBox3.AddItem .[H4]
.ListBox3.AddItem .[I4]
.ListBox3.AddItem .[J4]
.ListBox3.AddItem .[K4]
.ListBox3.AddItem .[L4]
.ListBox3.AddItem .[M4]
End With
End Sub
Ca ca m'a l'ai bon par contre pour la feuille 1 si je modifie de la
façon suivante j'ai pas de bonnes courbes ni de bonnes légendes :
rivate Sub CommandButton1_Click()
Dim c As Range, Ctr
If ListBox1.Value = "" Then MsgBox "Saisissez un choix dans la
première liste"
If ListBox3.Value = "" Then MsgBox "Saisissez un choix dans la
troisième liste"
test = False
For i = 0 To ListBox2.ListCount - 1
If ListBox2.Selected(i) Then test = True
Next i
If test = False Then
MsgBox "Saisissez un choix dans la seconde liste"
End If
Ctr = Application.Match(ListBox3.Value, [G4:M4], 0)
With ActiveSheet.ChartObjects(1).Chart
For i = .SeriesCollection.Count To 1 Step -1
.SeriesCollection(i).Delete
Next i
For i = 0 To ListBox2.ListCount - 1
If ListBox2.Selected(i) Then
For Each c In Range("A5",
Range("A65536").End(xlUp)).Offset(, ListBox1.ListIndex)
If c = ListBox2.List(i) Then
.SeriesCollection.NewSeries
.SeriesCollection(.SeriesCollection.Count).XValues
= Range("G4").Resize(, Ctr)
.SeriesCollection(.SeriesCollection.Count).Values
= Range("G5").Offset(c.Row - 5).Resize(, Ctr)
.SeriesCollection(.SeriesCollection.Count).Name
= Range("G5").Offset(c.Row - 5, -3)
.HasTitle = True
.ChartTitle.Characters.Text = ListBox2.Value
End If
Next c
End If
Next i
End With
ListBox1.ListIndex = -1
ListBox2.ListIndex = -1
End Sub
Private Sub ListBox1_Click()
Dim c As Range, Dico As New Collection
ListBox2.Clear
On Error Resume Next
For Each c In _
Range("A5", Range("A65536").End(xlUp)).Offset(,
ListBox1.ListIndex)
Dico.Add c, c
Next c
For Each Item In Dico
ListBox2.AddItem Item
Next Item
End Sub
Peux tu m'aider à nouveau ?
Je me demandais également si je voulais faire la même chose sur
plusieur feuilles du même classeur (même si le tableau de départ n'est
pas le même)?
Est ce que ca te parait difficile à utiliser si le nombre de série du
graphique est de 200? car j'ai fait juste un essai avec quelques
lignes seulement.
Merci beaucoup pour ton aide
On 24 fév, 13:36, "Daniel.C" wrote:Regarde le classeur ci-joint; j'ai éliminé les doublons dans list box2
et
réglé le problème de la légende :http://cjoint.com/?cynIOWFdY k
Daniel
a écrit dans le message de news:
Bonjour Daniel,
Effectivement, mais connaissance en vba sont effectivement limitée.
Peux tu me détailler au maximum TOUTES les étapes à effectuer ?
Par exemple : faut-il que je commence par créer un graphique normal e,
puis creer les listbox (c'est bien affichage, barre d'outils et
formulaire?) puis faire un copier de coller de tes macros?
Une sorte de didactiel pour réussir à recréer ton magnifique tr avail
pas à pas, ca serait vraiment super (je sais que je t'en demande
beaucoup mais je suis bloquée).
Merci beaucoup
On 23 fév, 23:45, "Daniel.C" wrote:Ce n'est pas facile, et il reste les points suivants à améliore r (au
minimum) :
- le titre.
- l'espacement des séries dans la légende.
- la suppression dans le listbox du milieu.
J'essaie d'expliquer :
Au départ, toutes les séries possibles sont tracées
Dans ThisWorkbook :
Private Sub Workbook_Open()
With Sheets("Feuil1")
.ListBox1.AddItem .[A4]
.ListBox1.AddItem .[B4]
.ListBox1.AddItem .[C4]
.ListBox3.AddItem .[D4]
.ListBox3.AddItem .[E4]
.ListBox3.AddItem .[F4]
.ListBox3.AddItem .[G4]
.ListBox3.AddItem .[H4]
.ListBox3.AddItem .[I4]
.ListBox3.AddItem .[J4]
End With
End Sub
C'est à dire, à l'ouverture du classeur, remplissage de la list box du
haut
(ListBox1) et de la listbox du bas (ListBox3). Naturellement, il fa ut
envisager une boucle s'il y a plus d'items.
Le reste du code est dans la feuille :
Sur un choix dans la listbox1, les séries deviennent invisibles e t la
ListBox2 (celle du milieu) est rempli selon le choix effectué.
Sur click sur le bouton :
- La variable Ctr reçoit la position du choix de la ListBox3
(l'heure) par
rapport à D4 (pour définir les valeurs de l'axe des X).
-Pour chaque série :
-- L'axe des X est défini.
-- Les valeurs Y sont définies à 1 valeur.
-- La couleur de la police de la légende pour la série est
positionnée à
blanc.
Traitement de la ou des sélection(s) du ListBox2 :
Pour chaque série sélectionnée :
Pour chaque valeur de la zone A5:Cn, (n étant la dernière ligne
contenant
des informations) :
Si cette valeur est égale au choix de ListBox2 :
- On rend la série visible.
- Dimensionnement de la plage des Y selon le choix effectué dans le
ListBox3.
-Rétablissement de la couleur de la police de l'entrée de lég ende
correspondant à la série.
J'espère que ton niveau de connaissance VBA te permettra de
comprendre mes
explications. Dans tous les cas, n'hésite pas à demander tous l es
renseignements dont tu peux avoir besoin.
Daniel
a écrit dans le message de news:
.
Bonsoir Daniel,
Merci beaucoup pour cet exemple c'est exactement ce qu'il me faut ! !!
Ca me sauve la vie!!!
Pourrais tu me détailler comment tu as fais pour que je puisse fa ire
la même chose sur mon fichier ça serait vraiment sympa?
Encore merci
On 23 fév, 19:25, "Daniel.C" wrote:Bonsoir.
Regarde le classeur à l'adresse :http://cjoint.com/?cxtyeuvpub
Toutes les séries sont tracées à l'origine. Il faut faire u n choix
dans
chaque listbox.
Cordialement.
Daniel
a écrit dans le message de news:
...
Bonjour JB,
Je vous remercie pour ces indications mais cet exemple ne me
convient
pas (en plus j'ai du mal à l'appliquer) car je ne peux pas comp arer
différents produits ce qui est vraiment mon objectif principal.
Je voudrais vraiment avoir 3 listes déroulantes :
-une où je coche le ou les produits et apparaissent les courbes des
produits choisis des différentes mesures en fonction du temps e t en
légende le nom des produits.
-une où je selectionne la gamme des produits et apparaissent le s
courbes des produits appartenant à cette gamme des différente s
mesures
en fonction du temps et en légende le nom des produits.
-une où serait indiqué le type de produit et apparaissent les
courbes
des produits appartenant à ce type des différentes mesures en
fonction
du temps et en légende le nom des produits.
Est ce que c'est faisable?
Pouvez-vous m'aider s'il vous plaît?
Merci d'avance
On 23 fév, 15:17, JB wrote:Bonjour,
Exmple onglet graphedyn5
http://boisgontierjacques.free.fr/fichiers/graphe/jb-GraphiqueDy namiq...
JB
On 23 fév, 14:03, wrote:Bonjour à tous !
J'ai une nouvelle fois besoin de vos lumières...
J'ai le tableau de données suivants
:http://cjoint.com/?cxn3ADNpIl
(bien sûr il s'agit d'un exemple, il faut immaginer ce tabl eau
avec
beaucoup plus de lignes et de colonnes...).
Je voudrais trouver un moyen de pouvoir obtenir une sorte de
graphique
dynamique
...
plus de détails »- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Oups :http://cjoint.com/?cytMOKh2GW
Daniel
"Daniel.C" <dZZZcolarde...@free.fr> a écrit dans le message de news:
eZG258wdIHA.1...@TK2MSFTNGP02.phx.gbl...
Plus vite que prévu :
http://cjoint.com/?cyta2DlKow
Daniel
<newoceane2...@yahoo.fr> a écrit dans le message de news:
62c7ddab-4f1b-4919-971b-3e4e5799b...@s13g2000prd.googlegroups.com...
Bonsoir,
Voici un fichier exemple qui se rapporche plus de mon fichier :
http://cjoint.com/?cyrSqOGYjw
Il faut qu' apparaisse en listebox1 les données jusqu'à la case F
incluse
Comment adapter les macros pour que ca marche sur plusieur feuille
avec des tableau un peu différents (il y a un temps de plus sur la
feuille 2).
Merci beaucoup pour votre aide
On 24 fév, 14:23, newoceane2...@yahoo.fr wrote:
Bonjour Daniel,
Je te remercie pour ton aide si précieuse.
J'ai réussi avec tes indications à refaire ton exemple (et avec
l'élimination des doublons c'est super !!). Seulement j'ai encore du
mal à l'appliquer à mon fichier : j'ai en effet 3 colonnes
supplémentaires qui doivent apparaitre dans la listbox 1 et du coup l a
cinétique commence en G4 au lieu de D4.
Du coup j'ai modifié la macro de la façon suivante :
Private Sub Workbook_Open()
With Sheets("Feuil1")
.ListBox1.AddItem .[A4]
.ListBox1.AddItem .[B4]
.ListBox1.AddItem .[C4]
.ListBox1.AddItem .[D4]
.ListBox1.AddItem .[E4]
.ListBox1.AddItem .[F4]
.ListBox3.AddItem .[G4]
.ListBox3.AddItem .[H4]
.ListBox3.AddItem .[I4]
.ListBox3.AddItem .[J4]
.ListBox3.AddItem .[K4]
.ListBox3.AddItem .[L4]
.ListBox3.AddItem .[M4]
End With
End Sub
Ca ca m'a l'ai bon par contre pour la feuille 1 si je modifie de la
façon suivante j'ai pas de bonnes courbes ni de bonnes légendes :
rivate Sub CommandButton1_Click()
Dim c As Range, Ctr
If ListBox1.Value = "" Then MsgBox "Saisissez un choix dans la
première liste"
If ListBox3.Value = "" Then MsgBox "Saisissez un choix dans la
troisième liste"
test = False
For i = 0 To ListBox2.ListCount - 1
If ListBox2.Selected(i) Then test = True
Next i
If test = False Then
MsgBox "Saisissez un choix dans la seconde liste"
End If
Ctr = Application.Match(ListBox3.Value, [G4:M4], 0)
With ActiveSheet.ChartObjects(1).Chart
For i = .SeriesCollection.Count To 1 Step -1
.SeriesCollection(i).Delete
Next i
For i = 0 To ListBox2.ListCount - 1
If ListBox2.Selected(i) Then
For Each c In Range("A5",
Range("A65536").End(xlUp)).Offset(, ListBox1.ListIndex)
If c = ListBox2.List(i) Then
.SeriesCollection.NewSeries
.SeriesCollection(.SeriesCollection.Count).XValues
= Range("G4").Resize(, Ctr)
.SeriesCollection(.SeriesCollection.Count).Values
= Range("G5").Offset(c.Row - 5).Resize(, Ctr)
.SeriesCollection(.SeriesCollection.Count).Name
= Range("G5").Offset(c.Row - 5, -3)
.HasTitle = True
.ChartTitle.Characters.Text = ListBox2.Value
End If
Next c
End If
Next i
End With
ListBox1.ListIndex = -1
ListBox2.ListIndex = -1
End Sub
Private Sub ListBox1_Click()
Dim c As Range, Dico As New Collection
ListBox2.Clear
On Error Resume Next
For Each c In _
Range("A5", Range("A65536").End(xlUp)).Offset(,
ListBox1.ListIndex)
Dico.Add c, c
Next c
For Each Item In Dico
ListBox2.AddItem Item
Next Item
End Sub
Peux tu m'aider à nouveau ?
Je me demandais également si je voulais faire la même chose sur
plusieur feuilles du même classeur (même si le tableau de départ n'est
pas le même)?
Est ce que ca te parait difficile à utiliser si le nombre de série du
graphique est de 200? car j'ai fait juste un essai avec quelques
lignes seulement.
Merci beaucoup pour ton aide
On 24 fév, 13:36, "Daniel.C" <dZZZcolarde...@free.fr> wrote:
Regarde le classeur ci-joint; j'ai éliminé les doublons dans list box2
et
réglé le problème de la légende :http://cjoint.com/?cynIOWFdY k
Daniel
<newoceane2...@yahoo.fr> a écrit dans le message de news:
fcd19c0e-1903-47c9-8a67-802e845da...@c33g2000hsd.googlegroups.com...
Bonjour Daniel,
Effectivement, mais connaissance en vba sont effectivement limitée.
Peux tu me détailler au maximum TOUTES les étapes à effectuer ?
Par exemple : faut-il que je commence par créer un graphique normal e,
puis creer les listbox (c'est bien affichage, barre d'outils et
formulaire?) puis faire un copier de coller de tes macros?
Une sorte de didactiel pour réussir à recréer ton magnifique tr avail
pas à pas, ca serait vraiment super (je sais que je t'en demande
beaucoup mais je suis bloquée).
Merci beaucoup
On 23 fév, 23:45, "Daniel.C" <dZZZcolarde...@free.fr> wrote:
Ce n'est pas facile, et il reste les points suivants à améliore r (au
minimum) :
- le titre.
- l'espacement des séries dans la légende.
- la suppression dans le listbox du milieu.
J'essaie d'expliquer :
Au départ, toutes les séries possibles sont tracées
Dans ThisWorkbook :
Private Sub Workbook_Open()
With Sheets("Feuil1")
.ListBox1.AddItem .[A4]
.ListBox1.AddItem .[B4]
.ListBox1.AddItem .[C4]
.ListBox3.AddItem .[D4]
.ListBox3.AddItem .[E4]
.ListBox3.AddItem .[F4]
.ListBox3.AddItem .[G4]
.ListBox3.AddItem .[H4]
.ListBox3.AddItem .[I4]
.ListBox3.AddItem .[J4]
End With
End Sub
C'est à dire, à l'ouverture du classeur, remplissage de la list box du
haut
(ListBox1) et de la listbox du bas (ListBox3). Naturellement, il fa ut
envisager une boucle s'il y a plus d'items.
Le reste du code est dans la feuille :
Sur un choix dans la listbox1, les séries deviennent invisibles e t la
ListBox2 (celle du milieu) est rempli selon le choix effectué.
Sur click sur le bouton :
- La variable Ctr reçoit la position du choix de la ListBox3
(l'heure) par
rapport à D4 (pour définir les valeurs de l'axe des X).
-Pour chaque série :
-- L'axe des X est défini.
-- Les valeurs Y sont définies à 1 valeur.
-- La couleur de la police de la légende pour la série est
positionnée à
blanc.
Traitement de la ou des sélection(s) du ListBox2 :
Pour chaque série sélectionnée :
Pour chaque valeur de la zone A5:Cn, (n étant la dernière ligne
contenant
des informations) :
Si cette valeur est égale au choix de ListBox2 :
- On rend la série visible.
- Dimensionnement de la plage des Y selon le choix effectué dans le
ListBox3.
-Rétablissement de la couleur de la police de l'entrée de lég ende
correspondant à la série.
J'espère que ton niveau de connaissance VBA te permettra de
comprendre mes
explications. Dans tous les cas, n'hésite pas à demander tous l es
renseignements dont tu peux avoir besoin.
Daniel
<newoceane2...@yahoo.fr> a écrit dans le message de news:
7ea2c58b-89ad-4801-bc62-77d2a6461...@q70g2000hsb.googlegroups.com.. .
Bonsoir Daniel,
Merci beaucoup pour cet exemple c'est exactement ce qu'il me faut ! !!
Ca me sauve la vie!!!
Pourrais tu me détailler comment tu as fais pour que je puisse fa ire
la même chose sur mon fichier ça serait vraiment sympa?
Encore merci
On 23 fév, 19:25, "Daniel.C" <dZZZcolarde...@free.fr> wrote:
Bonsoir.
Regarde le classeur à l'adresse :http://cjoint.com/?cxtyeuvpub
Toutes les séries sont tracées à l'origine. Il faut faire u n choix
dans
chaque listbox.
Cordialement.
Daniel
<newoceane2...@yahoo.fr> a écrit dans le message de news:
da8108a0-fbff-4919-95b9-590c6186b...@i29g2000prf.googlegroups.com ...
Bonjour JB,
Je vous remercie pour ces indications mais cet exemple ne me
convient
pas (en plus j'ai du mal à l'appliquer) car je ne peux pas comp arer
différents produits ce qui est vraiment mon objectif principal.
Je voudrais vraiment avoir 3 listes déroulantes :
-une où je coche le ou les produits et apparaissent les courbes des
produits choisis des différentes mesures en fonction du temps e t en
légende le nom des produits.
-une où je selectionne la gamme des produits et apparaissent le s
courbes des produits appartenant à cette gamme des différente s
mesures
en fonction du temps et en légende le nom des produits.
-une où serait indiqué le type de produit et apparaissent les
courbes
des produits appartenant à ce type des différentes mesures en
fonction
du temps et en légende le nom des produits.
Est ce que c'est faisable?
Pouvez-vous m'aider s'il vous plaît?
Merci d'avance
On 23 fév, 15:17, JB <boisgont...@hotmail.com> wrote:
Bonjour,
Exmple onglet graphedyn5
http://boisgontierjacques.free.fr/fichiers/graphe/jb-GraphiqueDy namiq...
JB
On 23 fév, 14:03, newoceane2...@yahoo.fr wrote:
Bonjour à tous !
J'ai une nouvelle fois besoin de vos lumières...
J'ai le tableau de données suivants
:http://cjoint.com/?cxn3ADNpIl
(bien sûr il s'agit d'un exemple, il faut immaginer ce tabl eau
avec
beaucoup plus de lignes et de colonnes...).
Je voudrais trouver un moyen de pouvoir obtenir une sorte de
graphique
dynamique
...
plus de détails »- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Oups :http://cjoint.com/?cytMOKh2GW
Daniel
"Daniel.C" a écrit dans le message de news:Plus vite que prévu :
http://cjoint.com/?cyta2DlKow
Daniel
a écrit dans le message de news:
Bonsoir,
Voici un fichier exemple qui se rapporche plus de mon fichier :
http://cjoint.com/?cyrSqOGYjw
Il faut qu' apparaisse en listebox1 les données jusqu'à la case F
incluse
Comment adapter les macros pour que ca marche sur plusieur feuille
avec des tableau un peu différents (il y a un temps de plus sur la
feuille 2).
Merci beaucoup pour votre aide
On 24 fév, 14:23, wrote:Bonjour Daniel,
Je te remercie pour ton aide si précieuse.
J'ai réussi avec tes indications à refaire ton exemple (et avec
l'élimination des doublons c'est super !!). Seulement j'ai encore du
mal à l'appliquer à mon fichier : j'ai en effet 3 colonnes
supplémentaires qui doivent apparaitre dans la listbox 1 et du coup l a
cinétique commence en G4 au lieu de D4.
Du coup j'ai modifié la macro de la façon suivante :
Private Sub Workbook_Open()
With Sheets("Feuil1")
.ListBox1.AddItem .[A4]
.ListBox1.AddItem .[B4]
.ListBox1.AddItem .[C4]
.ListBox1.AddItem .[D4]
.ListBox1.AddItem .[E4]
.ListBox1.AddItem .[F4]
.ListBox3.AddItem .[G4]
.ListBox3.AddItem .[H4]
.ListBox3.AddItem .[I4]
.ListBox3.AddItem .[J4]
.ListBox3.AddItem .[K4]
.ListBox3.AddItem .[L4]
.ListBox3.AddItem .[M4]
End With
End Sub
Ca ca m'a l'ai bon par contre pour la feuille 1 si je modifie de la
façon suivante j'ai pas de bonnes courbes ni de bonnes légendes :
rivate Sub CommandButton1_Click()
Dim c As Range, Ctr
If ListBox1.Value = "" Then MsgBox "Saisissez un choix dans la
première liste"
If ListBox3.Value = "" Then MsgBox "Saisissez un choix dans la
troisième liste"
test = False
For i = 0 To ListBox2.ListCount - 1
If ListBox2.Selected(i) Then test = True
Next i
If test = False Then
MsgBox "Saisissez un choix dans la seconde liste"
End If
Ctr = Application.Match(ListBox3.Value, [G4:M4], 0)
With ActiveSheet.ChartObjects(1).Chart
For i = .SeriesCollection.Count To 1 Step -1
.SeriesCollection(i).Delete
Next i
For i = 0 To ListBox2.ListCount - 1
If ListBox2.Selected(i) Then
For Each c In Range("A5",
Range("A65536").End(xlUp)).Offset(, ListBox1.ListIndex)
If c = ListBox2.List(i) Then
.SeriesCollection.NewSeries
.SeriesCollection(.SeriesCollection.Count).XValues
= Range("G4").Resize(, Ctr)
.SeriesCollection(.SeriesCollection.Count).Values
= Range("G5").Offset(c.Row - 5).Resize(, Ctr)
.SeriesCollection(.SeriesCollection.Count).Name
= Range("G5").Offset(c.Row - 5, -3)
.HasTitle = True
.ChartTitle.Characters.Text = ListBox2.Value
End If
Next c
End If
Next i
End With
ListBox1.ListIndex = -1
ListBox2.ListIndex = -1
End Sub
Private Sub ListBox1_Click()
Dim c As Range, Dico As New Collection
ListBox2.Clear
On Error Resume Next
For Each c In _
Range("A5", Range("A65536").End(xlUp)).Offset(,
ListBox1.ListIndex)
Dico.Add c, c
Next c
For Each Item In Dico
ListBox2.AddItem Item
Next Item
End Sub
Peux tu m'aider à nouveau ?
Je me demandais également si je voulais faire la même chose sur
plusieur feuilles du même classeur (même si le tableau de départ n'est
pas le même)?
Est ce que ca te parait difficile à utiliser si le nombre de série du
graphique est de 200? car j'ai fait juste un essai avec quelques
lignes seulement.
Merci beaucoup pour ton aide
On 24 fév, 13:36, "Daniel.C" wrote:Regarde le classeur ci-joint; j'ai éliminé les doublons dans list box2
et
réglé le problème de la légende :http://cjoint.com/?cynIOWFdY k
Daniel
a écrit dans le message de news:
Bonjour Daniel,
Effectivement, mais connaissance en vba sont effectivement limitée.
Peux tu me détailler au maximum TOUTES les étapes à effectuer ?
Par exemple : faut-il que je commence par créer un graphique normal e,
puis creer les listbox (c'est bien affichage, barre d'outils et
formulaire?) puis faire un copier de coller de tes macros?
Une sorte de didactiel pour réussir à recréer ton magnifique tr avail
pas à pas, ca serait vraiment super (je sais que je t'en demande
beaucoup mais je suis bloquée).
Merci beaucoup
On 23 fév, 23:45, "Daniel.C" wrote:Ce n'est pas facile, et il reste les points suivants à améliore r (au
minimum) :
- le titre.
- l'espacement des séries dans la légende.
- la suppression dans le listbox du milieu.
J'essaie d'expliquer :
Au départ, toutes les séries possibles sont tracées
Dans ThisWorkbook :
Private Sub Workbook_Open()
With Sheets("Feuil1")
.ListBox1.AddItem .[A4]
.ListBox1.AddItem .[B4]
.ListBox1.AddItem .[C4]
.ListBox3.AddItem .[D4]
.ListBox3.AddItem .[E4]
.ListBox3.AddItem .[F4]
.ListBox3.AddItem .[G4]
.ListBox3.AddItem .[H4]
.ListBox3.AddItem .[I4]
.ListBox3.AddItem .[J4]
End With
End Sub
C'est à dire, à l'ouverture du classeur, remplissage de la list box du
haut
(ListBox1) et de la listbox du bas (ListBox3). Naturellement, il fa ut
envisager une boucle s'il y a plus d'items.
Le reste du code est dans la feuille :
Sur un choix dans la listbox1, les séries deviennent invisibles e t la
ListBox2 (celle du milieu) est rempli selon le choix effectué.
Sur click sur le bouton :
- La variable Ctr reçoit la position du choix de la ListBox3
(l'heure) par
rapport à D4 (pour définir les valeurs de l'axe des X).
-Pour chaque série :
-- L'axe des X est défini.
-- Les valeurs Y sont définies à 1 valeur.
-- La couleur de la police de la légende pour la série est
positionnée à
blanc.
Traitement de la ou des sélection(s) du ListBox2 :
Pour chaque série sélectionnée :
Pour chaque valeur de la zone A5:Cn, (n étant la dernière ligne
contenant
des informations) :
Si cette valeur est égale au choix de ListBox2 :
- On rend la série visible.
- Dimensionnement de la plage des Y selon le choix effectué dans le
ListBox3.
-Rétablissement de la couleur de la police de l'entrée de lég ende
correspondant à la série.
J'espère que ton niveau de connaissance VBA te permettra de
comprendre mes
explications. Dans tous les cas, n'hésite pas à demander tous l es
renseignements dont tu peux avoir besoin.
Daniel
a écrit dans le message de news:
.
Bonsoir Daniel,
Merci beaucoup pour cet exemple c'est exactement ce qu'il me faut ! !!
Ca me sauve la vie!!!
Pourrais tu me détailler comment tu as fais pour que je puisse fa ire
la même chose sur mon fichier ça serait vraiment sympa?
Encore merci
On 23 fév, 19:25, "Daniel.C" wrote:Bonsoir.
Regarde le classeur à l'adresse :http://cjoint.com/?cxtyeuvpub
Toutes les séries sont tracées à l'origine. Il faut faire u n choix
dans
chaque listbox.
Cordialement.
Daniel
a écrit dans le message de news:
...
Bonjour JB,
Je vous remercie pour ces indications mais cet exemple ne me
convient
pas (en plus j'ai du mal à l'appliquer) car je ne peux pas comp arer
différents produits ce qui est vraiment mon objectif principal.
Je voudrais vraiment avoir 3 listes déroulantes :
-une où je coche le ou les produits et apparaissent les courbes des
produits choisis des différentes mesures en fonction du temps e t en
légende le nom des produits.
-une où je selectionne la gamme des produits et apparaissent le s
courbes des produits appartenant à cette gamme des différente s
mesures
en fonction du temps et en légende le nom des produits.
-une où serait indiqué le type de produit et apparaissent les
courbes
des produits appartenant à ce type des différentes mesures en
fonction
du temps et en légende le nom des produits.
Est ce que c'est faisable?
Pouvez-vous m'aider s'il vous plaît?
Merci d'avance
On 23 fév, 15:17, JB wrote:Bonjour,
Exmple onglet graphedyn5
http://boisgontierjacques.free.fr/fichiers/graphe/jb-GraphiqueDy namiq...
JB
On 23 fév, 14:03, wrote:Bonjour à tous !
J'ai une nouvelle fois besoin de vos lumières...
J'ai le tableau de données suivants
:http://cjoint.com/?cxn3ADNpIl
(bien sûr il s'agit d'un exemple, il faut immaginer ce tabl eau
avec
beaucoup plus de lignes et de colonnes...).
Je voudrais trouver un moyen de pouvoir obtenir une sorte de
graphique
dynamique
...
plus de détails »- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
