Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Modifications à macro

Modifications à macro

3 réponses
Avatar
garnote
Bonjour tout le monde,

Ici même une macro pour ajouter une série à un graphique.
Elle contient, en commentaires, trois petites questions.

Sub Ajoute()
Application.ScreenUpdating = False
n = Worksheets("Graphiques").ChartObjects("GrapheGarno"). _
Chart.SeriesCollection.Count
If n = 7 Then Exit Sub
Li = UserForm1.ListBox1.ListIndex + 1
'Q1 : J'ai tenté de définir «nouvelle» sans activer "Banque»
'mais'sans succès. Est-ce possible ?
Worksheets("Banque").Activate
Set nouvelle = Activesheet. _
Range(Cells(5 * Li - 2, 11), Cells(5 * Li + 2, 12))
'Test pour savoir si «nouvelle» est vide.
'Q2 : Puis-je procéder autrement pour le savoir ?
For Each c In nouvelle
If c.Value = "" Then k = k + 1
Next
If k = 10 Then
Worksheets("Graphiques").Activate
Exit Sub
Else
nouvelle.Copy
'Q3 : Suis-je obligé d'activer «Graphiques» avant
'd'ajouter la nouvelle série ?
Worksheets("Graphiques").Activate
With ActiveSheet.ChartObjects("GrapheGarno").Chart
.SeriesCollection.Paste Rowcol:=xlColumns, _
CategoryLabels:=True, NewSeries:=True
With .SeriesCollection(7)
.Border.LineStyle = xlNone
.MarkerBackgroundColorIndex = 1
.MarkerForegroundColorIndex = 1
.MarkerStyle = xlCircle
.MarkerSize = 5
End With
End With
End If
End Sub

Merci pour vos lumières

Serge
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
j
"garnote" a écrit dans le message de news:
tsjEb.10182$
Bonjour tout le monde,

Ici même une macro pour ajouter une série à un graphique.
Elle contient, en commentaires, trois petites questions.

Sub Ajoute()
Application.ScreenUpdating = False
n = Worksheets("Graphiques").ChartObjects("GrapheGarno"). _
Chart.SeriesCollection.Count
If n = 7 Then Exit Sub
Li = UserForm1.ListBox1.ListIndex + 1
'Q1 : J'ai tenté de définir «nouvelle» sans activer "Banque»
'mais'sans succès. Est-ce possible ?
Worksheets("Banque").Activate
Set nouvelle = Activesheet. _
Range(Cells(5 * Li - 2, 11), Cells(5 * Li + 2, 12))



je ne vois pas ce qui pourrait empêcher de dire
Set nouvelle = sheets("credit lyonnais").Range(sheets("credit
lyonnais").Cells(5 * Li - 2, 11), sheets("credit lyonnais").Cells(5 * Li +
2, 12))

ou bien
Set nouvelle = Range(sheets("credit lyonnais").Cells(5 * Li - 2, 11),
sheets("credit lyonnais").Cells(5 * Li + 2, 12))


http://jacxl.free.fr/

Avatar
garnote
Bonkour,

Merci, je vais tester.

Set nouvelle = Range(sheets("credit lyonnais").Cells(5 * Li - 2, 11),
sheets("credit lyonnais").Cells(5 * Li + 2, 12))


J'avais essayé en vain :
Set nouvelle = Worksheets("credit lyonnais").Range(Cells(5 * Li - 2, 11),
Cells(5 * Li + 2, 12))

Serge


"" a écrit dans le message de news:
#

"garnote" a écrit dans le message de news:
tsjEb.10182$
Bonjour tout le monde,

Ici même une macro pour ajouter une série à un graphique.
Elle contient, en commentaires, trois petites questions.

Sub Ajoute()
Application.ScreenUpdating = False
n = Worksheets("Graphiques").ChartObjects("GrapheGarno"). _
Chart.SeriesCollection.Count
If n = 7 Then Exit Sub
Li = UserForm1.ListBox1.ListIndex + 1
'Q1 : J'ai tenté de définir «nouvelle» sans activer "Banque»
'mais'sans succès. Est-ce possible ?
Worksheets("Banque").Activate
Set nouvelle = Activesheet. _
Range(Cells(5 * Li - 2, 11), Cells(5 * Li + 2, 12))



je ne vois pas ce qui pourrait empêcher de dire
Set nouvelle = sheets("credit lyonnais").Range(sheets("credit
lyonnais").Cells(5 * Li - 2, 11), sheets("credit lyonnais").Cells(5 * Li +
2, 12))

ou bien
Set nouvelle = Range(sheets("credit lyonnais").Cells(5 * Li - 2, 11),
sheets("credit lyonnais").Cells(5 * Li + 2, 12))


http://jacxl.free.fr/






Avatar
garnote
Impec !

"garnote" a écrit dans le message de news:
kRnEb.11081$
Bonkour,

Merci, je vais tester.

Set nouvelle = Range(sheets("credit lyonnais").Cells(5 * Li - 2, 11),
sheets("credit lyonnais").Cells(5 * Li + 2, 12))


J'avais essayé en vain :
Set nouvelle = Worksheets("credit lyonnais").Range(Cells(5 * Li - 2, 11),
Cells(5 * Li + 2, 12))

Serge


"" a écrit dans le message de news:
#

"garnote" a écrit dans le message de news:
tsjEb.10182$
Bonjour tout le monde,

Ici même une macro pour ajouter une série à un graphique.
Elle contient, en commentaires, trois petites questions.

Sub Ajoute()
Application.ScreenUpdating = False
n = Worksheets("Graphiques").ChartObjects("GrapheGarno"). _
Chart.SeriesCollection.Count
If n = 7 Then Exit Sub
Li = UserForm1.ListBox1.ListIndex + 1
'Q1 : J'ai tenté de définir «nouvelle» sans activer "Banque»
'mais'sans succès. Est-ce possible ?
Worksheets("Banque").Activate
Set nouvelle = Activesheet. _
Range(Cells(5 * Li - 2, 11), Cells(5 * Li + 2, 12))



je ne vois pas ce qui pourrait empêcher de dire
Set nouvelle = sheets("credit lyonnais").Range(sheets("credit
lyonnais").Cells(5 * Li - 2, 11), sheets("credit lyonnais").Cells(5 * Li
+


2, 12))

ou bien
Set nouvelle = Range(sheets("credit lyonnais").Cells(5 * Li - 2, 11),
sheets("credit lyonnais").Cells(5 * Li + 2, 12))


http://jacxl.free.fr/