Graphique plage de données variable a deux inconnu

[Mateo38]

Bonjour,

J'ai recuperer un bout de code ( ci joint ) que j'ai adapté a mon projet, il determine la derniere ligne d'une plage de donné et ainsi me creer un graphique en fonction.

Je fais demarrer la plage a partir de la cellule 2 cela ne change jamais.

J'aimerais sur ce modele realiser un autre graphique en definissant cette fois la premiere ligne et la derniere ligne de ma plage de donnée mais je n'y arrive pas.

La premiere ligne du Graphique serai defini par = "transporteur 1" premiere valeur qu'il rencontre dans la colonne.

Pour la derniere ligne cela serai = "On time" dans la colonne C + "transporteur 1 " dans la colonne B

Si vous avez une idée ça serai cool.

Dim Name As String
Dim Colone As Integer

Dim Derniere_Ligne As Integer

Dim selection As String
Dim graph As Object
Application.ScreenUpdating = False
ActiveWorkbook.Worksheets("NetPerf_Global").Activate

Derniere_Ligne = 9
If Cells(9, 2) = "On Time" Then
Derniere_Ligne = 8
ElseIf Cells(8, 2) = "On Time" Then
Derniere_Ligne = 7
ElseIf Cells(7, 2) = "On Time" Then
Derniere_Ligne = 6
ElseIf Cells(6, 2) = "On Time" Then
Derniere_Ligne = 5
ElseIf Cells(5, 2) = "On Time" Then
Derniere_Ligne = 4
ElseIf Cells(4, 2) = "On Time" Then
Derniere_Ligne = 3
ElseIf Cells(3, 2) = "On Time" Then
Derniere_Ligne = 2

End If
Range(Cells(2, 2), Cells(Derniere_Ligne, 3)).Select


ActiveSheet.Shapes.AddChart.Select
ActiveChart.SetSourceData Source:=Range(Cells(2, 2), Cells(Derniere_Ligne, 3))
ActiveChart.ChartType = xl3DPieExploded

ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.ApplyLayout (6)
ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.ChartTitle.Select
ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.ChartTitle.Text = "Accountability"
ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.ChartArea.Select

Merci d'avance

 

[MJ13]

Re : Graphique plage de données variable a deux inconnu

Bonjour Mateo

C'est ma semaine Graphique .

Pourrais-tu joindre ton fichier sans données confidentielle s?

 

[tototiti2008]

Re : Graphique plage de données variable a deux inconnu

Bonjour Mateo, Bonjour Michel,

Peut-être

Dim Name As String
Dim Colone As Integer

Dim Derniere_Ligne As Integer, Premiere_Ligne as Integer

Dim selection As String
Dim graph As Object
Application.ScreenUpdating = False
ActiveWorkbook.Worksheets("NetPerf_Global").Activate

Derniere_Ligne = Range("B65536").end(xlup).row
Do until cells(Derniere_ligne,3).value = "On Time" and cells(Derniere_ligne,2).value = "transporteur 1"
Derniere_ligne = Derniere_ligne -1
Loop
   Premiere_Ligne = 1
Do until cells(Premiere_ligne,2).value = "transporteur 1"
Premiere_ligne = Premiere_ligne +1
Loop
   
   
   ActiveSheet.Shapes.AddChart.Select
   ActiveChart.SetSourceData Source:=Range(Cells(Premiere_ligne, 2), Cells(Derniere_Ligne, 3))
   ActiveChart.ChartType = xl3DPieExploded
    
   ActiveSheet.ChartObjects("Graphique 1").Activate
    ActiveChart.ApplyLayout (6)
    ActiveSheet.ChartObjects("Graphique 1").Activate
    ActiveChart.ChartTitle.Select
    ActiveSheet.ChartObjects("Graphique 1").Activate
    ActiveChart.ChartTitle.Text = "Accountability"
    ActiveSheet.ChartObjects("Graphique 1").Activate
    ActiveChart.ChartArea.Select

 

[Mateo38]

Re : Graphique plage de données variable a deux inconnu

Salut les gars,

Merci pour reponses c'est super sympa,

Le code que tu m'as donné n'est pa loin, cela effectue la recherche avec les bonnes conditions, seulement il faudrai que la plage selectionné soit sur les colonnes C et D.

Pour que cela soit plus claire je vous est attaché un lien fichier TEST avec un onglet ou il y a le resultat de ton code et un onglet avec le graphique que j'aimerais avoir.

Cijoint.fr - Service gratuit de dépôt de fichiers

Merci encore pour le coup de main.

Math

 

[tototiti2008]

Re : Graphique plage de données variable a deux inconnu

Re,

peut-être

ActiveChart.SetSourceData Source:=Range(Cells(Premiere_ligne, 3), Cells(Derniere_Ligne, 4))

 

[Mateo38]

Re : Graphique plage de données variable a deux inconnu

Re,

Oui merci je viens de voir en meme temps, du coup cela me selectionne les bonnes colonnes mais il faudrai que la plage de donnée commence une ligne en dessous de la derniere ligne.

Pas tres parlant je sais...

Si tu peux jeter un coup d'oeuil dans le fichier que j'ai attaché, la plage de donnée devrai s'arreter une ligne avant que l'argument derniere ligne soit vrai...

Merci pour ton aide

Math

 

[tototiti2008]

Re : Graphique plage de données variable a deux inconnu

Bonjour,

Joue avec "Derniere_Ligne" en le modifiant en "Derniere_Ligne + 1" ou "Derniere_Ligne - 1" (pas bien compris ce que tu voulais) dans la dernière ligne de code que je t'ai fournie

 

[Mateo38]

Re : Graphique plage de données variable a deux inconnu

Salut,

Je te remercie ça marche a merveille en mettant -1, j'avais deja essaye mais pas au bonne endroit...

Bonne fin de journée a tous.

Math