Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
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.
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.
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.
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
Une dernière petite chose ... mon fichier est blindé de donnée (+1.000.000 lignes) possible de mettre en place un boucle pour faire un graphique de 125 courbes ? Au delà de 256 j'obtiens une erreur comme quoi il est impossible d'avoir + de 256 séries. Merci
Pas vraiment, je souhaite avoir sur le même graph les 125 series donc les conserver et non les supprimer.
J'ai tjr le même soucis (erreur 424 objet requis) avec ces lignes :
Graphique2.SeriesCollection(1).Delete: Wend
Set Ser = Graphique2.SeriesCollection.NewSeries
Pour le...
Aussi un autre point, j'aimerai creer le graphe vierge avant d'y insérer les courbes. Lorsque je met ces lignes de code avant le prgm, plus rien de fonctionne. Un avis ? Merci d'avance ...
ActiveSheet.Shapes.AddChart2(240, xlXYScatterSmoothNoMarkers).Select
ActiveChart.Location...
Pouvez-vous alors expliquer les fonctions du prgm que vous m'avez donné ? Effectivement j'essai d'adapter ce prgm à un fichier confidentiel néanmoins la petite base de données que vous ai fourni est dans la même idée. Je m'explique : en colonne A lorsque l'on tombe sur un "ù" ajouter une courbe...
Ce site utilise des cookies pour personnaliser le contenu, adapter votre expérience et vous garder connecté si vous vous enregistrez.
En continuant à utiliser ce site, vous consentez à notre utilisation de cookies.