Graphe et Macro et Excel et VBA

Version imprimable

15/11/2005, 14h11
life is magic

Graphe et Macro et Excel et VBA

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:

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

Sachant que l'axe des y est tel que :

Code:

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

Quel est le bon code pour obtenir ce graphe de fonction........?
Merci .
15/11/2005, 14h18
life is magic

Explication en plus

Je veux dire que les cases dans l'excel les x et les y sont déjà écrits.
Merci.
15/11/2005, 14h25
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.
15/11/2005, 14h25
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+
15/11/2005, 15h06
life is magic

MERCI

Salut !
Merci message bien reçu 5/5.
Merci :merci:
17/11/2005, 10h23
life is magic

Demande d'aide
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:

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 :merci:

Hello

Regarde si ça te convient...

Sub Macro5()
'

Code:

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+

17/11/2005, 10h45
AlainTech

Citation:

Envoyé par 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+

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.
17/11/2005, 10h47
ouskel'n'or

Salut Alain,

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

A+
17/11/2005, 13h26
life is magic

Suite question

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

Citation:

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

Mille Merci :merci:
17/11/2005, 21h06
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+
18/11/2005, 09h09
life is magic

Réponse

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:

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 :!: :?:
18/11/2005, 09h42
SfJ5Rpw8

Re: Réponse

Citation:

Envoyé par 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.

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:

ActiveChart.SeriesCollection(2).MarkerStyle = xlNone

:wink:
18/11/2005, 10h38
life is magic

Réponse

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. :merci:
Mais si on pourrait directement avoir un graphe en Nuages de points .je serai encore plus satisfait. :!: :?:

Code:

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

Mille merci à tous.
Merci :merci: à notre inestimable ami ouskel'n'or .
18/11/2005, 10h47
SfJ5Rpw8

Re: Réponse

Citation:

Envoyé par 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. :merci:
Mais si on pourrait directement avoir un graphe en Nuages de points .je serai encore plus satisfait. :!: :?:

Code:

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

Mille merci à tous.
Merci :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 ? ... :roll: :wink:
18/11/2005, 11h10
life is magic

Merci

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.

Citation:

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:

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+

Citation:

L'inestimable ami ouskel'n'or

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

18/11/2005, 13h47
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..."
:D
18/11/2005, 14h20
ouskel'n'or

Jaloux !

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

Citation:

Merci de rester sur votre sujet d'origine

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

:lol:

A+
18/11/2005, 17h19
life is magic

Remerciment

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 :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 :merci: et à très bientôt.

life is magic a dit :

Code:

Ensemble nous sommes Magique
18/11/2005, 17h24
life is magic

Suite

Mon ami Megaxel quand je disait:

Code:

Il sait vivre et il aime le rire etc............

Bien sûre que c'est de toi que je parle .
Merci et A+