Je cherche une fonction perso qui trace un graphique dans une cell
14 réponses
Trirème
Bonjour à tous,
Je recherche une fonction perso dont l'objet est de tracer un
micro-graphique dans une cellule grâce à l'outil de dessin (forme
automatique, ligne, forme libre). Les arguments passés à la fonction sont le
range des cellules à prendre en compte et la couleur du tracé.
Je précise que j'ai vu cette fonction il y a quelques temps, je ne sais plus
ni où ni de qui, et de toute façon, je l'ai perdue.
Si quelqu'un pouvait pallier mon alzheimer naissant, je l'en remercierai.
Je recherche une fonction perso dont l'objet est de tracer un micro-graphique dans une cellule grâce à l'outil de dessin
Function LineChart(Points As Range, ByVal Color%) 'Rob Van Gelder Const KMarge = 2 Dim Ref As Range, ShRg(), Bcle& Dim Min#, Max#, Pts, Cnt&
On Error Resume Next Set Ref = Application.Caller
With Points If .Rows.Count > 1 And .Columns.Count > 1 Then LineChart = CVErr(xlErrValue): Exit Function End If Pts = .Value: Cnt = .Count If .Columns.Count > 1 Then Pts = Application.Transpose(Pts) End With leMin = Application.Min(Pts) leMax = Application.Max(Pts)
ReDim ShRg(0 To Cnt - 2) With Ref .Worksheet.Shapes(.Address).Delete
With .Worksheet.Shapes.Range(ShRg) .Group .Line.ForeColor.SchemeColor = Abs(Color) .Name = Ref.Address End With End With LineChart = "" End Function
Utilisation dans une cellule: =LineChart(LaPlage;IndexCouleur)
Exemple là : http://cjoint.com/?gspRLyujgC
AV
Je recherche une fonction perso dont l'objet est de tracer un
micro-graphique dans une cellule grâce à l'outil de dessin
Function LineChart(Points As Range, ByVal Color%) 'Rob Van Gelder
Const KMarge = 2
Dim Ref As Range, ShRg(), Bcle&
Dim Min#, Max#, Pts, Cnt&
On Error Resume Next
Set Ref = Application.Caller
With Points
If .Rows.Count > 1 And .Columns.Count > 1 Then
LineChart = CVErr(xlErrValue): Exit Function
End If
Pts = .Value: Cnt = .Count
If .Columns.Count > 1 Then Pts = Application.Transpose(Pts)
End With
leMin = Application.Min(Pts)
leMax = Application.Max(Pts)
ReDim ShRg(0 To Cnt - 2)
With Ref
.Worksheet.Shapes(.Address).Delete
Je recherche une fonction perso dont l'objet est de tracer un micro-graphique dans une cellule grâce à l'outil de dessin
Function LineChart(Points As Range, ByVal Color%) 'Rob Van Gelder Const KMarge = 2 Dim Ref As Range, ShRg(), Bcle& Dim Min#, Max#, Pts, Cnt&
On Error Resume Next Set Ref = Application.Caller
With Points If .Rows.Count > 1 And .Columns.Count > 1 Then LineChart = CVErr(xlErrValue): Exit Function End If Pts = .Value: Cnt = .Count If .Columns.Count > 1 Then Pts = Application.Transpose(Pts) End With leMin = Application.Min(Pts) leMax = Application.Max(Pts)
ReDim ShRg(0 To Cnt - 2) With Ref .Worksheet.Shapes(.Address).Delete
With .Worksheet.Shapes.Range(ShRg) .Group .Line.ForeColor.SchemeColor = Abs(Color) .Name = Ref.Address End With End With LineChart = "" End Function
Utilisation dans une cellule: =LineChart(LaPlage;IndexCouleur)
Exemple là : http://cjoint.com/?gspRLyujgC
AV
Trirème
Merci Alain, C'est pile poil ce que j'avais perdu. Maintenant c'est classé et référencé.
Bonne journée et merci encore. tu viens de faire un heureux. Cordialement, Trirème
Je recherche une fonction perso dont l'objet est de tracer un micro-graphique dans une cellule grâce à l'outil de dessin
Function LineChart(Points As Range, ByVal Color%) 'Rob Van Gelder Const KMarge = 2 Dim Ref As Range, ShRg(), Bcle& Dim Min#, Max#, Pts, Cnt&
On Error Resume Next Set Ref = Application.Caller
With Points If .Rows.Count > 1 And .Columns.Count > 1 Then LineChart = CVErr(xlErrValue): Exit Function End If Pts = .Value: Cnt = .Count If .Columns.Count > 1 Then Pts = Application.Transpose(Pts) End With leMin = Application.Min(Pts) leMax = Application.Max(Pts)
ReDim ShRg(0 To Cnt - 2) With Ref ..Worksheet.Shapes(.Address).Delete
With .Worksheet.Shapes.Range(ShRg) ..Group ..Line.ForeColor.SchemeColor = Abs(Color) ..Name = Ref.Address End With End With LineChart = "" End Function
Utilisation dans une cellule: =LineChart(LaPlage;IndexCouleur)
Exemple là : http://cjoint.com/?gspRLyujgC
AV
Merci Alain,
C'est pile poil ce que j'avais perdu.
Maintenant c'est classé et référencé.
Bonne journée et merci encore. tu viens de faire un heureux.
Cordialement,
Trirème
Je recherche une fonction perso dont l'objet est de tracer un
micro-graphique dans une cellule grâce à l'outil de dessin
Function LineChart(Points As Range, ByVal Color%) 'Rob Van Gelder
Const KMarge = 2
Dim Ref As Range, ShRg(), Bcle&
Dim Min#, Max#, Pts, Cnt&
On Error Resume Next
Set Ref = Application.Caller
With Points
If .Rows.Count > 1 And .Columns.Count > 1 Then
LineChart = CVErr(xlErrValue): Exit Function
End If
Pts = .Value: Cnt = .Count
If .Columns.Count > 1 Then Pts = Application.Transpose(Pts)
End With
leMin = Application.Min(Pts)
leMax = Application.Max(Pts)
ReDim ShRg(0 To Cnt - 2)
With Ref
..Worksheet.Shapes(.Address).Delete
With .Worksheet.Shapes.Range(ShRg)
..Group
..Line.ForeColor.SchemeColor = Abs(Color)
..Name = Ref.Address
End With
End With
LineChart = ""
End Function
Utilisation dans une cellule:
=LineChart(LaPlage;IndexCouleur)
Merci Alain, C'est pile poil ce que j'avais perdu. Maintenant c'est classé et référencé.
Bonne journée et merci encore. tu viens de faire un heureux. Cordialement, Trirème
Je recherche une fonction perso dont l'objet est de tracer un micro-graphique dans une cellule grâce à l'outil de dessin
Function LineChart(Points As Range, ByVal Color%) 'Rob Van Gelder Const KMarge = 2 Dim Ref As Range, ShRg(), Bcle& Dim Min#, Max#, Pts, Cnt&
On Error Resume Next Set Ref = Application.Caller
With Points If .Rows.Count > 1 And .Columns.Count > 1 Then LineChart = CVErr(xlErrValue): Exit Function End If Pts = .Value: Cnt = .Count If .Columns.Count > 1 Then Pts = Application.Transpose(Pts) End With leMin = Application.Min(Pts) leMax = Application.Max(Pts)
ReDim ShRg(0 To Cnt - 2) With Ref ..Worksheet.Shapes(.Address).Delete
With .Worksheet.Shapes.Range(ShRg) ..Group ..Line.ForeColor.SchemeColor = Abs(Color) ..Name = Ref.Address End With End With LineChart = "" End Function
Utilisation dans une cellule: =LineChart(LaPlage;IndexCouleur)
Exemple là : http://cjoint.com/?gspRLyujgC
AV
Modeste
Bonsour® Trirème avec ferveur ;o))) vous nous disiez :
Je recherche une fonction perso dont l'objet est de tracer un micro-graphique dans une cellule grâce à l'outil de dessin (forme automatique, ligne, forme libre). Les arguments passés à la fonction sont le range des cellules à prendre en compte et la couleur du tracé. Je précise que j'ai vu cette fonction il y a quelques temps, je ne sais plus ni où ni de qui, et de toute façon, je l'ai perdue. Si quelqu'un pouvait pallier mon alzheimer naissant, je l'en remercierai.
surtout ne pas manquer de lire les commentaires : que des pointures !!!
-- -- @+ ;o)))
Bonsour® Trirème avec ferveur ;o))) vous nous disiez :
Je recherche une fonction perso dont l'objet est de tracer un
micro-graphique dans une cellule grâce à l'outil de dessin (forme
automatique, ligne, forme libre). Les arguments passés à la fonction sont le
range des cellules à prendre en compte et la couleur du tracé.
Je précise que j'ai vu cette fonction il y a quelques temps, je ne sais plus
ni où ni de qui, et de toute façon, je l'ai perdue.
Si quelqu'un pouvait pallier mon alzheimer naissant, je l'en remercierai.
Bonsour® Trirème avec ferveur ;o))) vous nous disiez :
Je recherche une fonction perso dont l'objet est de tracer un micro-graphique dans une cellule grâce à l'outil de dessin (forme automatique, ligne, forme libre). Les arguments passés à la fonction sont le range des cellules à prendre en compte et la couleur du tracé. Je précise que j'ai vu cette fonction il y a quelques temps, je ne sais plus ni où ni de qui, et de toute façon, je l'ai perdue. Si quelqu'un pouvait pallier mon alzheimer naissant, je l'en remercierai.
surtout ne pas manquer de lire les commentaires : que des pointures !!!
En effet, ce fil est l'équivalent Excel du G8 ! Ils sont tous là !
... vais ranger mon clavier et me mettre au tricot.
Cordialement et merci ;-) Trirème
Francois L
surtout ne pas manquer de lire les commentaires : que des pointures !!!
En effet, ce fil est l'équivalent Excel du G8 ! Ils sont tous là !
... vais ranger mon clavier et me mettre au tricot.
Salut Trirème,
Sur, DDOE et ses commentateurs, c'est quelque chose... mais fais gaffe, peut-être qu'ils sont aussi bons en tricot. En tout cas, parmi eux, il y en a qui s'intéressent au tricot : http://j-walkblog.com/index.php?/weblog/comments/knitting_your_dog/
-- François L
surtout ne pas manquer de lire les commentaires : que des pointures !!!
En effet, ce fil est l'équivalent Excel du G8 ! Ils sont tous là !
... vais ranger mon clavier et me mettre au tricot.
Salut Trirème,
Sur, DDOE et ses commentateurs, c'est quelque chose... mais fais gaffe,
peut-être qu'ils sont aussi bons en tricot. En tout cas, parmi eux, il y
en a qui s'intéressent au tricot :
http://j-walkblog.com/index.php?/weblog/comments/knitting_your_dog/
surtout ne pas manquer de lire les commentaires : que des pointures !!!
En effet, ce fil est l'équivalent Excel du G8 ! Ils sont tous là !
... vais ranger mon clavier et me mettre au tricot.
Salut Trirème,
Sur, DDOE et ses commentateurs, c'est quelque chose... mais fais gaffe, peut-être qu'ils sont aussi bons en tricot. En tout cas, parmi eux, il y en a qui s'intéressent au tricot : http://j-walkblog.com/index.php?/weblog/comments/knitting_your_dog/
-- François L
Trirème
... En tout cas, parmi eux, il y en a qui s'intéressent au tricot : http://j-walkblog.com/index.php?/weblog/comments/knitting_your_dog/
<citation> : "Dog fur is up to 80% warmer then sheep's wool" </citation>
... C'est en quelque sorte l'autre version du hotdog :-P Mai pour le tricot, qu'importe la matière, l'important c'est qu'il maille à l'endroit comme à l'envers. Amicalement, Trirème
... En tout cas, parmi eux, il y
en a qui s'intéressent au tricot :
http://j-walkblog.com/index.php?/weblog/comments/knitting_your_dog/
<citation> : "Dog fur is up to 80% warmer then sheep's wool" </citation>
... C'est en quelque sorte l'autre version du hotdog :-P
Mai pour le tricot, qu'importe la matière, l'important c'est qu'il maille à l'endroit
comme à l'envers.
Amicalement,
Trirème
... En tout cas, parmi eux, il y en a qui s'intéressent au tricot : http://j-walkblog.com/index.php?/weblog/comments/knitting_your_dog/
<citation> : "Dog fur is up to 80% warmer then sheep's wool" </citation>
... C'est en quelque sorte l'autre version du hotdog :-P Mai pour le tricot, qu'importe la matière, l'important c'est qu'il maille à l'endroit comme à l'envers. Amicalement, Trirème
Francois L
... En tout cas, parmi eux, il y en a qui s'intéressent au tricot : http://j-walkblog.com/index.php?/weblog/comments/knitting_your_dog/
<citation> : "Dog fur is up to 80% warmer then sheep's wool" </citation>
... C'est en quelque sorte l'autre version du hotdog :-P
oui mais.... il nous reste encore la toison à Borloo jps
Bonsoir Président,
Si Joël vois ça ==> Couic
-- François L
jps
bonsoir françois quel couic???? le message BMW du 18/06 à 7h22 est toujours visible.... mais, j'y pense...Joël attend peut-être que ce soit le Président qui lui donne l'ordre de le supprimer et non pas quelque MVP dont on ne saurait dire s'il est de la Marche ou du Limousin... jps
"Francois L" a écrit dans le message de news:
oui mais.... il nous reste encore la toison à Borloo jps
Bonsoir Président,
Si Joël vois ça ==> Couic
-- François L
bonsoir françois
quel couic???? le message BMW du 18/06 à 7h22 est toujours visible....
mais, j'y pense...Joël attend peut-être que ce soit le Président qui lui
donne l'ordre de le supprimer et non pas quelque MVP dont on ne saurait dire
s'il est de la Marche ou du Limousin...
jps
"Francois L" <francois@noadress.fr.invalid> a écrit dans le message de news:
eo2p3XrsHHA.4916@TK2MSFTNGP04.phx.gbl...
oui mais....
il nous reste encore la toison à Borloo
jps
bonsoir françois quel couic???? le message BMW du 18/06 à 7h22 est toujours visible.... mais, j'y pense...Joël attend peut-être que ce soit le Président qui lui donne l'ordre de le supprimer et non pas quelque MVP dont on ne saurait dire s'il est de la Marche ou du Limousin... jps
"Francois L" a écrit dans le message de news:
oui mais.... il nous reste encore la toison à Borloo jps
