Copier une formule jusqu'à la fin d'1 tableau

Bonjour,

pour la macro qui copie la formule :
sub x

i=1
do while cells(i,1) <> "" 'une boucle qui tourne sur la colonne A pour déterminer le nombre d elignes. Si tu as un trou dans la colonne A ca ne marchera pas
i=i+1
loop
cells(1,3).copy
range(cells(1,3),cells(i-1,3)).select
activesheet.paste
cells(1,3).select
loop

end sub

Pour les graphiques, enregistre une macro, fais tes courbes et mets ton code ici.
Je ferais les adaptations qu'il faut.

salut,

je te conseille d'enregistrer une macro, c'est le plus simple pour ce genre de question.

ed

bonjour,

essaie avec ca :

i = 2
Do While Cells(i, 1) <> ""
i = i + 1
Loop
i = i - 1
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlLineMarkers
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).Name = "=""Temperature"""
ActiveChart.SeriesCollection(1).Values = _
"='Sheet1'!$C$1:$C$" & i & ",'Sheet1'!$G$1:$G$" & i & ",'Sheet1'!$K$1:$K$" & i
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(2).Name = "=""Error"""
ActiveChart.SeriesCollection(2).Values = _
"='Sheet1'!$D$1:$D$" & i & ",'Sheet1'!$H$1:$H$" & i & ",'Sheet1'!$L$1:$L$" & i

Bon je suis un peu desesperer, au debut ca marchait et j'ai voulu tout mettre dans une seul macro et j'obtiens 9 courbes differentes au lieu de mes deux que j'avais...

voici le programme:

Range("M2,B:B,C:C,F:F,G:G,J:J,K:K").Select
Range("K1").Activate
Selection.Replace What:="*:", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

Range("D1").Select
ActiveCell.FormulaR1C1 = "=ABS(RC[-2])-ABS(RC[-1])"
Range("D1").Select
Selection.Copy
Range("H1").Select
ActiveSheet.Paste
Range("L1").Select
ActiveSheet.Paste

Range("D1").AutoFill Range("D1:D" & Range("C65536").End(xlUp).Row)

Range("H1").AutoFill Range("H1:H" & Range("G65536").End(xlUp).Row)

Range("L1").AutoFill Range("L1:L" & Range("K65536").End(xlUp).Row)

i = 2
Do While Cells(i, 1) <> ""
i = i + 1
Loop
i = i - 1
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlLineMarkers
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).Name = "=""Temperature"""
ActiveChart.SeriesCollection(1).Values = _
"='Sheet1'!$C$1:$C$" & i & ",'Sheet1'!$G$1:$G$" & i & ",'Sheet1'!$K$1:$K$" & i
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(2).Name = "=""Error"""
ActiveChart.SeriesCollection(2).Values = _
"='Sheet1'!$D$1:$D$" & i & ",'Sheet1'!$H$1:$H$" & i & ",'Sheet1'!$L$1:$L$" & i

salut,

pour mettre un bouton (auquel tu affectes une macro je suppose) c'est là :
onglet "Développeur" > Insérer > Contrôles de formulaires > Icône en forme de bouton.

pour ce qui est de ta question avec le graphique, peu-être peux tu t'inspirer de ça :

Dim plage As Range
Dim graphique As ChartObject

Set plage = Sheets("Feuil1").Range("A1:H12")
Set graphique = ActiveSheet.ChartObjects.Add(100, 50, 300, 300)

With graphique
.Chart.SetSourceData Source:=plage
.Chart.Axes(xlCategory, xlPrimary).CategoryType = xlCategoryScale
.Chart.ChartType = xlLineMarkers
End With

`Mise en forme de graphique type "x,y" (pas avec un numéro de valeur en abscisses)
For i = 1 To 7
.SeriesCollection(i).XValues = plageT 'là tu définis la plage de tes abscisses
Next

Bonjour,
Bon j'ai tellement de questions...
J'aimerai lorsque l'on clique sur une image inserer dans excen que celui-ci la retrouve et l'ouvre dans windows.
Merci.

Merci bien pour votre aide.
Je suis arriver a faire ce aue je voulai avec votre aide et l'aide d'un gas plus caler dans la boite anglaise ou je suis.