Setsourcedata

Bonjour,

Comment dire dans un setsourcedata qu'il aille chercher les cellules sélectionnées sur une autre feuille ?

je mets cela mais cela ne fonctionne pas

.SetSourceData Source:=Feuil1.Cells.Select

Merci de votre aide.

Si je mets

   .SetSourceData Source:=selection

Cela fait le graphique à partir de la sélection de la feuille active

et si je mets

.SetSourceData Source:=Feuil1.selection

cela ne marche pas

Bonjour, j'suis pas sur de moi mais si mes souvenirs sont exact, c'est pas une selection que tu dois renseigner mais une plage. Donc renseigne ta plage dans une variable de type "range" et ensuite tu écris source:=variable

Tu as un range de copie ?

Exemple:

Range("a1:b8").Copy

Sinon tu déclares une autre Dim

Dim graph
graph= Sheets("Feuil1").Range("XX:XX").Copy

Je vous mets la macro en entier.

Je ne sais pas programmer donc ne vous moquez pas de moi. Vous allez y voir surement des trucs bizarres mais elle est toute proche de fonctionner.

QQun peut me dire quoi ajouter?

Private Sub CommandButton1_Click()

nom = ComboBox4.Value

Feuil1.Select
Range("7:7").Find(nom, , xlValues, xlWhole, , , False).Select
ActiveCell.Select
Colonne = ActiveCell.Column
Ligne = ActiveCell.Row
Feuil1.Range(Cells(Ligne + 3, Colonne), Cells(Ligne + 1949, Colonne)).Select

Sheets(ComboBox4.Value).Select

Dim wsData As Worksheet, wsChart As Worksheet
Dim rngChart As Range
Dim objChart As ChartObject
Dim objLE As LegendEntry

ActiveSheet.unprotect Password:="toto"

    Application.ScreenUpdating = False

    Set wsData = Feuil1
    Set wsChart = ActiveSheet

    On Error Resume Next
    wsChart.ChartObjects(1).Delete
    On Error GoTo 0

    Set objChart = wsChart.ChartObjects.Add _
            (Left:=wsChart.Columns("c").Left, _
            Top:=wsChart.Rows(9).Top, _
            Width:=800, _
            Height:=280)

    With objChart.Chart
        .ChartType = xlColumnClustered
        .SetSourceData Source:=??????????????????????????????????????????????????????????????????????
        .HasTitle = True
        .ChartTitle.Text = ComboBox3.Value & " - " & ComboBox4.Value
        .HasLegend = False
    End With

Unload Me
    Set objChart = Nothing
    Set rngChart = Nothing
    Set wsChart = Nothing: Set wsData = Nothing
ActiveSheet.protect Password:="toto", DrawingObjects:=False, Contents:=True, Scenarios:=True

End Sub

Bonjour,

à tester

Private Sub CommandButton1_Click()

nom = ComboBox4.Value

Feuil1.Select
Range("7:7").Find(nom, , xlValues, xlWhole, , , False).Select
ActiveCell.Select
Colonne = ActiveCell.Column
Ligne = ActiveCell.Row
set graphdata=Feuil1.Range(Cells(Ligne + 3, Colonne), Cells(Ligne + 1949, Colonne))

Sheets(ComboBox4.Value).Select

Dim wsData As Worksheet, wsChart As Worksheet
Dim rngChart As Range
Dim objChart As ChartObject
Dim objLE As LegendEntry

ActiveSheet.unprotect Password:="toto"

    Application.ScreenUpdating = False

    Set wsData = Feuil1
    Set wsChart = ActiveSheet

    On Error Resume Next
    wsChart.ChartObjects(1).Delete
    On Error GoTo 0

    Set objChart = wsChart.ChartObjects.Add _
            (Left:=wsChart.Columns("c").Left, _
            Top:=wsChart.Rows(9).Top, _
            Width:=800, _
            Height:=280)

    With objChart.Chart
        .ChartType = xlColumnClustered
        .SetSourceData Source:=graphdata
        .HasTitle = True
        .ChartTitle.Text = ComboBox3.Value & " - " & ComboBox4.Value
        .HasLegend = False
    End With

Unload Me
    Set objChart = Nothing
    Set rngChart = Nothing
    Set wsChart = Nothing: Set wsData = Nothing
ActiveSheet.protect Password:="toto", DrawingObjects:=False, Contents:=True, Scenarios:=True

