Discussion :

[Kiklefou]

Salut tout le monde !

Je cherche à attribuer à un objet range "objRange" le range d'une plage nommée.
objRange sera après utilisé pour ajouter des séries dans un graphe.

J'ai fait cela ainsi:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Dim listcount As Integer, iList As Integer, eName As String
 
listcount = ListBox3.listcount - 1
 
For iList = 0 To listcount
eName = ListBox3.List(iList)
Set objRange = Worksheets("TabMoyenne").Names(eName).RefersToRange.Value 
'J'AI ICI UNE ERREUR "1004 Erreur définie par l'application ou par l'objet"
 
' objChart.SeriesCollection.Add objRange
Next

Quelqu'un peut m'expliquer quelle est alors la façon correcte d'attribuer le range d'une plage nommée à un objet range?

MERCI d'avance !!

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set objRange = Worksheets("TabMoyenne").range(ename)

[Kiklefou]

Merci pour cette réponde rapide mais avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set objRange = Worksheets("TabMoyenne").Range(eName)

j'ai la même erreur

[mercatog]

Tu as bien l'existence des plages nommées par les valeurs contenues dans ename (dans la feuille TabMoyenne), c'est bien ça?

[mapeh]

Bonjour,

ListCount est une propriété d'un ListBox, et ne doit en aucun cas être utilisé en variable

utilise plutôt

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Dim NbListAs Integer, iList As Integer, eName As String
 
NbList= ListBox3.ListCount - 1
 
For iList = 0 To NbList
eName = ListBox3.List(iList)
Set objRange = Worksheets("TabMoyenne").Names(eName)
'J'AI ICI UNE ERREUR "1004 Erreur définie par l'application ou par l'objet"
 
' objChart.SeriesCollection.Add objRange
Next

si tant est que le nom existe dans "Insertion/Nom/Définir", bien sûr...

Pour être sûr d'avoir les bons noms, tu peux charger ta ListBox ainsi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub UserForm_Initialize()
Dim Nms As Name
For Each Nms In Names
    If Nms.RefersToRange.Worksheet.Name = "TabMoyenne" Then
        Me.ListBox1.AddItem Nms.Name
    End If
Next Nms
End Sub

[Kiklefou]

Merci pour tous ces conseils, mais ça ne marche toujours pas.

Les noms existent: voir pièce jointe, prise d'écran de Name Manager.
De plus, j'ai 2 MsgBox qui me confirment cela.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Private Sub Graph_list_Click()
Dim listbcount As Integer, iList As Integer, eName As String
listbcount = ListBox3.listcount - 1
 
For iList = 0 To listbcount
 
eName = ListBox3.List(iList)
MsgBox (eName)
MsgBox (Worksheets("TabMoyenne").Names(eName).Value)
 
'Set objRange = Worksheets("TabMoyenne").Names(eName).RefersToRange.Value
Set objRange = Worksheets("TabMoyenne").Range(eName)
 
' objChart.SeriesCollection.Add objRange
 
Next

Je vous donne mon fichier excel.
Pour arriver au problème, il faut d'abord cliquer sur
1) Clear all names
2) Create names
3) selectionner des noms dans liste de gauche puis cliquer sur "Add to right list" (quelques fois)
4) Transfer To Graph List
5) Graph this List

MERCI d'avance !!!!!

[mercatog]

Malheureusement, tu dois redéfinir tes noms! il font référence à Feuil1 qui a été renommée en TabMoyenne

[mapeh]

Re-,

regarde ta création de noms....

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("TabMoyenne").Names.Add name:=myName, RefersToR1C1:="=Feuil1!R2C" & aNames & ":R" & countrow & "C" & aNames

Es-tu sûr que ce soit Feuil1?

Ou "TabMoyenne" plutôt?

Bonne journée

[Kiklefou]

Sooo stupid!

Merci les gars !