Discussion :

[Megaxel]

Allez, et si tu affiches les chaines de caractères que tu génères, alors, ça te donne bien ce que tu voudrais?
D'ailleurs, il me semble que le caractère "&" et mieux que le "+" pour les concaténations.
Et le coup des "plages" avec les .Address, ça me semble bizarre, mais bon, peut-être...
Mais le plus important, c'est bien de vérifier que tu obtiens bien les bonnes strings avant de les affecter aux propriétés de ton graphe.

[ouskel'n'or]

Tu ne dois pas affecter un range à ta variable mais seulement les adresses comme indiqué ci-après.
Pour le range "à trous", tu crées une variable dans laquelle tu places les adresses des cellules ou les plages séparées par des virgules mais n'oublie pas les guillemets

Code :

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

MaVar = """$K$26""" + "," + """$K$30:$K$31""" + "," + """$K33$:$K$36"""

etc.
Et regarde ce que donne MaVar afin de vérifier la présence des virgules là où elles doivent être.
Après seulement, à la place de...

Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets("Filieres").Range( _
"K26,K30:K31,K33,K36,K38"), PlotBy:=xlColumns

... tu peux faire :

Code :

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

1
2
3
     Charts.Add 
     ActiveChart.ChartType = xlColumnClustered 
     ActiveChart.SetSourceData Source:=Sheets("Filieres").Range(MaVar),PlotBy:=xlColumns

J'ai mis les adresses en adresses absolues mais ce n'est pas obligé.

A+

[brethomeau]

Merci pour votre aide, j'ai réalisé ce que je souhaitais.

[Theocourant]

Merci pour votre aide, j'ai réalisé ce que je souhaitais.

Salut,

Heureux de savoir que ton problème est résolu ...

Alors un petit clic sur le tag tout en bas à gauche serait de circonstance

Merci d'avance

Bonne continuation

Théo

[ouskel'n'or]

Faut toujours dire quand c'est résolu, t'es au courant ?

[Megaxel]

Et alors, comment tu t'en es sorti? Où était le problème, finalement?

[Megaxel]

Alors, tu ne veux pas nous dire comment tu as résolu ton problème, ni ajouter le tag "Résolu"?

[brethomeau]

oui voici code mais comment mets-on résolu

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
 
Public Sub GrapheAdherent()
Dim NumeroLigne As Integer, MonGraphe As Chart, MaSerie As Series, compteur As Long, j As Long
Dim PlageRecherche As Range, PlageAdherent As Range, PlageTitre As Range
'Sélection de la plage contenant les numéros d'adhérents
 
'Stockage du contenu de la variable date_res dans la cellule active
Set PlageRecherche = Worksheets("consolidation").Range("A5:A2000")
'Recherche de l'adhérent suivant le numéro adhérent
'saisi par l'utilisateur dans cellue B1
PlageRecherche.Select
'On Error GoTo GestionErreur
Selection.Find(what:=Range("b1").Value, After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False).Activate
 
NumeroLigne = ActiveCell.Row
ActiveCell.Select
    ActiveWindow.Visible = False
    Windows("Copie de +10 Centre.xls").Activate
'Plage des titres (année)
Set PlageTitre = Range(Cells(3, 5), Cells(3, 16))
'plage de l'adherent
Set PlageAdherent = Range(Cells(NumeroLigne, 5), Cells(NumeroLigne, 16))
'graphique
Set MonGraphe = ThisWorkbook.Charts.Add
ActiveChart.ApplyCustomType ChartType:=xlBuiltIn, TypeName:= _
        "Courbes - Histogramme"
'nommer le graphique
ActiveChart.Name = Worksheets("consolidation").Range("B1").Value
'donner un titre au graphique
With ActiveChart
        .HasTitle = True
        .ChartTitle.Characters.Text = "toto"
    End With
ActiveChart.SeriesCollection(1).Delete
'Alimenter les séries
For j = 0 To 9 Step 4
    For compteur = 1 + j To 4 + j
        Set MaSerie = MonGraphe.SeriesCollection.NewSeries
        MaSerie.Values = "=" & PlageAdherent.Columns(compteur).Address(True, True, xlR1C1, True)
        MaSerie.XValues = "=" & PlageTitre.Columns(j).Address(True, True, xlR1C1, True)
    Next compteur
    MaSerie.Name = "=consolidation!R4C5"
Next j
Exit Sub

[Megaxel]

Tu dois avoir un bouton "Résolu" en bas à gauche, quand tu ouvres ton post.
[Edit] Et donc, il fallait mettre les bons paramètres à .Address(...) pour que ça le mette au bon format. Impec!