VBA - Variable en source de graphique

lo -  
via55 Messages postés 14391 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour à tous,

J'essaye de construire un graphique camembert dont la source s'adapte en fonction de l'année.
Ex: en 2016 on va chercher D4 à E14, 2017 D19 à E29...
Je n'arrive pas à ajouter une variable à la place de la source, voici le code initial:

Dim z As Integer, ligne As Integer, colonne As Integer
z = 2016
ligne = 5
colonne = 4
Range(Cells(ligne - 1, colonne), Cells(ligne + 9, colonne + 1)).Select
ActiveSheet.Shapes.AddChart2(251, xlPie).Select
'ligne qui pose problème
ActiveChart.SetSourceData Source:=Range("'Top 10 clients B2B'!$D$4:$E$14")


A la place de
Range("'Top 10 clients B2B'!$D$4:$E$14")
j'aimerai pouvoir mettre mes variables ligne et colonne

J'ai essayé de passer par un range mais je n'ai pas réussi,

Merci à vous

Configuration: Windows / Chrome 102.0.0.0

1 réponse

  1. via55 Messages postés 14391 Date d'inscription   Statut Membre Dernière intervention   2 759
     
    Bonjour

    Quelque chose comme cela ?
        x1 = 4
        x2 = 14
        y1 = D
        y2 = E
    
        ActiveChart.SetSourceData Source:=Range("'Top 10 clients B2B'!" & y1 & x1 & ":" & y2 & x2)

    Cdlmnt
    Via
    0