End Sub
 

Merci pour ton aide.

Cela m'a remplacé mes valeurs de ma sélection de la feuil1 par des "VRAI".

cela a fait un graphique comme si cela avait pris les "vrai" pour des 1.

t'as rien à perdre à tenter celle-ci mais qui est en doublon avec h2so4 qui m'a doublé d'une semelle : ) :/

Private Sub CommandButton1_Click()
dim plage as range

nom = ComboBox4.Value

Feuil1.Select
Range("7:7").Find(nom, , xlValues, xlWhole, , , False).Select
ActiveCell.Select
Colonne = ActiveCell.Column
Ligne = ActiveCell.Row
plage = Feuil1.Range(Cells(Ligne + 3, Colonne), Cells(Ligne + 1949, Colonne))

Sheets(ComboBox4.Value).Select

Dim wsData As Worksheet, wsChart As Worksheet
Dim rngChart As Range
Dim objChart As ChartObject
Dim objLE As LegendEntry

ActiveSheet.unprotect Password:="toto"

    Application.ScreenUpdating = False

    Set wsData = Feuil1
    Set wsChart = ActiveSheet

    On Error Resume Next
    wsChart.ChartObjects(1).Delete
    On Error GoTo 0

    Set objChart = wsChart.ChartObjects.Add _
            (Left:=wsChart.Columns("c").Left, _
            Top:=wsChart.Rows(9).Top, _
            Width:=800, _
            Height:=280)

    With objChart.Chart
        .ChartType = xlColumnClustered
        .SetSourceData Source:=plage
        .HasTitle = True
        .ChartTitle.Text = ComboBox3.Value & " - " & ComboBox4.Value
        .HasLegend = False
    End With

Unload Me
    Set objChart = Nothing
    Set rngChart = Nothing
    Set wsChart = Nothing: Set wsData = Nothing
ActiveSheet.protect Password:="toto", DrawingObjects:=False, Contents:=True, Scenarios:=True

End Sub

Désolé force rouge mais ta proposition a planté. Celle du dessus a remplacé les valeurs par des "VRAI"

Bonsoir,

peut-on voir à quoi ressemble tes données ? tu peux nous mettre (un extrait de) ton fichier ?

Pas de mal, j'sais où j'me suis planté, j'ai oublié "set =" tsss...

Celle de H2SO4 a presque fonctionné mais elle a remplacé les valeurs de la sélection par des "VRAI" :/

Du coup le graphique ne correspond pas... :/

Je vous fais cela le plus rapidement possible.

Merci mille fois pour votre aide.

Je suis perplexe face à ce que tu dis...Très perplexe !

jfk15 a écrit :

mais elle a remplacé les valeurs de la sélection par des "VRAI" :/

Ce n'est pas le fichier d'origine. DOnc vous n'allez pas retrouver dessus toutes les feuilles bien entendu.

Mais vous allez trouver la feuille saisie, là où il y a les valeurs qui se sont transformées en VRAI

les 4 combo box marche sur ce fichier test. Par contre le bouton créé graphique non car il renvoie à des feuilles qui n'existent pas et bien entendu il y a le pb de la source data.

Voilà merci

Je reçois une erreur lorsque j'essaie de décompresser ton fichier.

peux-tu le mettre en non compressé sur cjoint.com et mettre le lien ici ?

Je vais refaire le fichier. il bug. Désolé.

je reviens le plus vite possible.

Bonsoir,

avec la correction proposée, je ne vois pas apparaitre de transformation de données en "VRAI" (d'ailleurs je ne vois pas comment les instructions que j'ai modifiées le feraient) et le résultat me semble correct.

Cela a l'air de marché oui. Je viens de l'insérer dans le fichier original et ça marche. Tout à l'heure cela m'avait transformé les valeurs oui...... est ce que j'ai mal fait copier / coller....

j'ai passé toute la journée dessus et je suis un peu dans le flou là..... tu comprendras donc que je te remercie mille fois.... pour ton aide vraiment très sincèrement.

c'est dur mais parfois il faut faire autre chose pour se libérer l'esprit et y voir plus clair. J'ai perdu tout mes cheveux comme ça !

Une dernière chose stp. Lorsque les filtres renvoient a aucune valeur où je dois insérer une msgbox du genre "il n'y a aucun résultat pour vos filtres" ?