Sélection cellules pour graphe

[ledaf]

Bonjour,

Ci joint le code que j'utilise:

Sheets("Feuil2").Select
i = 2
Do Until Cells(2, i) = Sheets("Tableau de bord").Range("F29")
    i = i + 1
Loop
Cells(2, i).Select
j = 2
Do Until Cells(2, j) = Sheets("Tableau de bord").Range("F31")
    j = j + 1
Loop
Cells(2, j).Select
Range(Cells(2, i), Cells(10, j)).Select

    Charts.Add
    ActiveChart.ChartType = xlColumnClustered
    ActiveChart.SetSourceData Source:=Sheets("Feuil2").Range(Cells(2, i), Cells(10, j)), PlotBy _
        :=xlRows

Mon problème se situe à ce niveau:

 ActiveChart.SetSourceData Source:=Sheets("Feuil2").Range(Cells(2, i), Cells(10, j)), PlotBy _
        :=xlRows

Il bloque sur les cellules que je sélectionne. La syntaxe n'est pas bonne?

En vous remerciant.

 

[soenda]

Re : Sélection cellules pour graphe

Bonjour le fil, ledaf

La syntaxe n'est pas bonne ?

Si je ne m'abuse la ligne suivante

Range(Cells(2, i), Cells(10, j)).Select

peut s'écrire

Range(Cells(2, i).Value, Cells(10, j).Value).Select

Car Select est la méthode par défaut de l'objet Cells.

Or, en lisant le début de ton code, on a:

Cells(2, i).Value = Range("F29").Value
Cells(2, j).Value = Range("F31").Value

Et là, on ne comprend pas l'intérêt des boucles...😕

Pour le reste, il faudrait nous indiquer ce que tu veux faire.

A plus

 

[ledaf]

Re : Sélection cellules pour graphe

Les boucles me servent a trouver une place de cellule en fonction des données en cellules F29 et F31.
Pour ça pas de pb je sélectionne bien la plage de données qu'il me faut.
Le pb c'est pour le répercuter dans le graphique!

??

 

[ledaf]

Re : Sélection cellules pour graphe

Qu'est ce qui ne va pas dans la syntaxe suivante:

ActiveChart.SetSourceData Source:=Sheets("Feuil2").Range(Cells(2, i), Cells(10, j)), PlotBy _
        :=xlRows

 

[soenda]

Re : Sélection cellules pour graphe

Re, ledaf

Alors je pose la question différemment, en supposant que :

Sheets("Tableau de bord").Range("F29").Value =12
Sheets("Tableau de bord").Range("F29").Value =33


Quelle sont les valeurs attendues en :

Sheets("Feuil2").Cells(2, i) ?
Sheets("Feuil2").Cells(2, j) ?

A plus

 

[ledaf]

Re : Sélection cellules pour graphe

Et bien en cells(2,i) c'est F29 et en cells(2,j) c'est F31.
Mais je vois pas trop le rapport, car peut importe la plage de données, ce que je veux moi c'est que la plage que je sélectionne apparaisse dans mon graphe.

 

[soenda]

Re : Sélection cellules pour graphe

Re,

Vois l'exemple ci-dessous

ActiveChart.SetSourceData Source:=Sheets("Feuil2").Range("[B]D9[COLOR=Red]:[/COLOR]I10[/B]")

Tu remarqueras notamment, les 2 points ":" qui séparent les 2 valeurs...

A plus

 

[ledaf]

Re : Sélection cellules pour graphe

Oui ça je suis d'accord mais moi ce n'est pas une plage de données fixe, c'est pour cela que j'ai utilisé les variables i et j.
Donc cells(2,i) et cells(2,j) doivent apparaître dans ma syntaxe.

 

[soenda]

Re : Sélection cellules pour graphe

Re

C'est faisable, mais sous condition.

Donnes moi une valeur possible pour chacune des 2 cells, que je te bricole un truc

A plus

 

[ledaf]

Re : Sélection cellules pour graphe

En fait c'est des mois de l'année. Ces deux cellules corresponde à un intervalle de temps.

Je te remercie

 

[soenda]

Re : Sélection cellules pour graphe

Re,

Suis le lien ci-dessous

Formation Excel VBA JB

Sur la droite cliques sur Graphiques
et en haut sur Graphiques dynamiques

A plus

 

[ledaf]

Re : Sélection cellules pour graphe

Je suis désolé ton site est bien fait mais je n'arrive pas à mettre en forme ce que je veux.

Voici comment est fait mon tableau:

Service/ janv-09/ févr-09 mars-09 ....
CEO/ 121,02/ 121,02/ 121,02/
LA/ 141,19/ 141,19/ 141,19/
SG/ 288,45/ 288,45/ 288,45/
RH/ 219,81/ 219,81/ 219,81/
DC/ 1086,95/ 1086,95/ 1086,95/
DO/ 1767,44/ 1767,44/ 1767,44/
DS/ 3185,24/ 3185,24/ 3185,24/
DF/ 663,02/ 663,02/ 663,02/
Total/ 7473,12/ 7473,12/ 7473,12/

dsl pour la mise en forme du tableau, j'ai séparé les colonnes par des /, j'espère que ce sera compréhensible.

 

[soenda]

Re : Sélection cellules pour graphe

Re,

...ton site est bien fait

Je voudrais bien avoir ce niveau... 😀

C'est le site de BOISGONTIER, sûr qu'il est bien fait 🙂

Et pour ton tableau je regarderai ce soir,
tu aurais dû le posté pustôt...

A plus

 

[soenda]

Re : Sélection cellules pour graphe

Bonsoir ledaf

Chose promise...

Ajoutes au début de ta procédure

Dim ch As String

Avant Charts.Add, ajoutes la ligne suivante

ch =Cells(2, i)[B].Address & ":" & [/B]Cells(2, j)[B].Address[/B]

Modifie la ligne suivante

 ActiveChart.SetSourceData Source:=Sheets("Feuil2").Range([COLOR=Red][B]ch[/B][/COLOR]),[FONT=monospace] PlotBy :=xlRows[/FONT]

Tu peux supprimer les 3 lignes suivantes

Cells(2, i).Select
Cells(2, j).Select
Range(Cells(2, i), Cells(10, j)).Select

qui ne servent à rien...

A plus

 

[ledaf]

Re : Sélection cellules pour graphe

Je te remercie cela fonctionne très bien!