VBA EXCEL - Sélection d'une ligne suivant saisie

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.

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:

---

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...

Citation:

---

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

---

... tu peux faire :

Code:

---

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+

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

Citation:

---

Envoyé par brethomeau

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 :resolu: tout en bas à gauche serait de circonstance

Merci d'avance

Bonne continuation

Théo

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

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

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

oui voici code mais comment mets-on résolu

Code:

---

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

---

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!