Source jusqu'à cellule non vide

Bonjour à tous,

j'aurais voulu avoir un peu d'aide, je souhaite définir la plage "source" de mon graphique.

mais je voudrais que la plage se fasse jusqu'à la dernière cellule non vide de mes colonnes

Par exemple remplacer mon Source: = Range("C18:Derniere cellule non vide)

ActiveSheet.ChartObjects("Graphique 4").Activate
    ActiveChart.FullSeriesCollection(1).Select
    Application.CutCopyMode = False
    ActiveChart.FullSeriesCollection(1).Select
    Application.CutCopyMode = False
    ActiveChart.SetSourceData Source:=Range("C18:E39")

Je ne sais pas si mon explication est claire, en tout cas merci à ceux qui on compris et qui pourrons m'aider

A plus

Bonjour !

Je suis justement sur un projet où j'ai codé ma fonction pour qu'il récupère la dernière cellule de mon tableau (peu importe sa taille)

'Fonction qui détecte la fin du tableau 
Function last_row()
    Dim i As Integer
    i = 1
        While (Range("M" & i).Value <> "")
            i = i + 1
        Wend

    'Si on arrive ici, c'est qu'on a détecté la case vide après le tableau
    'On décrémente donc i de 1 pour avoir la dernière ligne
    last_row = i - 1
End Function

Ici, ma fonction fonctionne dans la colonne M, tu peux changer par la colonne que tu veux !

Je te propose donc la solution suivante:

ActiveSheet.ChartObjects("Graphique 4").Activate
    ActiveChart.FullSeriesCollection(1).Select
    Application.CutCopyMode = False
    ActiveChart.FullSeriesCollection(1).Select
    Application.CutCopyMode = False
    ActiveChart.SetSourceData Source:=Range("C18:E" & last_row())

ça devrait marcher, en remplaçant la colonne M par E dans la fonction:

While (Range("E" & i).Value <> "")
            i = i + 1
        Wend

Bonjour,

Définissez la plage via une méthode dynamique :

Sub CEL()
Dim PLAGE$
With ActiveSheet
    PLAGE = .Range(.Cells(18, 3), .Cells(.Cells(.Rows.Count, 5).End(xlUp).Row, 5)).Address
    .ChartObjects("Graphique 4").Activate
    ActiveChart.SetSourceData Source:=Range(PLAGE)
End With
End Sub

Cdlt,

En effet, ta solution est bien mieux @Ergotamine !

Merci, je vais pouvoir l'implémenter dans mon projet !

Bonjour,

merci de vos réponses qui ont fonctionnées toutes les deux .

J'ai choisi la version d'Ergotamine qui me semblais plus simple,

Mon code est parfait grâce à votre aide. Bravo et encore merci de votre implication.

A plus

Rechercher des sujets similaires à "source vide"