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]

125 c'est inférieur à 256 !

Oui je suis d'accord avec vous mdr, mais lors de l'execution du prgm ca me dit comme quoi + de 256 séries allaient être tracé, hors la limite est de 256 donc j'en ai 256 et non 125, pb : mon graphique devient illisible

 

[Dranreb]

C'est pourquoi il faut de quoi faire le ménage dans les veilles séries, soit systématiquement soit sur demande dans une procédure séparée.

 

[remex32]

D'accord je devrais pouvoir à présent me débrouiller. Encore merci à vous, bon week end.

 

[remex32]

Re bonjour et oui me revoilà ... lors de l'exécution de votre prgm j'obtiens belle est bien mes courbes attendu sur mon graphique mais l'axes des abscisses est faussé avec un décalage que je ne sais pas expliqué. Avez vous une idée de la cause ? Par avance, merci.

 

[Dranreb]

Bonsoir.
Il faudrait que je puisse voir le classeur. Pouvez vous le joindre.

 

[Dranreb]

Bonjour.
Un problème de cohérence entre format et extension du fichier rend impossible l'ouverture du PBdecalage.xlsm

 

[Dranreb]

S'il aurait dû y avoir des macros dedans enregistrez le en tant que classeur Excel prenant en charge les macros.

 

[remex32]

La macro utilisée est la 1ere que vous m'aviez donné :

Sub Macro1()
Dim Cel As Range, RDon As Range, Ser As Series
For Each Cel In Feuil1.Columns(1).SpecialCells(xlCellTypeConstants, 2)
If Cel.Value = "ù" Then
Set RDon = Cel.CurrentRegion
Set Ser = Graphique1.SeriesCollection.NewSeries
Ser.XValues = "=" & RDon(2, 2).Resize(RDon.Rows.Count - 1).Address(External:=True)
Ser.Values = "=" & RDon(2, 3).Resize(RDon.Rows.Count - 1).Address(External:=True)
End If
Next Cel
End Sub

 

[Dranreb]

Il n'y a toujours pas de macro dans ce classeur, ni d'ailleurs de donnéee commençant par "ù" en
colonne A.
Ah, si, plus bas. Mais ça ne va pas. Il ne devrait pas y avoir d'autres choses en colonne A.

 

[remex32]

Mais malgré la présence d'autres choses en dans la colonne A le programme se tient bien mise à part un décalage qui sort de je ne sais où.

 

[Dranreb]

Dans le classeur de départ il n'y avait rien d'autre en colonne A que ces valeurs en têtes de paquet dont il fallait tracer les "ù", et chaque paquet était toujours suivi d'une ligne vide. Là les CurrentRegion s'étendent au delà.

 

[remex32]

Ah d'accord et du coup avez vous une solution ?

 

[Dranreb]

Pas trop, non

 

[remex32]

Peut être une fonction qui dans la colonne A supprime tout ce qui n'est pas nombre ou ù ? Pas facile

 

[Dranreb]

Oui il faut d'une manière où d'une autre trouver un moyen plus sérieux d'isoler les données. C'est un vrai foutoir cette feuille ! Ne pouvez vous pas mettre sous forme de tableaux les données intéressantes ?