Graph XY + assigner valeur correspondante

[mowts]

Bonjour,

J'ai besoin d'un tout petit coup de main :

Je trace une courbe (Nuage de point) sur Excel le trajet d'un objet sur un plan XY.
J'ai donc 2 colonnes pour X et Y.
J'ai une autre colonne avec une vitesse.

Et je voudrai assigner pour chaque point du trajet, la vitesse correspondante.

Quelqu'un aurait-il une idée de la formule a appliquer ou d'un script VB ?

Merci d'avance.

 

[Odesta]

Re : Graph XY + assigner valeur correspondante

Bonjour

L'unité qui sépare deux points est en seconde ?

La vitesse est en ligne droite ? donc entre x1,y1 et x2,y2 ?

Si oui ;
V2 = RACINE((x2-x1)^2+(y2-y1)^2)/(unité de vitesse)
(mettre à x2, x1, y2, y1 les bonnes référence de cellule)

Voici un début de réponse
Pour d'autre méthode de calcule de vitesse, il nous faudra plus d'éléments

Cordialement
Olivier

 

[mowts]

Re : Graph XY + assigner valeur correspondante

Bonjour,

Merci d'avoir répondu ! en faite je n'ai pas besoin de calculer la vitesse, je la connais déjà.
Mon graphe représente la déplacement d'un objet. Ce déplacement est tracé en fonction de la vitesse et de la direction de l'objet. J'arrive donc à partir de ces données à calculer les coordonnées x et y qui représente le trajet de l'objet.
Je voudrai maintenant pouvoir afficher la vitesse correspond au différent point pour pouvoir visualiser le trajet en fonction de sa vitesse. Mais je ne sais pas si cela est possible sous excel.

Voila merci qd même pour la reponse.

 

[CB60]

Re : Graph XY + assigner valeur correspondante

Bonsoir
peut tu mettre un petit exemple de ton fichier??

 

[mowts]

Re : Graph XY + assigner valeur correspondante

Bonjour,

Voila un petit exemple du fichier que je veux réalisé.

 

[CB60]

Re : Graph XY + assigner valeur correspondante

re
Test cela:

Sub essai()
  ActiveSheet.ChartObjects(1).Activate
  On Error Resume Next
  ActiveChart.SeriesCollection(1).ApplyDataLabels Type:=xlDataLabelsShowLabel
  On Error GoTo 0
  For i = 1 To ActiveChart.SeriesCollection(1).Points.Count
    ActiveChart.SeriesCollection(1).Points(i).DataLabel.Select
    Selection.Position = xlLabelPositionAbove
    Selection.Font.Size = 7
    Selection.Text = ActiveSheet.Cells(5, i + 1)
    ActiveChart.SeriesCollection(1).Points(i).MarkerBackgroundColorIndex = 4
  Next i
End Sub

 

[mowts]

Re : Graph XY + assigner valeur correspondante

Ou il faut que je rentre ce code, est ce que je dois créer une macro ?
Comme je ne connais pas trop excel je suis un peu largué !!
C'est du VB ?

Merci pour la réponse

 

[mowts]

Re : Graph XY + assigner valeur correspondante

Ou est ce qu'il faut que je rentre ce code ? Faut-il que je crée une Macro ?
Connaissant pas trop Excel je suis un peu largué ?
Est ce du VB ?

Merci pour la réponse

 

[jeanpierre]

Re : Graph XY + assigner valeur correspondante

Bonjour mowts, Bruno, Odesta,

CB60 étant déconnecté, je me permets de te répondre.

Alt F11 pour aller sous VBE, Affichage/Explorateur de projet.

Tu vas trouver ton fichier, clic droit dessus et Insertion Module dans lequel tu colles le code de CB60 (partie droite)

Ensuite, revenu sur Excel, Outils/Macro/Macros et, positionné sur essai, tu cliques sur Exécuter.

Sinon, tu peux aussi mettre un bouton sur ta feuille auquel tu affectes cette macro.

J'espère être clair.

Bonne journée.

Jean-Pierre

 

[mowts]

Re : Graph XY + assigner valeur correspondante

Merci pour cette réponse, sa fonctionne bien !!
Maintenant il faut que je comprenne le code pour l'adapter à mon vrai fichier excel !!
C la que ça va être plus dur !!!

Et sinon est-il possible par exemple de n'afficher que ma vitesse pour certains points ?
Car dans mon fichier original, j'aurai quand même entre 1000 et 5000 points alors si j'affiche les valeurs à chaque point ce sera peut être illisible ?
Je suppose que pour ça il va falloir que je modifie un peu la boucle for ?

Merci encore pour toutes ces réponses !!!!

 

[mowts]

Re : Graph XY + assigner valeur correspondante

Bon tant que je suis dans mes question je continue 🙂

J'aurai voulu savoir comment modifier ce code si le graphique n'est pas dans la même feuille que le tableau contenant les données ??

Merci encore !!!

 

[CB60]

Re : Graph XY + assigner valeur correspondante

re Bonjour à tous
je te mets ton graph avec la macro, j'ai copié le graph sur la feuille 2 et mis un petit bouton pour mettre les étiquettes.
Sur ta feuille en en ligne 14 j'ai mis des valeurs qui sont afficher sur le graph, il te suffit de mettre une condition sur tes vitesses et de les reporter sur cette ligne pour afficher ce que tu souhaite.
Pour ne pas afficher les Zéro, regarde la cellule en jaune

 

[mowts]

Re : Graph XY + assigner valeur correspondante

re Bonjour!

Ta technique marche nickel !! mais par contre j'ai quand même un soucie parce que lorsque que j'essaie de le faire sur un fichier ou j'ai 1000 points même si je veux afficher qu'une dizaine de valeur sur les 1000 points excel plante (ou reste ramer !!)
Je pense que c parce que même si les cases sont vides, il cherche quand même à afficher une case vierge !!
Donc j'ai essayé de modifier un peu la boucle for voir si je pouvais mais ça ne fonctionne pas !
Est-il possible de modifier directement la boucle for de façon à prendre par exemple qu'une valeur sur 1à ou sur 100 ?

Merci pour la réponse !!

 

[CB60]

Re : Graph XY + assigner valeur correspondante

re
je ferais un test ce soir, mais lorsque les cellules sont vides, en réalité il faut qu'un espace soit dans cette cellule, pour ne pas mettre de zero sur ton graph et comme les valeurs sont reconnus comme du texte.
Pour le temps d'execution il faut peut etre mettre dans la boucle un "step" je ne sais pas trop, moi je suis plus graphique sans macro, mais de temps en temps on ne peut pas faire autrement!!

edit pour ton fichier avec 1000 points, tu les a en ligne, a tu modifié la macro pour cela??

 

[mowts]

Re : Graph XY + assigner valeur correspondante

en faites mon fichier excel est un peu lourd pour le mettre en ligne (17 Mo).
Sinon pour l'instant, j'ai juste modifié la ligne "Selection.Text = ActiveSheet.Cells(5, i + 1)" pour permettre de coller avec mon tableau.*

J'ai essayé d'autre modif pour par exemple faire une plus petite boucle :
"For i = 1 To (ActiveChart.SeriesCollection(1).Points.Count)/10"
Mais ça n'as pas l'air de fonctionner.

Et lorsque je fais mon graphe et que je veux afficher mille valeur excel plante 🙁

Merci encore pour toutes ces aides sur excel !!!