Créer une macro pour tracer une courbe entre un point X et un point Y

Version imprimable

09/05/2014, 15h39
gomart

Créer une macro pour tracer une courbe entre un point X et un point Y

Bonjour,

J'ai plusieurs fichiers excel dotés d'une vingtaine d'onglets chacun.
Je souhaiterais tracer sur chaque onglet un graphique force (colone B) en fonction de la déformation (colone A), il faut que mes valeurs de déformation (colone A) soit comprises entre 0.05 et 0.3. C'est la que se trouve mon problème, comment faire pour chercher une valeur dans la colone A, la rentrer en mémoire et l'appeller pour tracer le graphique?
Je ne suis pas très douée pour coder, je voulais savoir si quelqu'un pouvait m'aider pour le codage :)

Merci
09/05/2014, 18h13
patricktoulon

heu

Bonjour
c'est pas très clair ta demande
reformule ta question de façon a que le plus grand nombre te comprenne

voir même un exemple avec tes 2 colonne remplie et un graphique fait manuellement en PJ
09/05/2014, 20h53
gomart

1 pièce(s) jointe(s)

autant pour moi :)

Désolée de pas avoir été clair :).
Voila ce que je veux faire (comme sur la PJ).
Pièce jointe 145368
Je n'ai mis qu'un onglet ici mais en fait mon problème est que sur mes différents onglets les valeurs dont j'ai besoin pour faire ma courbe ne sont pas situés à partir de la même ligne et j'aimerais créer une macro qui me permettrait de sélectionner les valeurs des colonnes A et B a partir du 1er 0,05 trouvé dans la colonne A jusqu'au dernier 0,29 trouvé dans la colonne A

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Option Explicit
 
Sub TraceGraphe()
Dim Ws As Worksheet
Dim PlageX As Range
Dim Ch As Chart
 
Application.ScreenUpdating = False
Set Ws = ThisWorkbook.Worksheets("Feuil1")
Set PlageX = Ws.Range(Ws.Cells(DEB(Ws), 1), Ws.Cells(FIN(Ws), 1))
Set Ch = Ws.ChartObjects.Add(150, 50, 400, 240).Chart
 
With Ch.SeriesCollection.NewSeries
    .ChartType = xlXYScatter
    .XValues = PlageX
    .Values = PlageX.Offset(, 1)
    .Trendlines.Add
    .Trendlines(1).DisplayEquation = True
End With
 
Set Ch = Nothing
Set PlageX = Nothing
Set Ws = Nothing
End Sub
 
Private Function DEB(ByVal Ws As Worksheet) As Long
Dim ShName As String
Dim LastLig As Long
 
With Ws
    ShName = "'" & Ws.Name & "'!"
    LastLig = .Cells(.Rows.Count, 1).End(xlUp).Row
End With
 
DEB = Evaluate("=MATCH(VLOOKUP(0.00499999," & ShName & "A2:A" & LastLig & ",1)," & ShName & "A1:A" & LastLig & ",0)+1")
End Function
 
Private Function FIN(ByVal Ws As Worksheet) As Long
Dim ShName As String
Dim LastLig As Long
 
With Ws
    ShName = "'" & Ws.Name & "'!"
    LastLig = .Cells(.Rows.Count, 1).End(xlUp).Row
End With
 
FIN = Evaluate("=MATCH(VLOOKUP(0.2999999," & ShName & "A2:A" & LastLig & ",1)," & ShName & "A1:A" & LastLig & ",0)")
End Function

10/05/2014, 11h35
gomart

Merci!!

Merci beaucoup pour votre aide a tout les deux