Adapter plage de cellules pour graphique

Bonjour, j'ai un code (obtenu sur ce forum) me permettant de sélectionner deux colonnes jusqu'a la derniere cellule non vide de la seconde colonne.

Range("BA2:BB" & [BB65000].End(xlUp).Row).Select

Et un autre code réalisant un graphique, seulement je voudrais que le code pour mon graphique réutilise le premier code pour sélectionner la bonne plage de cellule.

Charts.Add
ActiveChart.ChartType = xlPie
ActiveChart.SetSourceData Source:=Sheets("Feuil2").Range("BA2:BB128"), PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Feuil3"
    With ActiveChart
        .HasTitle = True
        .ChartTitle.Characters.Text = "Orientation a la sortie"
    End With
ActiveChart.HasLegend = True
ActiveChart.Legend.Select
Selection.Position = xlBottom

En gros j'aimerai pouvoir remplacer le Range("BA2:BB128") par mon premier code mais je n'y arrive pas, vba me retourne une erreure systématiquement.

Merci

Bonjour,

Essayes comme ça :

Sub graph()
Dim sourcegraph As Range
Set sourcegraph = Sheets("Feuil2").Range("BA2:BB" & [BB65000].End(xlUp).Row)

Charts.Add
ActiveChart.ChartType = xlPie
ActiveChart.SetSourceData source:=sourcegraph, PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Feuil3"
    With ActiveChart
        .HasTitle = True
        .ChartTitle.Characters.Text = "Orientation a la sortie"
    End With
ActiveChart.HasLegend = True
ActiveChart.Legend.Select
Selection.Position = xlBottom
End Sub

Bonjour,

Si la dernière ligne complétée de ta colonne BB peut être plus petite que celle de ta colonne BA, le début du code proposé par Sylvain doit être modifié comme suit :

Sub graph() 
Dim sourcegraph As Range
Dim lig as integer
lig = Sheets("feuil2").UsedRange.Rows.Count
Set sourcegraph = Sheets("Feuil2").Range("BA2:BB" & lig + 1)
Charts.Add
.....
End sub

A te relire

Dan

C'est exactement ca merci beaucoup

J'ai rencontré une petite limite avec ma sélection de la plage de cellules. Jusque la c'était parfait si les colonnes étaient contigues mais la j'ai deux colonnes séparées a sélectionner.

Comment je pourrais faire pour modifier ce code

Set sourcegraph = Sheets("Feuil2").Range("BA2:BA" & [BA65000].End(xlUp).Row) 

de facon a sélectionner aussi par exemple la plage

("BD2:BD" & [BD65000].End(xlUp).Row)