Obtenir la dernière cellule avec des données dans la colonne dans Excel 2007

Question

J'essaie d'écrire une macro pour créer des graphiques dans Excel 2007. Je ne connais pas le nombre de cellules qui seront dans la gamme pour l'une des séries de données (Il pourrait être de 50 à 1000). J'ai googlé ceci et j'ai trouvé des réponses mais elles sont partout sur la carte et les quelques que j'ai essayées ne m'ont pas aidé du tout. Je suis novice chez vba macros mais je suis un programmeur expérimenté.

que j'ai trouvé des exemples tels que:

Sub FindLast2() 
    x = ActiveSheet.UsedRange.Rows.Count 
    ActiveCell.SpecialCells(xlLastCell).Select 
End Sub 

Je ne suis pas sûr si cela fonctionne & si cela ne fonctionne comment pourrais-je intégrer cela dans ma macro

Voici ma macro tel qu'il est maintenant:

Sub temp_graph_5() 
' 
' temp_graph_5 Macro 
' 

' 
    Sheets.Add After:=Sheets(Sheets.Count) 
    Sheets(2).Select 
    Sheets(2).Name = "Temperature" 
    ActiveSheet.Shapes.AddChart.Select 
    ActiveChart.ChartType = xlLine 
    ActiveChart.SetSourceData Source:=Sheets(1). _ 
     Range("B2:B324") 
    ActiveChart.SeriesCollection(1).Name = "=""Temperature""" 

End Sub 

La 'B324' est la section dont j'ai besoin pour être variable.

Toute aide est grandement appréciée.

Answer 1

Ce code peut aider à réaliser ce dont vous avez besoin:

Sub temp_graph_5() 
    Dim myRng As Range 
    Dim lastCell As Long 

    //Get range to be plotted in chart 
    lastCell = Worksheets(1).Range("B2").End(xlDown).Row 
    Set myRng = Worksheets(1).Range("B2:B" & lastCell) 

    //Add worksheet and name as "Temperature" 
    Dim newSheet As Worksheet 

    Set newSheet = Worksheets.Add(After:=Worksheets(Worksheets.Count)) 
    newSheet.Name = "Temperature" 
    newSheet.Select 

    //Add a new chart in Temperature and plot values from sheet 1 
    Charts.Add 

    With ActiveChart 
     .ChartType = xlLine 
     .SetSourceData Source:=myRng, PlotBy:=xlColumns 
     .Location Where:=xlLocationAsObject, Name:="Temperature" 
    End With 

End Sub 

Answer 2

sub test() 
last_row_all = Range("A65536").End(xlUp).Row 
msgbox last_row 
end sub