Discussion :

[pikamo]

salut,

comment faire un graphe en vba ?
j'ai fais de recherche sur ce sujet mais je sens qu'il est compliqué.

j'ai un table :ces colonnes sont

mois , nb totale d'acteurs , nb acteur jean , nb acteur diane (de A1 jusqu’à D1)

un bouton "Graphe"

le but de ce bouton est de faire automatique trois graphes
une est selon Nb totale par mois
l'autre est selon nb acteur jean par mois
la dernière est selon bn acteur diane par mois

mois :Abscisse
Nb totale : ordonnée etc


si quelqu’un me guide étape par étape pour faire ce code
merci d'avance

[mercatog]

Bonsoir
Tu lance l'enregistreur de macro, tu trace tes graphiques manuellement, tu auras un code avec beaucoup de déchets mais fonctionnel.
Mets le ici, on t'aidera à le nettoyer.

[pikamo]

le 1ére graphe :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Sub Macro1()
'
' Macro1 Macro
'
    Sheets("Menu").Select
    Range("A1:B2").Select
    Range("B2").Activate
    Application.WindowState = xlMinimized
    Sheets("Liste Historique").Select
End Sub

[mercatog]

Non, tu n'as rien enregistré
Bon, je l'ai fais pour toi et j'ai nettoyé le code, ce qui donne quelque chose comme ceci
Donnée dans feuille Menu de A1 à B13. Le graphique s'insérera dans cette feuille

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Macro1()
Dim Grf As ChartObject
 
With Sheets("Menu")
    Set Grf = .ChartObjects.Add(100, 50, 400, 250)
    Grf.Chart.ChartType = xlLine
    Grf.Chart.SetSourceData Source:=.Range("A1:B13")
    Set Grf = Nothing
End With
End Sub

[pikamo]

salut

merci mercatog

mais pour quoi n'a rien dans le graphe, il ne capte pas les valeurs de colonne de B?

[mercatog]

Bonjour
Tu as bien des données de A1:B13 de la feuille nommée Menu?