Discussion :

[coklin]

Bonjour,


J'ai essayé de poster un premier message, sans succès. J'essaie donc avec un autre truc. Je m'entraine à générer automatiquement un graphe à partir d'un tableau de données.

Le pb, c'est que je veux tout sélectionner. En sélectionnant tout (xldown + xl right), l'ordinateur enregistre la dernière cellule comme une cellule fixe.

Ce que je veux, c'est que si je rajoute des données dans mon tableau, la dernière cellule ne soit pas celle qui avait été enregistrée à l'origine mais la nouvelle cellule après modification.

Voici mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub Graphe()
Dim i As Integer
Dim MaPlage As Range
 
 
 
    Range("A1").Select
    Set MaPlage = Range("A1:B7")
    i = MaPlage.Cells.Count
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.SetSourceData Source:=Worksheets(Feuil1).Range(Cells(1, 1), Cells(i))
    ActiveChart.ChartType = xlLine
    ActiveChart.SetElement (msoElementChartTitleAboveChart)
 
        With ActiveChart
            .HasTitle = True
            .ChartTitle.Characters.Text = "Nbre de cotations"
        End With
End Sub

Dans ce code, ça bug au niveau du ActiveSheet.Shapes.AddChart.Select : il me mettent erreur 1004. Qu'est-ce qui ne va pas?

Pouvez-vous m'aider svp?

Merci d'avance

[Fvandermeulen]

Bonjour Coklin,
J'ai d'abord une question, veux tu à chaque fois créer un graphique ou peux tu te contenter d'adapter la source de donnée ?

Sinon, quoi qu'il en soit, voici déjà une astuce pour définir la zone de ton tableau, en effet les select sont à éviter:
Pour trouver la dernière ligne utilisée, renvoi un nombre:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

NbLigne = Sheets("TaFeuil").UsedRange.Rows.count

Pour la dernière colonne, même principe:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

NbCol = Sheets("TaFeuil").usedRange.columns.count

Testes déà ça pour voir si ça te renvoi le bon numéro de colonne et de ligne selon ton tableau.
Ensuite, je te propose d'utiliser l'enregistreur de macro pour modifier la source de donnée, tu n'auras qu'à ensuite adapter avec les variables (comme tu as déjà fait)
Si tu bloques dis le...
A+

[coklin]

Merci de ton aide,


J'ai utilisé ta petite astuce pour identifier le nombre de lignes et de colonnes, et j'ai vérifié avec un espion. Ca marche.

Mon pb reste le même, le programme bloque à la ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.Shapes.AddChart.Select

Je ne sais pas ce qui fait bugger le programme.

As-tu une idée?

Merci d'avance

Coklin

[Krovax]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.Shapes.AddChart.Select

Tu ne peux pas utiliser adchart.select
Tu ne peux pas ajouter et selectionner
enlève le .select

Comme toujours le select sont a éviter tu devrais apprendre a t'en passer, mais c'est un avis personnel

Le graph ajouter est automatiquement le activechart pas besoin de sélectionner

[coklin]

J'ai enlevé le .Select et je prends note de ton conseil. J'ai encore des progrès à faire.

Toutefois, le même problème persiste, avec la même erreur qui s'affiche.

Pour rappel, voici mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub Graphe()
Dim i As Integer
Dim MaPlage As Range
    Range("A1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    NbLigne = Sheets("Feuil1").UsedRange.Rows.Count
    NbCol = Sheets("Feuil1").UsedRange.Columns.Count
    ActiveSheet.Shapes.AddChart
    ActiveChart.SetSourceData Source:=Worksheets(Feuil1).Range(Cells(1, 1), Cells(NbLigne, NbCol))
    ActiveChart.ChartType = xlLine
    ActiveChart.SetElement (msoElementChartTitleAboveChart)
 
        With ActiveChart
            .HasTitle = True
            .ChartTitle.Characters.Text = "Nbre de cotations"
        End With
End Sub

Je ne comprends pas pquoi le ActiveSheet.Shapes.AddChart bug alors qu'avant que je ne cherche à faire ce que je veux, ça fonctionnait.

Any idea?

Merci encore

Coklin

[Krovax]

Ton premier progère mettre les balise code. C'est pénible d'avoir a lire des code ainsi et les modérateur ont autre chose a faire que de les rajouter a ta place.
Si tu ne sais pas le faire regarde le tout premier poste du forum
Bivenvenue sur le forum aide a l'utilisation (ou quelque chose que y ressemble)
Il y a a la fin une explication très claire.
Et édit ton message pour les rajouter toi même.

Pour en revenir a ton code ou se trouve-t-il un module standar le module de la feuille.

Essaye de remplacer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("Feuil1")