VBA création Graphqiue

Re Bonjour Tout le monde

Toujours avec VBA, par l'intermédiaire d'un bouton, j'aimerais programmer un graphique qui prennent en compte sur l'onglet "TB 2014" les colonnes B, C et D et les lignes de janvier à mai (9:13) si possible par un histogramme (xlcolumnClustered).

Et si possible en appuyant une premiere fois sur le bouton fait apparaitre le graph et une seconde fois le fait disparaitre.

Est ce que quelqu'un peut m'aidé sur le sujet???

Merci

Cdt

J'ai avancé de monc oté et créer la macro par l'enregistreur de macro (toujours onglet TB 2014) dans colonne U (bouton Graph sous traitance).

Cependant le code sur les etiquettes de données en statistique ne passe pas ? est ce que vous savez pourquoi ?

Et comment faire pour que mon graphique se localise dans un endroit precis de la feuille ?

Merci

Bonjour

Tu peux tester ça:

Sub Bouton9_Cliquer()
On Error Resume Next
Application.ScreenUpdating = False
   ActiveSheet.ChartObjects("Graph_1").Delete
   ActiveSheet.Shapes.AddChart.Select
    With ActiveChart
        .ChartType = xlPie
            .SetSourceData Source:=Range("'TB 2014'!$U$24:$V$32")
                .SeriesCollection(1).Select
                    .SeriesCollection(1).ApplyDataLabels
                .SeriesCollection(1).DataLabels.ShowPercentage = True
            .SeriesCollection(1).DataLabels.ShowValue = False
       .Parent.Name = "Graph_1"
   End With
    With ActiveSheet.Shapes("Graph_1")
        .Left = Range("W24").Left
        .Top = Range("W24").Top
    End With
Application.ScreenUpdating = True
    Range("S27").Select
End Sub

Habile, ca marche plutôt bien j'ai envie de dire !

Merci une fois de plus

et quelle phrase je dois intégrer dans les macros pour que je puisse afficher mes 2 graphiques (liées à des macros) en même temps ?

Parce que a chaque fois que je clique sur un bouton1 mon graph 1 apparait , mais le graph2( lié au bouton 2) disparait et vice versa .....

Merci

Bonjour

Je ne sais pas trop, moi je n'ai travaillé que sur un graph, il faudrait voir ton fichier!!

Yep ! voila le fichier ! c'est le même que le précedent dans l'onglet TB 2014:

• Colonne Q il y a le premier bouton pour graph en baton
• Colonne U deuxième bouton pour graph en camenbert

Dès que j'en active un l'autre disparait.

Je sais qu'avec les macros dans l'extreméité gauche (RH, indice parc,...) on peut faire apparaitre et réapparaitre les colonnes si on clique et double clique.

Est ce que c'est adaptable sur les macros des graphs ? et qu'on puisse faire apparaitre les deux graphs à la fois ( Colonne Q et U)

Merci

Re

Il suffit de changer le nom d'un des graphs:

Sub Bouton10_Cliquer()

On Error Resume Next
Application.ScreenUpdating = False
   ActiveSheet.ChartObjects("Graph_2").Delete
   ActiveSheet.Shapes.AddChart.Select
    With ActiveChart
        .ChartType = xlPie
            .SetSourceData Source:=Range("'TB 2014'!$U$28:$V$36")
                .SeriesCollection(1).Select
                    .SeriesCollection(1).ApplyDataLabels
                .SeriesCollection(1).DataLabels.ShowPercentage = True
            .SeriesCollection(1).DataLabels.ShowValue = False
       .Parent.Name = "Graph_2"
   End With
    With ActiveSheet.Shapes("Graph_2")
        .Left = Range("W28").Left
        .Top = Range("W28").Top
    End With
Application.ScreenUpdating = True
    Range("S27").Select
End Sub

Sub Graphique_IndiceParc()

On Error Resume Next
Application.ScreenUpdating = False
   ActiveSheet.ChartObjects("Graph_1").Delete
   ActiveSheet.Shapes.AddChart.Select
    With ActiveChart
        .ChartType = xlColumn
            .SetSourceData Source:=Range("'TB 2014'!$Q$12:$R$17")
                .SeriesCollection(1).Select
                    .SeriesCollection(1).ApplyDataLabels
                .SeriesCollection(1).DataLabels.ShowPercentage = True
            .SeriesCollection(1).DataLabels.ShowValue = False
       .Parent.Name = "Graph_1"
   End With
    With ActiveSheet.Shapes("Graph_1")
        .Left = Range("o28").Left
        .Top = Range("o28").Top
    End With
Application.ScreenUpdating = True
    Range("S27").Select

End Sub

Une fois de plus sa fonctionne !!

Merci

Dis-moi CB60 (vu que y'a que toi qui me répond lol) avec le fichier t'as pu voir comment faire pour effacer le graph si on reclique sur le bouton. Et le re-afficher en cliquant de nouveau etc....

sur les colonnes sa passe mais pour les graphs je suis un peu perdu

Bonjour

Je t'ai fais un bouton, regarde comment c'est fais et essai de réaliser le second

Je vais regarder sa ! Merci !

ok merci ! jai regarder mais comment tu fais pour afficher le code qu'il y a derriere le bouton que tu as crées ? clique droit ne marche pas et dans laffichage des macros rien n'apparait....

Si c'est bon jai reussi à afficher sa la macro "masquer" !!

Pour cacher le graphique tu marques dans ta macro de cacher les colonnes de B à F ?

Du coup ou est passé le code qui fait apparaitre le camenbert ?

Ah non c'est bon CB60 jai retrouver ton code (dsl jsuis pas très doué). Je regarde sa merci !

bonsoir

Dans quelle macro je demande de masquer des colonnes?

car pour moi, il ni a que cette macro, qui gère le bouton:

Private Sub ToggleButton1_Change()
With ToggleButton1

Select Case .Value
    Case True
    BackColor = &H800000
        .Caption = "MASQUE"
        Call Bouton10_Cliquer
    Case False
       BackColor = &HC00000
        .Caption = "AFFICHE"
        ActiveSheet.Shapes("Graph_2").Visible = False

End Select

End With
End Sub

et dans cette macro aucune colonne n'est masqué

j'ai confondu avec une autre parceque je trouvais pas celles du bouton masquer/afficher !

c'est bon je lai trouver ! je vais essayer de m'en sortir avec ce ke t'as fait !

Merci encore

hey !

Bon jai essayer de réaliser le second et je n'y arrive pas ...

Je suis aller dans le dvlpeur

jai créer un bouton commande (contrôle activeX)

J'adapte le code au graph concerné mais rien ne se passe... De plus le bouton garde sa forme d'origine et ne se modifie pas comme le tien....

Est ce que tu peux me détailler textuellement les étapes que tu as fait pour créer ce nouveau bouton....

Merci

le fichier en pièece jointe avec le code que j'ai créer pour l'autre graph (qui ne fonctionne pas )

c'est bon j'ai un peu avancé sauf ke le bouton me cache le grpahique mais ne le fais pas réapparaitre !

bonjour

tu a utilisé un bouton normal, moi j'ai mis un toggle bouton qui peut gérer plusieurs positions

Bonjour

j'ai trouvé le toggle button et l'ai inséré ! Le cacher/afficher fonctionne bien cependant le toggle ne m'a pas caché le bouton normal du graphique Sous traitance en A35 malgré le code :

ActiveSheet.Shapes("Graph_3").Visible = False

As-tu une explication à cela ?

Le fichier est en pièce jointe.

Merci