Contenu récent par remex32

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

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 ?

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

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.

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...

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.

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

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.

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

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

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ù.

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 =...

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.

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

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