Discussion :

[life is magic]

Salut !!?
Je veux Afficher sur Excel une graphe de fonction simple à partir de
Outils/Macro/Visual Basic Editor .

Sachant que sur l'excel sur les cases sont écrits les valeurs de x et de y ;
Sachant que l'axe des xest tel que :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

F5=0 ,F6=5 ,F7=10 ,F8=15 ,F9=20 ,F10=25

Sachant que l'axe des y est tel que :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

G5=32 ,G6=55 ,G7=10 ,F8=92 ,F9=37 ,F10=26

Quel est le bon code pour obtenir ce graphe de fonction........?
Merci .

[life is magic]

Je veux dire que les cases dans l'excel les x et les y sont déjà écrits.
Merci.

[Megaxel]

Hello!
Regarde le post "Selection d'une ligne selon saisie", tout près du tien. Tu y trouveras plein d'indications qui devraient te convenir.

[ouskel'n'or]

Essaie de faire ton graphe en l'enregistrant. Tu auras une macro. C'est la solution la plus simple pour toi et pour nous...
Une fois là, su tu veux des précisions, tu demandes, on s'aura où tu coinces...

A+

[life is magic]

Salut !
Merci message bien reçu 5/5.
Merci

[life is magic]

Bonjour moi c'est life is magic !
Je veux tracer une courbe (graphe) tel que les x corrrespondent aux valeurs de C
et les y corrrespondent aux valeurs de D.
Tous ces valeurs sont dans Excel tel que :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
C	D
0	0
5	5
10	85
15	90
20	115
25	120
30	175
35	180
40	265
45	270
50	300

Alors en utilisant le dans Outils/Mcro/Macros/Visual Basic Editor ;
Je veux afficher ce graphe dans Excel .
Quel est le bon code ? Merci

[ouskel'n'or]

Hello

Regarde si ça te convient...

Sub Macro5()
'

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
' Macro5 Macro
' Macro enregistrée le 17/11/2005
    Range("C1:D11").Select
    Charts.Add
    ActiveChart.ApplyCustomType ChartType:=xlBuiltIn, TypeName:= _
        "Courbes - Histogramme"
    ActiveChart.SetSourceData Source:=Sheets("Feuil1").Range("C1:D11"), PlotBy _
        :=xlColumns
    ActiveChart.Location Where:=xlLocationAsObject, Name:="Feuil1"
End Sub

A+

[AlainTech]

Essaie de faire ton graphe en l'enregistrant. Tu auras une macro. C'est la solution la plus simple pour toi et pour nous...
Une fois là, su tu veux des précisions, tu demandes, on s'aura où tu coinces...

A+

As-tu fait ce qu'a conseillé ouskel'n'or?

Enregistre une nouvelle macro et crée ton graphe dans Excel.
Quand c'est fini, arrête l'enregistrement de la macro.
Tu obtiendras un code tout fait.

[ouskel'n'or]

Salut Alain,

C'est ça les "jeûnes", comme dirait un lyonnais, ça écoute jamais les anciens...

A+

[life is magic]

Salut !

Je viens de tester le code que ouskel'n'or m'a donné .
Merci ,ça a très bien marché.
Mais [u]à chaque point correspond a un rectangle[/u].

Je veux que les points soient reliés par une ligne (qui est la courbe)

Mille Merci

[ouskel'n'or]

Pas en demandant "Courbes - Histogramme" ?

Qu'est-ce que ça donne si tu le fais manuellement ? Je parle de la macro enregistrée.

A+

[life is magic]

Bonjour !
Ca va ouskel'n'or :
Si on le fait manuellement c'est facile .................. Mais puisque on veut un programme qui trace la graphe à partir du code VBA.
Avec le code que tu as fais ça a marché très bien......Il y avait une courbe qui reliait les points. Finalement on a eu le graphe (courbe).

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Le seul petit probleme il y a aussi des rectangles tel que chaque point correspond à une rectangle.

Alors quel est le bon code pour qu'il y a un graphe sans des rectangles :

[SfJ5Rpw8]

Bonjour !
Ca va ouskel'n'or :
Si on le fait manuellement c'est facile .................. Mais puisque on veut un programme qui trace la graphe à partir du code VBA.

