XL 2016 Vba plage variable sous conditions pour tracer des graphiques

[remex32]

Bonjour,
Je souhaiterais trouver une fonction qui sur le graphique actif change la plage en fonction d'une condition qui est en gros : "à chaque fois que le caractère "ù" est selectionné, prendre la plage si dessous pour le graphique jusqu'à une case vide et ainsi de suite. Je vous met en PJ mon fichier est mon code pour que vous compreniez mieux, merci d'avance.

Sub Macro1()
Dim x As Integer
Dim nbcourbe As Integer
Dim ù As String
nbcourbe = 0
x = 1
ù = "ù"
Sheets("Feuil1").Select
Range("A1").Select
Do While nbcourbe < 124
Do While Not ActiveCell.Value = ù
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Offset(1, 1).Select
Do While Not IsEmpty(ActiveCell)
Sheets("Graphique1").Select
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(x).XValues = "=Feuil1!$B5:$B9"
ActiveChart.FullSeriesCollection(x).Values = "=Feuil1!$C5:$C9"
x = x + 1
Sheets("Feuil1").Select
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Offset(1, -1).Select
nbcourbe = nbcourbe + 1
Loop
End Sub

 

[remex32]

Je pense que le problème vient surtout qu'il n'y ai pas de cellule vide sous chaque série de valeur comme vous dites, en effet en exécutant le même programme sur d'autres donnée disposé avec un espace à la fin des series je ne constate pas de décalage.

 

[remex32]

Est il possible d'ajouter a votre macro d'ajouter une ligne vide au dessus de chaque cellule contenant "

Part protocol"

 

[Dranreb]

Ou bien les isoler des plages retenues. Mais êtes vous sûr que les données à retenir seront toujours suivies de ça ? C'est du bricolage tout ça à mon avis.

 

[remex32]

Il y aurait 125 plages a retenir par graphique ca serait bien trop long, oui c'est de l'extraction de donnée de plusieurs fichier regroupé en un seul à les un à la suite de l'autre.

 

[Dranreb]

Peut être est-ce là, en amont, qu'il faudrait intervenir.

 

[Dranreb]

Vous disiez que c'était le graphique établi par programme qui n'était pas bon, or les onglets disent le contraire.
C'est embêtant parce qu'en plus le code utilise un objet Graphique1 qui n'existe pas. Alors faut-il utiliser Graphique2 ou Graphique3 ?

 

[remex32]

Vu que je ne peux pas partager mon fichier il est trop lourd, j'ai pris des graphiques fait avec une autre feuille mais ça ne change pas le problème. Tout les graphiques sont décalés avec ce fichier. Mais il n'y a pas de décalage avec la même base de donnée avec des virgules en décimales par défaut (sans avoir à remplacer les points par des virgules) et un espace entre chaque séries.

 

[remex32]

Exécutez votre prgm avec le bon nom graphique et feuille pour mieux comprendre le problème. Les abscisses de l'ordre de l'unité se retrouve dans les 800. Je pense qu'en réalité l'axe abscisse devient non la valeur x mais le nombre de valeurs.

 

[Dranreb]

Non, là la Marcro1 semble prendre comme x les valeurs en colonne 2.

 

[remex32]

wow, comment avez vous fait ? sur le graphique à gauche du votre j'ai utilisé le programme et j'ai obtenu un étrange décalage. Avez vous changé quelque chose sur le programme ? Merci

 

[remex32]

J'ai recup le code de la macro, lorsque je le met sur mon fichier complet j'ai une erreur d'exécution 424 " objet requis" sur la ligne: If ChtTest.SeriesCollection.Count > 0 Then
Quelles champs du code dois je adapter à mon fichier ?

 

[remex32]

J'ai recup le code de la macro, lorsque je le met sur mon fichier complet j'ai une erreur d'exécution 424 " objet requis" sur la ligne: If ChtTest.SeriesCollection.Count > 0 Then
Quelles champs du code dois je adapter à mon fichier ?

C'est bon j'ai juste à modiftion le nom de propriété de mes graphiques par ChtTest, merci infiniment !

 

[Dranreb]

Je n'ai rien changé à la façon d'appliquer les données mais j'ai changé la façon de les cerner. C'était devenu idiot d'atteindre toutes les cellules contenant du texte en colonne A, alors j'ai fait en sorte d'atteindre toutes celles contenant un "ù" à l'aide d'une fonction de service installée juste en dessous. Je prend toujours la CurrentRegion à partir de chaque cellule trouvée, mais j'y cherche "Part protocol" dans la 1ère colonne pour l'arrêter une ligne avant si ça y existe.