Bonjour à tous,
Question à propos du déclenchement de lintellisense.
Jen ai bavé quatre heures hier soir pour pondre cette proc dune
quinzaine de lignes.
Lenregistreur ma aidé mais comme je voulais supprimer toutes les
sélections, jai remanié.
Pour écrire la ligne fgra.ChartObjects(1).Chart.SeriesCollection.NewSeries
lintellisense ne se déclenche plus dès le mot Chart.
Est-ce une mauvaise manip de ma part ? Est-ce que la syntaxe nest pas
conventionnelle, même si elle fonctionne bien ?
Lennui cest que si je crée un code qui refuse lintellisense, je me
dis que je nai pas le droit, que je fais fausse route. Alors que la
syntaxe est bonne dans cet exemple, je cherche autre chose.
Sur cet exemple existe-t-il une syntaxe qui fasse fonctionner
lintellisense jusquau bout ? L'aide F1 est un peu brouillonne
Sub situation()
Set fgra = Workbooks("flux.xls").Sheets("Graph1")
gr = fgra.ChartObjects(1).Chart.SeriesCollection.Count
Select Case gr
Case 5
fgra.ChartObjects(1).Chart.SeriesCollection.NewSeries
fgra.ChartObjects(1).Chart.SeriesCollection.NewSeries
Case 6
fgra.ChartObjects(1).Chart.SeriesCollection.NewSeries
End Select
If fgra.ChartObjects(1).Chart.SeriesCollection.Count = 7 Then
Exit Sub
End If
Do While fgra.ChartObjects(1).Chart.SeriesCollection.Count > 7
fgra.ChartObjects(1).Chart.SeriesCollection(8).Delete
Loop
End Sub
Sinon cette sub fait ce que je veux : ajouter des séries pour avoir 7
séries et supprime des series si il y a plus de 7 séries dans le graphique.
Jaimerai bien utiliser lintellisense dans tous les cas de figures, si
cest possible Tout éclaircissement est le bienvenu.
Merci pour votre aide
Bonjour à tous,
Question à propos du déclenchement de lintellisense.
Jen ai bavé quatre heures hier soir pour pondre cette proc dune
quinzaine de lignes.
Lenregistreur ma aidé mais comme je voulais supprimer toutes les
sélections, jai remanié.
Pour écrire la ligne fgra.ChartObjects(1).Chart.SeriesCollection.NewSeries
lintellisense ne se déclenche plus dès le mot Chart.
Est-ce une mauvaise manip de ma part ? Est-ce que la syntaxe nest pas
conventionnelle, même si elle fonctionne bien ?
Lennui cest que si je crée un code qui refuse lintellisense, je me
dis que je nai pas le droit, que je fais fausse route. Alors que la
syntaxe est bonne dans cet exemple, je cherche autre chose.
Sur cet exemple existe-t-il une syntaxe qui fasse fonctionner
lintellisense jusquau bout ? L'aide F1 est un peu brouillonne
Sub situation()
Set fgra = Workbooks("flux.xls").Sheets("Graph1")
gr = fgra.ChartObjects(1).Chart.SeriesCollection.Count
Select Case gr
Case 5
fgra.ChartObjects(1).Chart.SeriesCollection.NewSeries
fgra.ChartObjects(1).Chart.SeriesCollection.NewSeries
Case 6
fgra.ChartObjects(1).Chart.SeriesCollection.NewSeries
End Select
If fgra.ChartObjects(1).Chart.SeriesCollection.Count = 7 Then
Exit Sub
End If
Do While fgra.ChartObjects(1).Chart.SeriesCollection.Count > 7
fgra.ChartObjects(1).Chart.SeriesCollection(8).Delete
Loop
End Sub
Sinon cette sub fait ce que je veux : ajouter des séries pour avoir 7
séries et supprime des series si il y a plus de 7 séries dans le graphique.
Jaimerai bien utiliser lintellisense dans tous les cas de figures, si
cest possible Tout éclaircissement est le bienvenu.
Merci pour votre aide
Bonjour à tous,
Question à propos du déclenchement de lintellisense.
Jen ai bavé quatre heures hier soir pour pondre cette proc dune
quinzaine de lignes.
Lenregistreur ma aidé mais comme je voulais supprimer toutes les
sélections, jai remanié.
Pour écrire la ligne fgra.ChartObjects(1).Chart.SeriesCollection.NewSeries
lintellisense ne se déclenche plus dès le mot Chart.
Est-ce une mauvaise manip de ma part ? Est-ce que la syntaxe nest pas
conventionnelle, même si elle fonctionne bien ?
Lennui cest que si je crée un code qui refuse lintellisense, je me
dis que je nai pas le droit, que je fais fausse route. Alors que la
syntaxe est bonne dans cet exemple, je cherche autre chose.
Sur cet exemple existe-t-il une syntaxe qui fasse fonctionner
lintellisense jusquau bout ? L'aide F1 est un peu brouillonne
Sub situation()
Set fgra = Workbooks("flux.xls").Sheets("Graph1")
gr = fgra.ChartObjects(1).Chart.SeriesCollection.Count
Select Case gr
Case 5
fgra.ChartObjects(1).Chart.SeriesCollection.NewSeries
fgra.ChartObjects(1).Chart.SeriesCollection.NewSeries
Case 6
fgra.ChartObjects(1).Chart.SeriesCollection.NewSeries
End Select
If fgra.ChartObjects(1).Chart.SeriesCollection.Count = 7 Then
Exit Sub
End If
Do While fgra.ChartObjects(1).Chart.SeriesCollection.Count > 7
fgra.ChartObjects(1).Chart.SeriesCollection(8).Delete
Loop
End Sub
Sinon cette sub fait ce que je veux : ajouter des séries pour avoir 7
séries et supprime des series si il y a plus de 7 séries dans le graphique.
Jaimerai bien utiliser lintellisense dans tous les cas de figures, si
cest possible Tout éclaircissement est le bienvenu.
Merci pour votre aide
bonjour,
non, je n'ai pas trouvé. Je constate la même chose que toi. Quand c'est
le cas, ce que je te conseille de faire , c'est de revenir au modèle
d'objet de ce qui t'interesse , à savoir ici le modéle objet d'Excel (qu
e tu trouves dans la section "Référence Visual Basic pour Microsoft
Excel" , sous-section "Objets Microsoft Excel"). L'exploration de ce
modèle te permet de savoir quels sont les objets contenus dans les
"poupées russes" et donc d'en déduire en regardant les classes d'obejts
quelles sont les méthodes et propriétés que tu peux leur appliquer.
Ca te fera gagenr du temps.
A+Bonjour à tous,
Question à propos du déclenchement de lintellisense.
Jen ai bavé quatre heures hier soir pour pondre cette proc dune
quinzaine de lignes.
Lenregistreur ma aidé mais comme je voulais supprimer toutes les
sélections, jai remanié.
Pour écrire la ligne
fgra.ChartObjects(1).Chart.SeriesCollection.NewSeries
lintellisense ne se déclenche plus dès le mot Chart.
Est-ce une mauvaise manip de ma part ? Est-ce que la syntaxe nest pas
conventionnelle, même si elle fonctionne bien ?
Lennui cest que si je crée un code qui refuse lintellisense, je me
dis que je nai pas le droit, que je fais fausse route. Alors que la
syntaxe est bonne dans cet exemple, je cherche autre chose.
Sur cet exemple existe-t-il une syntaxe qui fasse fonctionner
lintellisense jusquau bout ? L'aide F1 est un peu brouillonne
Sub situation()
Set fgra = Workbooks("flux.xls").Sheets("Graph1")
gr = fgra.ChartObjects(1).Chart.SeriesCollection.Count
Select Case gr
Case 5
fgra.ChartObjects(1).Chart.SeriesCollection.NewSeries
fgra.ChartObjects(1).Chart.SeriesCollection.NewSeries
Case 6
fgra.ChartObjects(1).Chart.SeriesCollection.NewSeries
End Select
If fgra.ChartObjects(1).Chart.SeriesCollection.Count = 7 Then
Exit Sub
End If
Do While fgra.ChartObjects(1).Chart.SeriesCollection.Count > 7
fgra.ChartObjects(1).Chart.SeriesCollection(8).Delete
Loop
End Sub
Sinon cette sub fait ce que je veux : ajouter des séries pour avoir 7
séries et supprime des series si il y a plus de 7 séries dans le
graphique.
Jaimerai bien utiliser lintellisense dans tous les cas de figures,
si cest possible Tout éclaircissement est le bienvenu.
Merci pour votre aide
bonjour,
non, je n'ai pas trouvé. Je constate la même chose que toi. Quand c'est
le cas, ce que je te conseille de faire , c'est de revenir au modèle
d'objet de ce qui t'interesse , à savoir ici le modéle objet d'Excel (qu
e tu trouves dans la section "Référence Visual Basic pour Microsoft
Excel" , sous-section "Objets Microsoft Excel"). L'exploration de ce
modèle te permet de savoir quels sont les objets contenus dans les
"poupées russes" et donc d'en déduire en regardant les classes d'obejts
quelles sont les méthodes et propriétés que tu peux leur appliquer.
Ca te fera gagenr du temps.
A+
Bonjour à tous,
Question à propos du déclenchement de lintellisense.
Jen ai bavé quatre heures hier soir pour pondre cette proc dune
quinzaine de lignes.
Lenregistreur ma aidé mais comme je voulais supprimer toutes les
sélections, jai remanié.
Pour écrire la ligne
fgra.ChartObjects(1).Chart.SeriesCollection.NewSeries
lintellisense ne se déclenche plus dès le mot Chart.
Est-ce une mauvaise manip de ma part ? Est-ce que la syntaxe nest pas
conventionnelle, même si elle fonctionne bien ?
Lennui cest que si je crée un code qui refuse lintellisense, je me
dis que je nai pas le droit, que je fais fausse route. Alors que la
syntaxe est bonne dans cet exemple, je cherche autre chose.
Sur cet exemple existe-t-il une syntaxe qui fasse fonctionner
lintellisense jusquau bout ? L'aide F1 est un peu brouillonne
Sub situation()
Set fgra = Workbooks("flux.xls").Sheets("Graph1")
gr = fgra.ChartObjects(1).Chart.SeriesCollection.Count
Select Case gr
Case 5
fgra.ChartObjects(1).Chart.SeriesCollection.NewSeries
fgra.ChartObjects(1).Chart.SeriesCollection.NewSeries
Case 6
fgra.ChartObjects(1).Chart.SeriesCollection.NewSeries
End Select
If fgra.ChartObjects(1).Chart.SeriesCollection.Count = 7 Then
Exit Sub
End If
Do While fgra.ChartObjects(1).Chart.SeriesCollection.Count > 7
fgra.ChartObjects(1).Chart.SeriesCollection(8).Delete
Loop
End Sub
Sinon cette sub fait ce que je veux : ajouter des séries pour avoir 7
séries et supprime des series si il y a plus de 7 séries dans le
graphique.
Jaimerai bien utiliser lintellisense dans tous les cas de figures,
si cest possible Tout éclaircissement est le bienvenu.
Merci pour votre aide
bonjour,
non, je n'ai pas trouvé. Je constate la même chose que toi. Quand c'est
le cas, ce que je te conseille de faire , c'est de revenir au modèle
d'objet de ce qui t'interesse , à savoir ici le modéle objet d'Excel (qu
e tu trouves dans la section "Référence Visual Basic pour Microsoft
Excel" , sous-section "Objets Microsoft Excel"). L'exploration de ce
modèle te permet de savoir quels sont les objets contenus dans les
"poupées russes" et donc d'en déduire en regardant les classes d'obejts
quelles sont les méthodes et propriétés que tu peux leur appliquer.
Ca te fera gagenr du temps.
A+Bonjour à tous,
Question à propos du déclenchement de lintellisense.
Jen ai bavé quatre heures hier soir pour pondre cette proc dune
quinzaine de lignes.
Lenregistreur ma aidé mais comme je voulais supprimer toutes les
sélections, jai remanié.
Pour écrire la ligne
fgra.ChartObjects(1).Chart.SeriesCollection.NewSeries
lintellisense ne se déclenche plus dès le mot Chart.
Est-ce une mauvaise manip de ma part ? Est-ce que la syntaxe nest pas
conventionnelle, même si elle fonctionne bien ?
Lennui cest que si je crée un code qui refuse lintellisense, je me
dis que je nai pas le droit, que je fais fausse route. Alors que la
syntaxe est bonne dans cet exemple, je cherche autre chose.
Sur cet exemple existe-t-il une syntaxe qui fasse fonctionner
lintellisense jusquau bout ? L'aide F1 est un peu brouillonne
Sub situation()
Set fgra = Workbooks("flux.xls").Sheets("Graph1")
gr = fgra.ChartObjects(1).Chart.SeriesCollection.Count
Select Case gr
Case 5
fgra.ChartObjects(1).Chart.SeriesCollection.NewSeries
fgra.ChartObjects(1).Chart.SeriesCollection.NewSeries
Case 6
fgra.ChartObjects(1).Chart.SeriesCollection.NewSeries
End Select
If fgra.ChartObjects(1).Chart.SeriesCollection.Count = 7 Then
Exit Sub
End If
Do While fgra.ChartObjects(1).Chart.SeriesCollection.Count > 7
fgra.ChartObjects(1).Chart.SeriesCollection(8).Delete
Loop
End Sub
Sinon cette sub fait ce que je veux : ajouter des séries pour avoir 7
séries et supprime des series si il y a plus de 7 séries dans le
graphique.
Jaimerai bien utiliser lintellisense dans tous les cas de figures,
si cest possible Tout éclaircissement est le bienvenu.
Merci pour votre aide
Merci aA pour ce tuyau.
Cette arboresecnece est bien sympa. Mais, je n'arrive pas au bout de ma
ligne. Je dois mal m'en servir.
Dans sous-section "Objets Microsoft Excel", je démarre sur ChartObjects
un des 4 liens en bas de la page, jusque là ça baigne...
Là, je vois chart. J'en peux plus, c'est vraiment bien parti...
Ne touchant plus terre, je cherche avidemment SeriesCollection... et je
cherche encore !
Plus rien.
Alors je clique sur chart et je vois le chart object.
Dans l'exemple de la méthode Charts, je vois seriescollections, mais
dans l'exemple. Il n'y a pas de seriescollections dans la liste déroulante.
Mais si je reparts sur seriescollections objet, je trouve NewSeries dans
la méthode et aussi count en propriétés.
Ce qui m'amène au bout de ma ligne. Ouf.
C'est certainement parce qu'il y a une fusion de plusieurs lignes. Il
faudra que je comprenne un jour.
Encore un peut d'entainement, et je vais finir par faire du code par ce
moyen. Pas ce soir, mais je sens que ça vient...
L'explorateur d'objet est encore un des trucs que je n'ai pas utilisé,
cela doit être une variante de l'aide.
Belle avancée, il est 19h je vais dormir, trop épuisé intellectuellement.
à+twinleybonjour,
non, je n'ai pas trouvé. Je constate la même chose que toi. Quand
c'est le cas, ce que je te conseille de faire , c'est de revenir au
modèle d'objet de ce qui t'interesse , à savoir ici le modéle objet
d'Excel (qu e tu trouves dans la section "Référence Visual Basic pour
Microsoft Excel" , sous-section "Objets Microsoft Excel").
L'exploration de ce modèle te permet de savoir quels sont les objets
contenus dans les "poupées russes" et donc d'en déduire en regardant
les classes d'obejts quelles sont les méthodes et propriétés que tu
peux leur appliquer.
Ca te fera gagenr du temps.
A+Bonjour à tous,
Question à propos du déclenchement de lintellisense.
Jen ai bavé quatre heures hier soir pour pondre cette proc dune
quinzaine de lignes.
Lenregistreur ma aidé mais comme je voulais supprimer toutes les
sélections, jai remanié.
Pour écrire la ligne
fgra.ChartObjects(1).Chart.SeriesCollection.NewSeries
lintellisense ne se déclenche plus dès le mot Chart.
Est-ce une mauvaise manip de ma part ? Est-ce que la syntaxe nest
pas conventionnelle, même si elle fonctionne bien ?
Lennui cest que si je crée un code qui refuse lintellisense, je me
dis que je nai pas le droit, que je fais fausse route. Alors que la
syntaxe est bonne dans cet exemple, je cherche autre chose.
Sur cet exemple existe-t-il une syntaxe qui fasse fonctionner
lintellisense jusquau bout ? L'aide F1 est un peu brouillonne
Sub situation()
Set fgra = Workbooks("flux.xls").Sheets("Graph1")
gr = fgra.ChartObjects(1).Chart.SeriesCollection.Count
Select Case gr
Case 5
fgra.ChartObjects(1).Chart.SeriesCollection.NewSeries
fgra.ChartObjects(1).Chart.SeriesCollection.NewSeries
Case 6
fgra.ChartObjects(1).Chart.SeriesCollection.NewSeries
End Select
If fgra.ChartObjects(1).Chart.SeriesCollection.Count = 7 Then
Exit Sub
End If
Do While fgra.ChartObjects(1).Chart.SeriesCollection.Count > 7
fgra.ChartObjects(1).Chart.SeriesCollection(8).Delete
Loop
End Sub
Sinon cette sub fait ce que je veux : ajouter des séries pour avoir 7
séries et supprime des series si il y a plus de 7 séries dans le
graphique.
Jaimerai bien utiliser lintellisense dans tous les cas de figures,
si cest possible Tout éclaircissement est le bienvenu.
Merci pour votre aide
Merci aA pour ce tuyau.
Cette arboresecnece est bien sympa. Mais, je n'arrive pas au bout de ma
ligne. Je dois mal m'en servir.
Dans sous-section "Objets Microsoft Excel", je démarre sur ChartObjects
un des 4 liens en bas de la page, jusque là ça baigne...
Là, je vois chart. J'en peux plus, c'est vraiment bien parti...
Ne touchant plus terre, je cherche avidemment SeriesCollection... et je
cherche encore !
Plus rien.
Alors je clique sur chart et je vois le chart object.
Dans l'exemple de la méthode Charts, je vois seriescollections, mais
dans l'exemple. Il n'y a pas de seriescollections dans la liste déroulante.
Mais si je reparts sur seriescollections objet, je trouve NewSeries dans
la méthode et aussi count en propriétés.
Ce qui m'amène au bout de ma ligne. Ouf.
C'est certainement parce qu'il y a une fusion de plusieurs lignes. Il
faudra que je comprenne un jour.
Encore un peut d'entainement, et je vais finir par faire du code par ce
moyen. Pas ce soir, mais je sens que ça vient...
L'explorateur d'objet est encore un des trucs que je n'ai pas utilisé,
cela doit être une variante de l'aide.
Belle avancée, il est 19h je vais dormir, trop épuisé intellectuellement.
à+twinley
bonjour,
non, je n'ai pas trouvé. Je constate la même chose que toi. Quand
c'est le cas, ce que je te conseille de faire , c'est de revenir au
modèle d'objet de ce qui t'interesse , à savoir ici le modéle objet
d'Excel (qu e tu trouves dans la section "Référence Visual Basic pour
Microsoft Excel" , sous-section "Objets Microsoft Excel").
L'exploration de ce modèle te permet de savoir quels sont les objets
contenus dans les "poupées russes" et donc d'en déduire en regardant
les classes d'obejts quelles sont les méthodes et propriétés que tu
peux leur appliquer.
Ca te fera gagenr du temps.
A+
Bonjour à tous,
Question à propos du déclenchement de lintellisense.
Jen ai bavé quatre heures hier soir pour pondre cette proc dune
quinzaine de lignes.
Lenregistreur ma aidé mais comme je voulais supprimer toutes les
sélections, jai remanié.
Pour écrire la ligne
fgra.ChartObjects(1).Chart.SeriesCollection.NewSeries
lintellisense ne se déclenche plus dès le mot Chart.
Est-ce une mauvaise manip de ma part ? Est-ce que la syntaxe nest
pas conventionnelle, même si elle fonctionne bien ?
Lennui cest que si je crée un code qui refuse lintellisense, je me
dis que je nai pas le droit, que je fais fausse route. Alors que la
syntaxe est bonne dans cet exemple, je cherche autre chose.
Sur cet exemple existe-t-il une syntaxe qui fasse fonctionner
lintellisense jusquau bout ? L'aide F1 est un peu brouillonne
Sub situation()
Set fgra = Workbooks("flux.xls").Sheets("Graph1")
gr = fgra.ChartObjects(1).Chart.SeriesCollection.Count
Select Case gr
Case 5
fgra.ChartObjects(1).Chart.SeriesCollection.NewSeries
fgra.ChartObjects(1).Chart.SeriesCollection.NewSeries
Case 6
fgra.ChartObjects(1).Chart.SeriesCollection.NewSeries
End Select
If fgra.ChartObjects(1).Chart.SeriesCollection.Count = 7 Then
Exit Sub
End If
Do While fgra.ChartObjects(1).Chart.SeriesCollection.Count > 7
fgra.ChartObjects(1).Chart.SeriesCollection(8).Delete
Loop
End Sub
Sinon cette sub fait ce que je veux : ajouter des séries pour avoir 7
séries et supprime des series si il y a plus de 7 séries dans le
graphique.
Jaimerai bien utiliser lintellisense dans tous les cas de figures,
si cest possible Tout éclaircissement est le bienvenu.
Merci pour votre aide
Merci aA pour ce tuyau.
Cette arboresecnece est bien sympa. Mais, je n'arrive pas au bout de ma
ligne. Je dois mal m'en servir.
Dans sous-section "Objets Microsoft Excel", je démarre sur ChartObjects
un des 4 liens en bas de la page, jusque là ça baigne...
Là, je vois chart. J'en peux plus, c'est vraiment bien parti...
Ne touchant plus terre, je cherche avidemment SeriesCollection... et je
cherche encore !
Plus rien.
Alors je clique sur chart et je vois le chart object.
Dans l'exemple de la méthode Charts, je vois seriescollections, mais
dans l'exemple. Il n'y a pas de seriescollections dans la liste déroulante.
Mais si je reparts sur seriescollections objet, je trouve NewSeries dans
la méthode et aussi count en propriétés.
Ce qui m'amène au bout de ma ligne. Ouf.
C'est certainement parce qu'il y a une fusion de plusieurs lignes. Il
faudra que je comprenne un jour.
Encore un peut d'entainement, et je vais finir par faire du code par ce
moyen. Pas ce soir, mais je sens que ça vient...
L'explorateur d'objet est encore un des trucs que je n'ai pas utilisé,
cela doit être une variante de l'aide.
Belle avancée, il est 19h je vais dormir, trop épuisé intellectuellement.
à+twinleybonjour,
non, je n'ai pas trouvé. Je constate la même chose que toi. Quand
c'est le cas, ce que je te conseille de faire , c'est de revenir au
modèle d'objet de ce qui t'interesse , à savoir ici le modéle objet
d'Excel (qu e tu trouves dans la section "Référence Visual Basic pour
Microsoft Excel" , sous-section "Objets Microsoft Excel").
L'exploration de ce modèle te permet de savoir quels sont les objets
contenus dans les "poupées russes" et donc d'en déduire en regardant
les classes d'obejts quelles sont les méthodes et propriétés que tu
peux leur appliquer.
Ca te fera gagenr du temps.
A+Bonjour à tous,
Question à propos du déclenchement de lintellisense.
Jen ai bavé quatre heures hier soir pour pondre cette proc dune
quinzaine de lignes.
Lenregistreur ma aidé mais comme je voulais supprimer toutes les
sélections, jai remanié.
Pour écrire la ligne
fgra.ChartObjects(1).Chart.SeriesCollection.NewSeries
lintellisense ne se déclenche plus dès le mot Chart.
Est-ce une mauvaise manip de ma part ? Est-ce que la syntaxe nest
pas conventionnelle, même si elle fonctionne bien ?
Lennui cest que si je crée un code qui refuse lintellisense, je me
dis que je nai pas le droit, que je fais fausse route. Alors que la
syntaxe est bonne dans cet exemple, je cherche autre chose.
Sur cet exemple existe-t-il une syntaxe qui fasse fonctionner
lintellisense jusquau bout ? L'aide F1 est un peu brouillonne
Sub situation()
Set fgra = Workbooks("flux.xls").Sheets("Graph1")
gr = fgra.ChartObjects(1).Chart.SeriesCollection.Count
Select Case gr
Case 5
fgra.ChartObjects(1).Chart.SeriesCollection.NewSeries
fgra.ChartObjects(1).Chart.SeriesCollection.NewSeries
Case 6
fgra.ChartObjects(1).Chart.SeriesCollection.NewSeries
End Select
If fgra.ChartObjects(1).Chart.SeriesCollection.Count = 7 Then
Exit Sub
End If
Do While fgra.ChartObjects(1).Chart.SeriesCollection.Count > 7
fgra.ChartObjects(1).Chart.SeriesCollection(8).Delete
Loop
End Sub
Sinon cette sub fait ce que je veux : ajouter des séries pour avoir 7
séries et supprime des series si il y a plus de 7 séries dans le
graphique.
Jaimerai bien utiliser lintellisense dans tous les cas de figures,
si cest possible Tout éclaircissement est le bienvenu.
Merci pour votre aide
re,
quand tu es sur la collection Charts, il y a une poupée russe qui
s'appelle Objets Multiples. Tu cliques dessus et apparait un combobox
dasn lequel existe SeriesCollection.
Je sais, c'est pas facile. Mais je te sens persévérant.
A+Merci aA pour ce tuyau.
Cette arboresecnece est bien sympa. Mais, je n'arrive pas au bout de
ma ligne. Je dois mal m'en servir.
Dans sous-section "Objets Microsoft Excel", je démarre sur ChartObjects
un des 4 liens en bas de la page, jusque là ça baigne...
Là, je vois chart. J'en peux plus, c'est vraiment bien parti...
Ne touchant plus terre, je cherche avidemment SeriesCollection... et
je cherche encore !
Plus rien.
Alors je clique sur chart et je vois le chart object.
Dans l'exemple de la méthode Charts, je vois seriescollections, mais
dans l'exemple. Il n'y a pas de seriescollections dans la liste
déroulante.
Mais si je reparts sur seriescollections objet, je trouve NewSeries
dans la méthode et aussi count en propriétés.
Ce qui m'amène au bout de ma ligne. Ouf.
C'est certainement parce qu'il y a une fusion de plusieurs lignes. Il
faudra que je comprenne un jour.
Encore un peut d'entainement, et je vais finir par faire du code par
ce moyen. Pas ce soir, mais je sens que ça vient...
L'explorateur d'objet est encore un des trucs que je n'ai pas utilisé,
cela doit être une variante de l'aide.
Belle avancée, il est 19h je vais dormir, trop épuisé intellectuellement.
à+twinleybonjour,
non, je n'ai pas trouvé. Je constate la même chose que toi. Quand
c'est le cas, ce que je te conseille de faire , c'est de revenir au
modèle d'objet de ce qui t'interesse , à savoir ici le modéle objet
d'Excel (qu e tu trouves dans la section "Référence Visual Basic pour
Microsoft Excel" , sous-section "Objets Microsoft Excel").
L'exploration de ce modèle te permet de savoir quels sont les objets
contenus dans les "poupées russes" et donc d'en déduire en regardant
les classes d'obejts quelles sont les méthodes et propriétés que tu
peux leur appliquer.
Ca te fera gagenr du temps.
A+Bonjour à tous,
Question à propos du déclenchement de lintellisense.
Jen ai bavé quatre heures hier soir pour pondre cette proc dune
quinzaine de lignes.
Lenregistreur ma aidé mais comme je voulais supprimer toutes les
sélections, jai remanié.
Pour écrire la ligne
fgra.ChartObjects(1).Chart.SeriesCollection.NewSeries
lintellisense ne se déclenche plus dès le mot Chart.
Est-ce une mauvaise manip de ma part ? Est-ce que la syntaxe nest
pas conventionnelle, même si elle fonctionne bien ?
Lennui cest que si je crée un code qui refuse lintellisense, je
me dis que je nai pas le droit, que je fais fausse route. Alors que
la syntaxe est bonne dans cet exemple, je cherche autre chose.
Sur cet exemple existe-t-il une syntaxe qui fasse fonctionner
lintellisense jusquau bout ? L'aide F1 est un peu brouillonne
Sub situation()
Set fgra = Workbooks("flux.xls").Sheets("Graph1")
gr = fgra.ChartObjects(1).Chart.SeriesCollection.Count
Select Case gr
Case 5
fgra.ChartObjects(1).Chart.SeriesCollection.NewSeries
fgra.ChartObjects(1).Chart.SeriesCollection.NewSeries
Case 6
fgra.ChartObjects(1).Chart.SeriesCollection.NewSeries
End Select
If fgra.ChartObjects(1).Chart.SeriesCollection.Count = 7 Then
Exit Sub
End If
Do While fgra.ChartObjects(1).Chart.SeriesCollection.Count > 7
fgra.ChartObjects(1).Chart.SeriesCollection(8).Delete
Loop
End Sub
Sinon cette sub fait ce que je veux : ajouter des séries pour avoir
7 séries et supprime des series si il y a plus de 7 séries dans le
graphique.
Jaimerai bien utiliser lintellisense dans tous les cas de figures,
si cest possible Tout éclaircissement est le bienvenu.
Merci pour votre aide
re,
quand tu es sur la collection Charts, il y a une poupée russe qui
s'appelle Objets Multiples. Tu cliques dessus et apparait un combobox
dasn lequel existe SeriesCollection.
Je sais, c'est pas facile. Mais je te sens persévérant.
A+
Merci aA pour ce tuyau.
Cette arboresecnece est bien sympa. Mais, je n'arrive pas au bout de
ma ligne. Je dois mal m'en servir.
Dans sous-section "Objets Microsoft Excel", je démarre sur ChartObjects
un des 4 liens en bas de la page, jusque là ça baigne...
Là, je vois chart. J'en peux plus, c'est vraiment bien parti...
Ne touchant plus terre, je cherche avidemment SeriesCollection... et
je cherche encore !
Plus rien.
Alors je clique sur chart et je vois le chart object.
Dans l'exemple de la méthode Charts, je vois seriescollections, mais
dans l'exemple. Il n'y a pas de seriescollections dans la liste
déroulante.
Mais si je reparts sur seriescollections objet, je trouve NewSeries
dans la méthode et aussi count en propriétés.
Ce qui m'amène au bout de ma ligne. Ouf.
C'est certainement parce qu'il y a une fusion de plusieurs lignes. Il
faudra que je comprenne un jour.
Encore un peut d'entainement, et je vais finir par faire du code par
ce moyen. Pas ce soir, mais je sens que ça vient...
L'explorateur d'objet est encore un des trucs que je n'ai pas utilisé,
cela doit être une variante de l'aide.
Belle avancée, il est 19h je vais dormir, trop épuisé intellectuellement.
à+twinley
bonjour,
non, je n'ai pas trouvé. Je constate la même chose que toi. Quand
c'est le cas, ce que je te conseille de faire , c'est de revenir au
modèle d'objet de ce qui t'interesse , à savoir ici le modéle objet
d'Excel (qu e tu trouves dans la section "Référence Visual Basic pour
Microsoft Excel" , sous-section "Objets Microsoft Excel").
L'exploration de ce modèle te permet de savoir quels sont les objets
contenus dans les "poupées russes" et donc d'en déduire en regardant
les classes d'obejts quelles sont les méthodes et propriétés que tu
peux leur appliquer.
Ca te fera gagenr du temps.
A+
Bonjour à tous,
Question à propos du déclenchement de lintellisense.
Jen ai bavé quatre heures hier soir pour pondre cette proc dune
quinzaine de lignes.
Lenregistreur ma aidé mais comme je voulais supprimer toutes les
sélections, jai remanié.
Pour écrire la ligne
fgra.ChartObjects(1).Chart.SeriesCollection.NewSeries
lintellisense ne se déclenche plus dès le mot Chart.
Est-ce une mauvaise manip de ma part ? Est-ce que la syntaxe nest
pas conventionnelle, même si elle fonctionne bien ?
Lennui cest que si je crée un code qui refuse lintellisense, je
me dis que je nai pas le droit, que je fais fausse route. Alors que
la syntaxe est bonne dans cet exemple, je cherche autre chose.
Sur cet exemple existe-t-il une syntaxe qui fasse fonctionner
lintellisense jusquau bout ? L'aide F1 est un peu brouillonne
Sub situation()
Set fgra = Workbooks("flux.xls").Sheets("Graph1")
gr = fgra.ChartObjects(1).Chart.SeriesCollection.Count
Select Case gr
Case 5
fgra.ChartObjects(1).Chart.SeriesCollection.NewSeries
fgra.ChartObjects(1).Chart.SeriesCollection.NewSeries
Case 6
fgra.ChartObjects(1).Chart.SeriesCollection.NewSeries
End Select
If fgra.ChartObjects(1).Chart.SeriesCollection.Count = 7 Then
Exit Sub
End If
Do While fgra.ChartObjects(1).Chart.SeriesCollection.Count > 7
fgra.ChartObjects(1).Chart.SeriesCollection(8).Delete
Loop
End Sub
Sinon cette sub fait ce que je veux : ajouter des séries pour avoir
7 séries et supprime des series si il y a plus de 7 séries dans le
graphique.
Jaimerai bien utiliser lintellisense dans tous les cas de figures,
si cest possible Tout éclaircissement est le bienvenu.
Merci pour votre aide
re,
quand tu es sur la collection Charts, il y a une poupée russe qui
s'appelle Objets Multiples. Tu cliques dessus et apparait un combobox
dasn lequel existe SeriesCollection.
Je sais, c'est pas facile. Mais je te sens persévérant.
A+Merci aA pour ce tuyau.
Cette arboresecnece est bien sympa. Mais, je n'arrive pas au bout de
ma ligne. Je dois mal m'en servir.
Dans sous-section "Objets Microsoft Excel", je démarre sur ChartObjects
un des 4 liens en bas de la page, jusque là ça baigne...
Là, je vois chart. J'en peux plus, c'est vraiment bien parti...
Ne touchant plus terre, je cherche avidemment SeriesCollection... et
je cherche encore !
Plus rien.
Alors je clique sur chart et je vois le chart object.
Dans l'exemple de la méthode Charts, je vois seriescollections, mais
dans l'exemple. Il n'y a pas de seriescollections dans la liste
déroulante.
Mais si je reparts sur seriescollections objet, je trouve NewSeries
dans la méthode et aussi count en propriétés.
Ce qui m'amène au bout de ma ligne. Ouf.
C'est certainement parce qu'il y a une fusion de plusieurs lignes. Il
faudra que je comprenne un jour.
Encore un peut d'entainement, et je vais finir par faire du code par
ce moyen. Pas ce soir, mais je sens que ça vient...
L'explorateur d'objet est encore un des trucs que je n'ai pas utilisé,
cela doit être une variante de l'aide.
Belle avancée, il est 19h je vais dormir, trop épuisé intellectuellement.
à+twinleybonjour,
non, je n'ai pas trouvé. Je constate la même chose que toi. Quand
c'est le cas, ce que je te conseille de faire , c'est de revenir au
modèle d'objet de ce qui t'interesse , à savoir ici le modéle objet
d'Excel (qu e tu trouves dans la section "Référence Visual Basic pour
Microsoft Excel" , sous-section "Objets Microsoft Excel").
L'exploration de ce modèle te permet de savoir quels sont les objets
contenus dans les "poupées russes" et donc d'en déduire en regardant
les classes d'obejts quelles sont les méthodes et propriétés que tu
peux leur appliquer.
Ca te fera gagenr du temps.
A+Bonjour à tous,
Question à propos du déclenchement de lintellisense.
Jen ai bavé quatre heures hier soir pour pondre cette proc dune
quinzaine de lignes.
Lenregistreur ma aidé mais comme je voulais supprimer toutes les
sélections, jai remanié.
Pour écrire la ligne
fgra.ChartObjects(1).Chart.SeriesCollection.NewSeries
lintellisense ne se déclenche plus dès le mot Chart.
Est-ce une mauvaise manip de ma part ? Est-ce que la syntaxe nest
pas conventionnelle, même si elle fonctionne bien ?
Lennui cest que si je crée un code qui refuse lintellisense, je
me dis que je nai pas le droit, que je fais fausse route. Alors que
la syntaxe est bonne dans cet exemple, je cherche autre chose.
Sur cet exemple existe-t-il une syntaxe qui fasse fonctionner
lintellisense jusquau bout ? L'aide F1 est un peu brouillonne
Sub situation()
Set fgra = Workbooks("flux.xls").Sheets("Graph1")
gr = fgra.ChartObjects(1).Chart.SeriesCollection.Count
Select Case gr
Case 5
fgra.ChartObjects(1).Chart.SeriesCollection.NewSeries
fgra.ChartObjects(1).Chart.SeriesCollection.NewSeries
Case 6
fgra.ChartObjects(1).Chart.SeriesCollection.NewSeries
End Select
If fgra.ChartObjects(1).Chart.SeriesCollection.Count = 7 Then
Exit Sub
End If
Do While fgra.ChartObjects(1).Chart.SeriesCollection.Count > 7
fgra.ChartObjects(1).Chart.SeriesCollection(8).Delete
Loop
End Sub
Sinon cette sub fait ce que je veux : ajouter des séries pour avoir
7 séries et supprime des series si il y a plus de 7 séries dans le
graphique.
Jaimerai bien utiliser lintellisense dans tous les cas de figures,
si cest possible Tout éclaircissement est le bienvenu.
Merci pour votre aide