VBA : graphique XY avec 2 colonnes X

Bonjour à tous,

Je souhaite réaliser un graphique en XY avec droites avec VBA. Le problème est qu'avec ce type de graphe, les données doivent être présentées dans une colonne Y et une colonne X.

Mais j'aurai besoin d'avoir 2 colonnes X où les données seraient lues de cette façon :

C3 = 0, D3 <> 0 donc le 1er point est (B3;D3)

C4 <> 0 donc le point 2 est (B4;C4) et le point 3 est (B4;D4) car D4 <> 0

C5 <> 0 donc le point 4 est (B5;C5) et c'est le dernier point car D5 =0

Pour résumé, j'aimerai tester la 1ère valeur de X1 pour savoir si :

- elle est vide je passe à la valeur X2 qui sera le seul point avec cette valeur Y

-elle contient une valeur, j'obtiens un premier point pour ma série de donnée avec la valeur Y, puis je teste la valeur X2 et si elle n'est pas vide cella fait un deuxième point avec la même valeur Y.

Donc pour une même valeur Y il pourrait il y avoir 2 valeurs X différentes. Ces valeurs X1 et X2 sont des heures.

Je ne suis pas parvenu à construire le graphique avec ces 3 colonnes. Et je ne sais pas si cela est faisable ? Je suis preneur de toutes pistes ou propositions.

Merci par avance pour votre aide !

(Dans le fichier joint il y joint, ces valeurs X et Y sont contenus dans la Feuil1. La Feuil3 contient d'autres données qui ajoutent au graphique des droites horizontales

Bonjour,

Petite remontée du sujet

Merci par avance pour votre aide !

JoeBlier

bonjour, il n'y a pas de différence depuis le début, je ne comprends pas la question

Bonjour,

Voici ma question reformulée :

Pour un graphique XY avec droite, est-il possible, d'avoir pour une même valeur Y, 2 valeurs X différentes présentées dans 2 colonnes ?

Je ne sais pas si elle est plus claire ainsi ?

un essai, autrement montrez les coordinates pour ces séries.

Bonjour,

Je te remercie ! Cela fonctionne très bien !

Par contre, je n'ai pas utilisé ces 2 lignes, sont-elles vraiment utiles ? :

                  Range("A10").Resize(, ptr).Value = Application.Index(XY, 1, 0)
                  Range("A11").Resize(, ptr).Value = Application.Index(XY, 2, 0)

JoeBlier

bonjour,

Non, elles ne sont pas utiles, c'était à vous montrer le contenu des valeurs des séries X & Y.

D'accord merci !