tu aurai écouté .. ouskel'n'or... , sélectionné le graphe.. puis lancer l'enregistrement d'une macro, enlever ensuite manuellement (c'est facile..) les points... arrêter l'enregistrement de la macro ...

tu aurai trouver dans la macro enregistrée ... la ligne de code à rajouter à ta procédure :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 ActiveChart.SeriesCollection(2).MarkerStyle = xlNone

[life is magic]

J'ai suivi les instructions comme ouskel'n'or m'a dit. Alors, quand j'ai obtenu graphe avec le histogramme j'ai tout simplement cliquez sur type graphique et j'ai choisi Nuages de points ensuite j'ai obtenu ce que je voulai.On peut dire que je suis satisfait.
Mais si on pourrait directement avoir un graphe en Nuages de points .je serai encore plus satisfait. :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Si non le code de [b]ouskel'n'or [/b]est[u] bon[/u]

Mille merci à tous.
Merci à notre inestimable ami ouskel'n'or .

[SfJ5Rpw8]

J'ai suivi les instructions comme ouskel'n'or m'a dit. Alors, quand j'ai obtenu graphe avec le histogramme j'ai tout simplement cliquez sur type graphique et j'ai choisi Nuages de points ensuite j'ai obtenu ce que je voulai.On peut dire que je suis satisfait.
Mais si on pourrait directement avoir un graphe en Nuages de points .je serai encore plus satisfait. :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Si non le code de [b]ouskel'n'or [/b]est[u] bon[/u]

Mille merci à tous.
Merci à notre inestimable ami ouskel'n'or .

as tu penser à activer l'enregistrement de macro et à voir à quoi corresponder le fait de choisir Nuage de points ? ... pour le rajouter à la macro d'origine ? ...

[life is magic]

Salut bbil
Je pense que le résultat que j'ai obtenu me satisfait. Et j'aurai d'auitres ennuis je ferai signe.
Merci bbil.

[ouskel'n'or]

Mais si on pourrait directement avoir un graphe en Nuages de points .je serai encore plus satisfait

Comme j'avais toujours mon test ouvert sur un micro, j'ai essayé ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
    Charts.Add
    ActiveChart.ApplyCustomType ChartType:=xlBuiltIn, TypeName:= _
        "Courbes - Histogramme"
    ActiveChart.SetSourceData Source:=Sheets("Feuil1").Range("B1:C11"), PlotBy _
        :=xlColumns
    ActiveChart.Location Where:=xlLocationAsObject, Name:="Feuil1"
    With ActiveChart
        .HasTitle = False
        .Axes(xlCategory, xlPrimary).HasTitle = False
        .Axes(xlValue, xlPrimary).HasTitle = False
        .Axes(xlCategory, xlSecondary).HasTitle = False
        .Axes(xlValue, xlSecondary).HasTitle = False
    End With
    ActiveChart.SeriesCollection(1).Select
    ActiveChart.SeriesCollection(1).ChartType = xlXYScatter

regarde si ça te convient

A+

L'inestimable ami ouskel'n'or

Je vais ajouter ça à ma signature, ça fera les pieds aux jaloux

[Megaxel]

Tu sais, Ousk', il suffit de regarder ton nombre d'étoiles (et de messages) pour te respecter et reconnaître ton talent. Nul besoin d'une signature "j'me la pète..."

[ouskel'n'or]

Jaloux !

Au fait, regarde ce qu'il a mis le grand chef

Merci de rester sur votre sujet d'origine

http://www.developpez.net/forums/vie...ae6f3121a58751



A+

[life is magic]

Salut à tous!

Quoi de neuf Megaxel ?
Tu disait à ouskel'n'or :

il suffit de regarder ton nombre d'étoiles (et de messages) pour te respecter et reconnaître ton talent.

Vu ses étoiles ,ouskel'n'or est un Général. Mais il l'est plus ..........
C'est un Grand Amiral .Qui a déjà tout vu .
Il a l'expérience Mais surtout ,il a le talent.
Alors , Admirez son chef d'oeuvre du chef


Mon Ami Megaxel
Il sait vivre et il aime le rire et la vie.C'est un bon vivant.....
Il a aussi toujours quelques choses caché sous son bonnet qui va vous impréssionner et étonner.
Il est le compagnon idéal pour ouvrir toutes les portes...
Megaxel est un Grand Artiste par excellence.
Alors Grand Respect pour le Grand Artiste. Car ils se font rares de nos jours



Avec le code que ouskel'n'or m'a donné j'ai ajouté juste une petite touche Et evidemment ça a très bien marché
Mille merci ouskel'n'or tu es bien notre inestimable ami ouskel'n'or



Enfin Je dedie le succés de mon projet à tous ceux qui m'ont aidé sur notre forum d'entraide.
Merci à tous et à très bientôt.

life is magic a dit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Ensemble  nous sommes Magique