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

Bonjour,
J'aimerai rechercher une ligne contenant la valeur de la cellule B1 dans le reste de la feuille et selection cette ligne (pas entière juste les non vide).
Ensuite réaliser le graphique de la sélection sur une autre page.
Pouvez-vous me donner une idée de code.

Merci

Oui: regarde l'aide de la fonction "Find".

Voici mon code, Ce qui m'ennuie est ce qui est en gras
comment lui faire passer les cellules sélectionnées avant et non pas des figées E33:P33

Merci pour aide

Citation:

---

Sub SelectionAdheren()
Dim r1 As Range
Range("A6:A2000").Select
Selection.Find(what:=Range("B1").Value, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate
ActiveCell.Select
'Windows("Copie de +10 Centre.xls").SmallScroll Down:=8
ActiveWindow.Visible = False
Windows("Copie de +10 Centre.xls").Activate
' Range("E33:P33").Select
Range(ActiveCell(1, 5), ActiveCell(1, 16)).Select
r1 = Range(ActiveCell(1, 5), ActiveCell(1, 16))
Charts.Add
ActiveChart.ApplyCustomType ChartType:=xlBuiltIn, TypeName:= _
"Courbes - Histogramme"
' ActiveChart.SetSourceData Source:=Sheets("consolidation").Range("E33:P33"), _
PlotBy:=xlRows
ActiveChart.SetSourceData Source:=Sheets("consolidation").activecellSelection, _
PlotBy:=xlRows
' ActiveChart.SeriesCollection(1).Delete
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).Values = _
"=(consolidation!RC5,consolidation!RC9,consolidation!RC13)"
ActiveChart.SeriesCollection(1).Name = "=consolidation!R4C5"
ActiveChart.SeriesCollection(2).Values = _
"=(consolidation!RC7,consolidation!RC11,consolidation!RC15)"
ActiveChart.SeriesCollection(2).Name = "=consolidation!R4C7"
ActiveChart.SeriesCollection(3).Values = _
"=(consolidation!RC6,consolidation!RC10,consolidation!RC14)"
ActiveChart.SeriesCollection(3).Name = "=consolidation!R4C6"
ActiveChart.SeriesCollection(4).Values = _
"=(consolidation!RC8,consolidation!RC12,consolidation!RC16)"
ActiveChart.SeriesCollection(4).Name = "=consolidation!R4C8"
ActiveChart.SeriesCollection(1).XValues = _
"=(consolidation!R3C5,consolidation!R3C9,consolidation!R3C13)"
ActiveChart.SeriesCollection(2).XValues = _
"=(consolidation!R3C5,consolidation!R3C9,consolidation!R3C13)"
ActiveChart.Location Where:=xlLocationAsNewSheet
With ActiveChart
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
ActiveChart.HasLegend = False
ActiveChart.ApplyDataLabels Type:=xlDataLabelsShowNone, LegendKey:=False
ActiveChart.HasDataTable = True
ActiveChart.DataTable.ShowLegendKey = True
End Sub

---

Citation:

---

Envoyé par brethomeau

Voici mon code, Ce qui m'ennuie est ce qui est en gras
comment lui faire passer les cellules sélectionnées avant et non pas des figées E33:P33

Merci pour aide

....

---

Salut,

Pourrais-tu utiliser les balises :tagcode: pour plus de clareté stp

Merci

Théo

Je ne comprend pas bien: ta zone E33:P33 , comment veux-tu la déterminer si elle n'est pas fixe?
Il faut au moins que tu puisses la repérer, par le titre d'une colonne, par exemple...

Range(ActiveCell(1, 5), ActiveCell(1, 16)).Select

a partir de ma recherche find préalable

Il-y-a un truc que je ne comprend pas. C'est quoi :

Code:

---

1 2	ActiveCell(1,5)

---

"ActiveCell", c'est LA cellule active, et Cells(1,5), c'est E1 (ligne 1, colonne 5), mais ActiveCell(1,5)...??????

c'est la plage ligne sur laquelle je me trouve, colonne 5 à 16

comment pourrait-on traduire autrement

Merci

Comme ça:

Code:

---

1 2	Range(Cells(ActiveCell.Row,5),Cells(ActiveCell.Row,16))

---

merci beaucoup
mais toujours un pb avec

Code:

---

1 2	ActiveChart.SetSourceData Source:=Worksheets("consolidation").Range(Cells(ActiveCell.Row, 5), Cells(ActiveCell.Row, 16)), _ PlotBy:=xlRows

---

il plante sur Range(Cells(ActiveCell.Row, 5), Cells(ActiveCell.Row, 16))

pourquoi?

Ha oui, il doit perdre les pédales entre les onglets.
En fait, dès que tu as trouvé ta cellule référence, ton ActiveCell, place son numéro de ligne dans une variable

Code:

---

1 2	NumeroLigne = ActiveCell.Row

---

Et ensuite:

Code:

---

1 2 3

ActiveChart.SetSourceData Source:=Worksheets("consolidation").Range(Cells(NumeroLigne, 5), Cells(NumeroLigne, 16)), _ PlotBy:=xlRows

---

Sinon, pour les balises de code, c'est vraiment NON, tu REFUSES de les utiliser? Parce que les gens de ce forum, et moi en particulier, pourraient bien REFUSER de t'aider à l'avenir.
:evil:

Hello Brethomeau,
Megaxel a encore raison...
En effet, quand tu es sur ton char (hi hi) bref, ta cellule n'est plus active, tu ne peux donc pas utiliser activecell.

Juste pour mettre mon grain de megasel :wink:

Merci,
Je vais veuillez à utiliser les balises

Ciao

Heu, bonne idée, pour les balises, mais à part ça, ça marche, maintenant?
:?:

oui mais autre problème

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Set MaPlage = Worksheets("consolidation").Range(Cells(ActiveCell.Row, 5), Cells(ActiveCell.Row, 16)) Charts.Add ActiveChart.ApplyCustomType ChartType:=xlBuiltIn, TypeName:= _ "Courbes - Histogramme" ActiveChart.SetSourceData MaPlage, PlotBy:=xlRows ActiveChart.SeriesCollection(1).Delete ActiveChart.SeriesCollection.NewSeries ActiveChart.SeriesCollection(1).XValues = _ "=(consolidation!R3C5,consolidation!R3C9,consolidation!R3C13)" ActiveChart.SeriesCollection(1).Name = "=consolidation!R4C5" ActiveChart.SeriesCollection(1).Values = "=" & MaPlage

---

erreur 13

Pourquoi?

Sur quelle ligne ?

A tout'

C'est quoi, une erreur 13?
Et sur quelle ligne est-elle soulevée, cette erreur?

Et c'est bizarre, ta déclaration de XValue de la série 1. Il y a 3 cellules. C'est normal?

Désolé, je n'ai pas préciser mais mon erreur est sur la derniere ligne.

ActiveChart.SeriesCollection(1).Values = "=" & MaPlage

Cette ligne devrait me sortir trois valeurs .

L'erreur c'est imcompatibilité de type.

Oui c'est normal que x est trois valeurs ce sont mes années