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

**brethomeau** · 10/11/2005, 10h46

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

**Megaxel** · 10/11/2005, 11h04

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

**brethomeau** · 10/11/2005, 15h26

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

33

Merci pour aide

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

33").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("E3333"), _
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

**Theocourant** · 10/11/2005, 15h35

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

33

Merci pour aide

....

Salut,

Pourrais-tu utiliser les balises

pour plus de clareté stp

Merci

Théo

**Megaxel** · 10/11/2005, 15h42

Je ne comprend pas bien: ta zone E33

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

**brethomeau** · 10/11/2005, 15h48

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

a partir de ma recherche find préalable

**Megaxel** · 10/11/2005, 15h55

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

Code :

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

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

**brethomeau** · 10/11/2005, 16h16

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

comment pourrait-on traduire autrement

Merci

**Megaxel** · 10/11/2005, 16h32

Comme ça:

Code :

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

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

**brethomeau** · 10/11/2005, 17h22

merci beaucoup
mais toujours un pb avec

Code :

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

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?

**Megaxel** · 10/11/2005, 17h33

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 :

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

1
2
 
NumeroLigne = ActiveCell.Row

Et ensuite:

Code :

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

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.

**ouskel'n'or** · 11/11/2005, 10h40

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

**brethomeau** · 14/11/2005, 09h10

Merci,
Je vais veuillez à utiliser les balises

Ciao

**Megaxel** · 14/11/2005, 09h36

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

:

**brethomeau** · 14/11/2005, 12h32

oui mais autre problème

Code :

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

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?

**ouskel'n'or** · 14/11/2005, 12h37

Sur quelle ligne ?

A tout'

**Megaxel** · 14/11/2005, 12h39

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

**Megaxel** · 14/11/2005, 12h42

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

**brethomeau** · 14/11/2005, 13h38

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 .