Tracer une fonction sous Excel

Version imprimable

20/07/2010, 11h26
manaliac

Tracer une fonction sous Excel

Bonjour,

Je suis une débutante ( mais alors là vraiment XD) et je voudrais tracer une fonction sous Excel sans que je rentre des valeurs, mais en entrant la formule de la fonction !

Est ce que cela veut dire que je devrais programmer une macro ? Et si vous avez un exemple de macro adapté ?

Merci infiniment !
M.
20/07/2010, 13h05
delphine35

Citation:

je voudrais tracer une fonction

Quelle fonction ? :calim2:

Qu'est ce que tu veux tracer ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Private Sub CommandButton1_Click()
Dim fct As String
Dim Xmin As Double, Xmax As Double, Pas As Double, i As Double, Nb As Long, j As Double
Dim tb() As Double
With Sheets("Feuil3")
    fct = "=" & .Range("B1")    'en B1 la fonction en fonction de x
    Xmin = .Range("B2")         'en B2 la valeur de Xmin
    Xmax = .Range("B3")         'en B3 la valeur Xmax
    Pas = .Range("B4")          'en B4 le pas
    Nb = Int((Xmax - Xmin) / Pas) + 1
    ReDim tb(1 To 2, 1 To Nb)
    For i = Xmin To Xmax Step Pas
        j = j + 1
        tb(1, j) = i
        On Error Resume Next
        tb(2, j) = Evaluate(Replace(fct, "x", i))
        On Error GoTo 0
    Next i
    .Columns("G:H").ClearContents
    .Range("G1") = "x": .Range("H1") = "f(x)"
    .Range("G2:H" & Nb + 1) = Application.Transpose(tb)
        Charts.Add
        ActiveChart.ChartType = xlXYScatterSmoothNoMarkers
        ActiveChart.SetSourceData Source:=.Range("G1:H" & Nb + 1)
        ActiveChart.Location Where:=xlLocationAsObject, Name:=.Name
        ActiveChart.Legend.Delete
        With ActiveChart.Axes(xlCategory)
            .MinimumScale = Xmin
            .MaximumScale = Xmax
            .MinorUnit = Pas
        End With
End With
End Sub

Pour des fonction simples et attention quand même à la fonction exponentielle!

20/07/2010, 14h14
delphine35

Ton soucis peut venir de la codif de ta fonction :

Code:

Replace(fct, "x", i)

Tu remplace le "x" par i , exemple prennons x=1

10 multiplier par x : "10x" => 101 au lieu de "10*1"

Il faut bien mettre "10*x" dans la cellule B1
:ccool:
20/07/2010, 14h20
mercatog

Certes il faut écrire en B1 la fonction sous cette forme (par exemple)

Citation:

x*Cos(x)/(1+Sin(x))
20/07/2010, 14h23
delphine35

Et quel est ton soucis exactement ? Ca a l'air de fonctionner ? :calim2:
20/07/2010, 14h32
mercatog

Qui a parlé de souci?:?
le seul souci est pour les fonctions ayant un x (exemple exp(x))
20/07/2010, 16h43
delphine35

J'ai cru que s'etais manaliac qui repondait ... :pastaper:

Tout va bien alors ... :mrgreen: