[VBA-E]Données d'un graphique

Version imprimable

Voir 40 message(s) de cette discussion en une page

21/07/2006, 11h36
ouskel'n'or
Et pour effacer les légendes encombrantes
Code:

1 2 3 With ActiveSheet.ChartObjects("Graphique 1").Chart .Legend.LegendEntries(4).Delete End With
Ceci dit, avec le tableau, je ne suis pas sûr que tes séries ne démarrent pas sur la première date :cry:
21/07/2006, 11h41
Elstak

L'image que tu m'as montré, pour avoir les 2 series tu l'avait fait manuellement?? :roll:

sinon pour la légende ca va etre le bordel (meme pour les series) va falloir definir la taille des series, voir combien y'en a eu de créées pour supprimer n-1legende (enfin tu me comprend quand je dis n-1 :roll: ) et voir pour le second seuil à créer :?

edit : jvais coder ca et je reviens des que ca merdouille... (dans 5 min quoi... :mouarf: )
21/07/2006, 11h43
conconbrr

Juste un truc en passant même si tu es parti sur autre chose elstak.

Avec ce que je te proposais, je te rappelle qu'il fallait mettre sur Xvalues :
Xmin (ça tu l'avais compris je pense), mais aussi Xmax correspondant à la plus grande abscisse.

Pour les avoir c'était pas bien compliqué, il suffisait de faire un min de tes valeurs pour Xmin et un max pour Xmax...

Je comprends pas bien pkoi vs cherchez si compliqué... un truc a du m'échapper

bon avant que je me lance dans mon codage...

j'ai aps bien saisi tes xmin xmax (jte rapple qu'hier je faisais la sieste :mouarf: )

je ressort le code

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
Sub Test()
 
    Dim XmiN, XmaX As Double
    Dim NbSeries, J As Integer
 
    XmiN = 0.04
    XmaX = 0.04
 
    Charts("ev25").Activate '.ChartObjects("graph1").Activate
    NbSeries = ActiveChart.SeriesCollection.Count
 
    For J = 1 To NbSeries
        If ActiveChart.SeriesCollection(J).Name = "Seuil" Then
            ActiveChart.SeriesCollection("Seuil").Delete
            NbSeries = NbSeries - 1
            Exit For
        End If
    Next J
 
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(NbSeries + 1).Name = "Seuil"
    ActiveChart.SeriesCollection("Seuil").XValues = "={" & Fix(XmiN) & "," & Fix(XmaX) & "}"
    ActiveChart.SeriesCollection("Seuil").Values = "={0.4,0.4}"
 
End Sub

mouarf j'avais mis 0,04.. mon seuil...

dis moi juste ce qu'il faudrait mettre par exemple que je comerpnne mieux...

21/07/2006, 11h50
Elstak

Tiens voilà ce que j'ai avec le code precedent...

Pièce jointe 3080

en xmin je devrai mettre 10/07/2006 et xmax 12/07/2006 ??

jcomprend vraiment pas car là ca ma dessiné les 2 points de mes 2 valeur de values (0,4 et 0,4)
21/07/2006, 11h52
conconbrr

Ben imaginons que tes autres séries soit comprise entre X=0 et X=200
Il suffirait alors que tu mettes

Code:

Xmin=0

et

Code:

Xmax=200

pour avoir un seuil qui fasses la même taille que tes séries.

Les valeurs de Xmin et Xmax servent juste à définir "la longueur" de ton seuil sur la fenêtre graphique si tu veux...

Si c'est tjrs pas clair je te fais un exemple concret sur excel et je te l'envoie
21/07/2006, 11h54
conconbrr

Oui c'est ça tu devrais mettre

Code:

Xmin="10/07/2006"

et

Code:

Xmax="12/07/2006"

Ca y est je crois qu'on s'est compris ;)

P.S: je maîtrise pas trop les formats des dates dc je sais pas trop comment faut les rentrer pr le graph mais en tt cas tu as compris l'idée
21/07/2006, 11h55
Elstak

Hm, je veux pas d'un excel, je prefererai savoir ce que je dois mettre en xmin et xmax dans l'exmple que j'ai mis au dessus.

ici les X sont des dates oui/non?

ou alors faut-il mettre le nombre d'observations?

exemple ici il y en a 3 (3 dates) donc xmin=1 xmax=3
21/07/2006, 11h56
conconbrr

Un dernier truc, je croyais que tes abscisses étaient des valeurs numériques. Vu que c'est des dates, il faut que tu enlèves le

Code:

fix

devant Xmin et Xmax, sinon je sais pas ce qu'il va te donner.

(Lol la partie entière d'une date je sais pas si ça existe)
21/07/2006, 11h58
Elstak

ok !

mais là j'ai un nouveau souci alors :roll:

Code:

ActiveChart.SeriesCollection("Seuil").XValues = "={" & XmiN & "," & XmaX & "}"

(j'ai virer les fix)

"Impossible de definir la propriete xvalues de la classe series"

EDIT : oui pour les fix j'ai avait deja viré t'en fais pas :)
EDIT2 : les date c'est pas bien :mouarf: !! je cherche aussi comment faire.. je poste plus ppendant 5 minute au moins le temps de chercher... ;)
21/07/2006, 11h58
conconbrr

Citation:

ici les X sont des dates oui/non?

Oui

Citation:

ou alors faut-il mettre le nombre d'observations?

Non ça n'a rien à voir

Je me répéte mais fait gaffe vu que c'est des dates je sais pas trop si ça marche de les rentrer comme ça (je vais essayer de ce pas)

Bah désolé :oops:

c'est vrai que ca part un peu dans tous les sens mais bon la question reste la meme : comment tracer un seuil? y'a juste plusieurs pistes :P

sinon mon ptit comcombre pour en revenir à nos xmin !

je veux bien un fichier excel car là...

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
Sub Test()
 
    Dim XmiN, XmaX
    Dim NbSeries, J As Integer
 
    XmiN = 1 
    XmaX = 3 
 
    Charts("ev78").Activate '.ChartObjects("graph1").Activate
    NbSeries = ActiveChart.SeriesCollection.Count
 
    For J = 1 To NbSeries
        If ActiveChart.SeriesCollection(J).Name = "Seuil" Then
            ActiveChart.SeriesCollection("Seuil").Delete
            NbSeries = NbSeries - 1
            Exit For
        End If
    Next J
 
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(NbSeries + 1).Name = "Seuil"
    ActiveChart.SeriesCollection("Seuil").XValues = "={" & XmiN & "," & XmaX & "}"     
ActiveChart.SeriesCollection("Seuil").Values = "={0.4,0.4}"
 
End Sub

(meme en remettant les fix ca merde)

j'ai ca (j'ai changé mes dates en nombres pour tester):

Pièce jointe 3081

bref la meme chose...

Citation:

Envoyé par Elstak

L'image que tu m'as montré, pour avoir les 2 series tu l'avait fait manuellement??

OUI !

Citation:

Envoyé par Elstak

sinon pour la légende ca va etre le bordel (meme pour les series) va falloir definir la taille des series, voir combien y'en a eu de créées pour supprimer n-1legende (enfin tu me comprend quand je dis n-1 ) et voir pour le second seuil à créer

Pas besoin. Tu as 3 légendes utiles, tu supprimes les autres
Code:

1 2 3 4 5 6 7 8 Sub SupLégendesIndésirables() NbLégendes = ActiveSheet.ChartObjects("Graphique 2").Chart.Legend.LegendEntries.Count For i = NbLégendes To 4 Step -1 With ActiveSheet.ChartObjects("Graphique 2").Chart .Legend.LegendEntries(i).Delete End With Next End Sub
Tant qu'à faire une usine à gaz... :mouarf:

Essaie ç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 Sub Test() Dim XmiN, XmaX As Variant Dim NbSeries, J As Integer XmiN = 1 XmaX = 3 Worksheets("Feuil1").ChartObjects("graph1").Activate NbSeries = ActiveChart.SeriesCollection.Count For J = 1 To NbSeries If ActiveChart.SeriesCollection(J).Name = "Seuil" Then ActiveChart.SeriesCollection("Seuil").Delete Exit For End If Next J NbSeries = ActiveChart.SeriesCollection.Count ActiveChart.SeriesCollection.NewSeries ActiveChart.SeriesCollection(NbSeries + 1).Name = "Seuil" ActiveChart.SeriesCollection("Seuil").XValues = "={" & XmiN & "," & XmaX & "}" ActiveChart.SeriesCollection("Seuil").Values = "={0.4,0.4}" End Sub
En rouge c'est ce que j'ai rajouté (pense juste à mettre le bon nom de page et le bon non de graph). Tu remarqueras que j'ai viré

Code:

Nbseries=Nbseries-1

mais que j'ai rajouté une ligne qui fait la même chose en dessous (c'est juste que je préfère ;))

Moi en exécutant ce bout de code ça me donne une droite horizontale d'ordonnée 0.4 et d'abscisse entre 1 et 3

Citation:
Envoyé par ouskel'n'or
Pas besoin. Tu as 3 légendes utiles, tu supprimes les autres
Code:

1 2 3 4 5 6 7 8 Sub SupLégendesIndésirables() NbLégendes = ActiveSheet.ChartObjects("Graphique 2").Chart.Legend.LegendEntries.Count For i = NbLégendes To 4 Step -1 With ActiveSheet.ChartObjects("Graphique 2").Chart .Legend.LegendEntries(i).Delete End With Next End Sub
bah jte rapelle que y'aura 2 seuils ! pour le moment j'essaye toujours avec 1 seul mais apres y'aura aussi celui de l'autre courbe :?

bref au boulot ! car je sens mal la solution du comcombre :lol: (un présentiment :P )

21/07/2006, 12h33
conconbrr

Ben cad que je pense que ma solution reste quand même plus simple (tracé une horizontale avec deux pts c'est quand même pas la mort non). Le seul problème ça va être la gestion des dates (même si je pense que qqun pourrait te répondre facilement) après tu fais comme tu veux :lol:

Ceci dit, même si ce qu'on t'as proposé à l'air très bien et ben moi je trouve que c'est quand même un peu se compliquer la vie pour rien.

P.S pour avoir deux seuils avec mon truc ça prend une trois lignes de codes en plus (vu que tu connaîs déjà Xmin et Xmax, il te suffit juste de créer une nouvelle série avec une autre ordonnée, riend e plus simple ;) )

j'ai un souci sur cette ligne :

Code:

Sheets("ev78").ChartObjects("graph4").Activate

toi ton graph est dans un feuille non? car t'avais mis worksheets...

du coup j'ai du remplacer comme ca :

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
Sub Test()
 
    Dim XmiN, XmaX As Variant
    Dim NbSeries, J As Integer
 
    XmiN = 1
    XmaX = 3
 
    Sheets("ev78").Activate 'ChartObjects("graph4").Activate
    NbSeries = ActiveChart.SeriesCollection.Count
 
    For J = 1 To NbSeries
        If ActiveChart.SeriesCollection(J).Name = "Seuil" Then
            ActiveChart.SeriesCollection("Seuil").Delete
            Exit For
        End If
    Next J
 
    NbSeries = ActiveChart.SeriesCollection.Count
 
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(NbSeries + 1).Name = "Seuil"
    ActiveChart.SeriesCollection("Seuil").XValues = "={" & XmiN & "," & XmaX & "}"
    ActiveChart.SeriesCollection("Seuil").Values = "={0.4,0.4}"
 
End Sub

et toujours le meme souci !

dis moi tu a bien 3 valeurs sur ton graph? 1,2 et 3? et pas 1 et 3 ??

Effectivement si ton graph n'est pas ds une feuille il faut bien mettre ç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 Sub Test() Dim XmiN, XmaX As Variant Dim NbSeries, J As Integer XmiN = 1 XmaX = 3 Charts("Graph1").Activate NbSeries = ActiveChart.SeriesCollection.Count For J = 1 To NbSeries If ActiveChart.SeriesCollection(J).Name = "Seuil" Then ActiveChart.SeriesCollection("Seuil").Delete Exit For End If Next J NbSeries = ActiveChart.SeriesCollection.Count ActiveChart.SeriesCollection.NewSeries ActiveChart.SeriesCollection(NbSeries + 1).Name = "Seuil" MsgBox XmaX ActiveChart.SeriesCollection("Seuil").XValues = "={" & XmiN & "," & XmaX & "}" ActiveChart.SeriesCollection("Seuil").Values = "={0.4,0.4}" End Sub
J'ai rajouté un

Code:

msgbox

pour que tu me dises combien vaut xmax juste avant que le code mette les valeurs d'abscisses.

Si tu me dis qu'il vaut 3 alors je comprends plus rien parceque du coup les abscisse devraient entre 1 et 3 du coup.

Tu peux aussi regarder direct sur le graphique. Une fois la série créée fait un clic droit et regarde les données qu'il y a pour la série "Seuil".
En particulier sur l'abscisse. Tu devrais avoir

Code:

"={1,3}"

21/07/2006, 12h43
Elstak

valeur de seuil dans lse données du graphique

Citation:

={0,4.0,4}

pour l'etiquette des abscisse

Citation:

=exemple!$A$1:$A$3

msgbox

Citation:

xmax = 3

envoie un fichier exemple ca ira plus vite ;)

Là j'ai recrée carrement une nouvelle feuille clean et j'ai eu ces valeurs...
21/07/2006, 12h52
conconbrr

1 pièce(s) jointe(s)

Voilà un exemple

J'ai un graph avec deux séries dont le détail est sur la page 1.

Quand tu exécutes la macro test tu verras bien le seuil apparaître sur le graph. (il est en violet pas trop visible mais bon ;))

En plus comme je suis gentil ;) je t'ai rajouté un deuxième seuil sur l'axe secondaire des ordonnées.

Dis moi si là ça va?

P.S : le fichier joint est en .txt n'oiublies de le repasser en .xls avant de l'ouvrir :P
21/07/2006, 12h53
ouskel'n'or

J'ai sauté une marche mais me revoilou ;)

Citation:

Envoyé par tu

bah jte rapelle que y'aura 2 seuils ! pour le moment j'essaye toujours avec 1 seul mais apres y'aura aussi celui de l'autre courbe

Donc, au lieu de mettre

Citation:

For i = NbLégendes To 4 Step -1

tu mets

Code:

For i = NbLégendes To 5 Step -1

En mettant ton seuil min en 4ème position
C'est un pb ?
21/07/2006, 13h04
Elstak

Code:

For i = NbLégendes To 5 Step -1

sauf que la bonne legende de mon 2eme seuil sera pas la 4eme.

si il en faut 4 sous seuil pour faire mon premier alors il faudra garder la 3eme legende pour mon 1er seuil et virer 4 5 6 et garder la 7 pour mon seuil 2 ou un truc du genre... enfin peut importe pour l'instant je regarde le boulot du comcombre car sa solution si j'arrive à la faire marcher sera beaucoup plus simple :D
21/07/2006, 13h15
Elstak

:scarymov:

bon va falloir qu'on explique bordel !!

le tiens fonctionne tres bien, j'ai recréé un fichier de la meme structure et j'ai de nouveau le probleme !!

je le joint :

Pièce jointe 3090

va falloir que tu me dise pas à pas comme tu fais parce que là je vois pas trop là différence !! j'ai nommé les feuille et graph comme toi et j'ai juste copié collé ta macro et ca va passsss :evilred:
21/07/2006, 13h24
conconbrr

1 pièce(s) jointe(s)

Ouf j'ai trouvé :)

En fait ça vient de ton type de graphique qui n'est pas compatible avec ce que je veux faire. un conseil n'utilise plus ce type de graphique.

Toi tu as utilisé "Courbes" qui ne laisse qu'un choix d'abscisse. ici tu avais donner A6:A8 pour les deux premières séries. Par conséquent quand tu crée le seuil, il ne prend que les valeurs des ordonnées (cad 0.4 et 0.4) et ignore les abscisses. Tu comprends alors que les deux premières abscisses sont celles en A6 et A7 cad 1 et 2. Le code associe donc les ordonnées 0.4 à 1 et 2 en abscisse. C'est tt à fait normal.

En gros faut que tu mettes ton type de graphique en "nuage de points reliés par une courbe". Ainsi pour chaque série tu as le choix des abscisses et ordonnées.

Pour cela clic droit sur le graph puis clic sur "type de graphique"
Je te renvoie la correction au cas où :p
21/07/2006, 13h25
Elstak

Hmmm,

bravo ;)

jvais tester ca cet aprem !!

EDIT : à peine j'ai changé le type du graphique que mes seuils ont pris toute la largeur :D
c'est pas courant ca comme type de graphique le nuage de point ! t'aurais pu soulever le probleme bien avant quand meme !! :lol: :lol: :mouarf:

Hop,

plusieurs questions

tout d'abord voici le code :
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 Sub TracerSeuils(ByVal Mini As Variant, ByVal Maxi As Variant, ByVal NomGraph As String, ByVal Seuil1 As Double, ByVal Seuil2 As Double) Dim XmiN, XmaX As Variant Dim NbSeries, J As Byte Charts(NomGraph).Activate NbSeries = ActiveChart.SeriesCollection.Count For J = 1 To NbSeries If ActiveChart.SeriesCollection(J).Name = "Seuil1" Then ActiveChart.SeriesCollection("Seuil1").Delete Exit For End If Next J NbSeries = ActiveChart.SeriesCollection.Count For J = 1 To NbSeries If ActiveChart.SeriesCollection(J).Name = "Seuil2" Then ActiveChart.SeriesCollection("Seuil2").Delete Exit For End If Next J NbSeries = ActiveChart.SeriesCollection.Count ActiveChart.SeriesCollection.NewSeries ActiveChart.SeriesCollection(NbSeries + 1).Name = "Seuil1" ActiveChart.SeriesCollection("Seuil1").XValues = "={" & Mini & "," & Maxi & "}" ActiveChart.SeriesCollection("Seuil1").Values = "={0.004,0.004}" '"={" & Seuil1 & "," & Seuil1 & "}" NbSeries = ActiveChart.SeriesCollection.Count ActiveChart.SeriesCollection.NewSeries ActiveChart.SeriesCollection(NbSeries + 1).Name = "Seuil2" ActiveChart.SeriesCollection("Seuil2").XValues = "={" & Mini & "," & Maxi & "}" ActiveChart.SeriesCollection("Seuil2").Values = "={0.04,0.04}" '"={" & Seuil2 & "," & Seuil2 & "}" ActiveChart.SeriesCollection("Seuil2").AxisGroup = 2 End Sub Sub test() Call TracerSeuils(38908, 38910, "ev25", 0.004, 0.04) End Sub
Alors j'ai quelques petits soucis, j'ai trouvé le nombre à mettre, comme je le supposais c'est le nombre qui correspond à la date (pour le trouver on met une date dans excel et on change el format en standart). Ma premiere question arrive :D

quelle fonction VBA permet de faire ca?

ensuite j'ai eu une surprise en apssant mes seuils par parametre (code vert)
voici le graph sans les passer

Pièce jointe 3092

et en les passant

Pièce jointe 3093

(berk !)

tout ca car (je pense) j'ai regardé en pas à pas et les Seuil1 et Seuil2 valent 0,004 et 0,04 et non plus 0.004 et 0.04

comment puis je faire pour qu'il prenne un "." et non une "," ? :?

EDIT : Hop, j'ai trouvé pour la date en nombre je fait

Code:

CDbl(CDate("10/07/06"))

et ca marche ;)

manque plus que l'histoire des "," en "." :? :?

21/07/2006, 15h18
ouskel'n'or

Regarde ce que tu as dans les données sources de ton graphe pour le seuil correspondant ;)

Je te propose ma solution (j'ai déjà eu le même problème)
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 Option Explicit Sub test() Dim X, X_Entier, X_Temp, X_Dec, Longueur As Variant Dim O, J As Integer X = 125.236 For O = 1 To Len(X) If Mid(X, O, 1) = "," Then Longueur = Len(Mid(X, O + 1, Len(X) - O)) Exit For End If Next O X_Entier = Fix(X) X_Temp = X For J = 1 To Longueur X_Temp = X_Temp * 10 Next J If Left(X, 1) = 0 Then X_Dec = CInt(X_Temp) Else X_Dec = CInt(Right(X_Temp, Len(X) - O)) End If X = X_Entier & "." & X_Dec End Sub
Grâce à ça tu peux le forcer à la fin en séparant partie entière et décimale à les concaténer avec un point ou une virgule au choix ;)

P.S:j'ai peut être un peu craqué pour trouver la partie décimale... Il se peut qu'il existe des fonctions déjà tt faites mais bon :D

Plop,

qui c'est le roi du bidouillage? :lol:

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
49
Sub TracerSeuils(ByVal Mini As Variant, ByVal Maxi As Variant, ByVal NomGraph As String, ByVal Seuil1 As String, ByVal Seuil2 As String)
 
    Dim XmiN, XmaX As Variant
    Dim NbSeries, J As Byte
    Mini = CDbl(CDate(Mini))
    Maxi = CDbl(CDate(Maxi))
 
 
    Charts(NomGraph).Activate
    NbSeries = ActiveChart.SeriesCollection.Count
 
    For J = 1 To NbSeries
        If ActiveChart.SeriesCollection(J).Name = "Seuil1" Then
            ActiveChart.SeriesCollection("Seuil1").Delete
            Exit For
        End If
    Next J
 
    NbSeries = ActiveChart.SeriesCollection.Count
 
    For J = 1 To NbSeries
        If ActiveChart.SeriesCollection(J).Name = "Seuil2" Then
            ActiveChart.SeriesCollection("Seuil2").Delete
            Exit For
        End If
    Next J
 
    NbSeries = ActiveChart.SeriesCollection.Count
 
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(NbSeries + 1).Name = "Seuil1"
    ActiveChart.SeriesCollection("Seuil1").XValues = "={" & Mini & "," & Maxi & "}"
 
    ActiveChart.SeriesCollection("Seuil1").Values = "={" & Seuil1 & "," & Seuil1 & "}" '"={0.004,0.004}"
 
    NbSeries = ActiveChart.SeriesCollection.Count
 
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(NbSeries + 1).Name = "Seuil2"
    ActiveChart.SeriesCollection("Seuil2").XValues = "={" & Mini & "," & Maxi & "}"
    ActiveChart.SeriesCollection("Seuil2").Values = "={" & Seuil2 & "," & Seuil2 & "}" '"={0.04,0.04}"
    ActiveChart.SeriesCollection("Seuil1").AxisGroup = 2
 
End Sub
 
Sub test()
    Call TracerSeuils("10/07/06", "12/07/06", "ev25", "0.004", "0.04")
    'Debug.Print CDbl(CDate("10/07/06"))
End Sub

en fait en passant les seuils en string ca marche bien ;)

là je galere juste un peu pour le ratachement des courbes au axes mais ca se termine je pense !! :D (et c'est pas trop tot !)

EDIT : oué là tu craque trop le comcombre !!
deja si tu met X =123.4444 tu trouvera jamais de ","

ensuite pour la partie decimale INSTR renvoit la position de la premiere occurence d'un chaine dans une autre (tu t'en sert pour trouver la place de ta "," et tu fait un right 8O )

21/07/2006, 15h49
Elstak

Pfffff mechant va !!

en plus si tu aurais regardé mon EDIT... t'es qu'un sale copieur en plus !! :P

bon allez je met résolu car apres c'est juste de l'adaptation, le code que j'ai mis au dessus fonctionne pour tracer un seuil avec des dates à l'abscisse !

FINI !!

Merci à tous ceux qui ont essayé de m'aider :D
21/07/2006, 15h55
conconbrr

euh juste pour préciser les gens (j'ai vérifié), si vs rentrez

Code:

X=123.4444

et ben vs vs apercevrez que VBA a compris

Code:

X=123,4444

... Et toc :P
Vs avez qu'à vérifier, ça prend deux secondes. Dans un procédure vs marquez

Code:

X=123.4444

, puis dessous une ligne qui sert à rien genre

Code:

a=1

, vs exécutez en pas à pas et lorsque VBA a lu la ligne du X vs mettez votre jolie souris dessus... Miracle vs voyez s'afficher X=123,444 NA

P.S:je sais pas si la remarque m'était destinée (le bidouillage) mais effectivment j'avoue que j'aime bien bisouiller ;)
21/07/2006, 16h39
Elstak
mais oui c'est ca fait ton malin vas y !! :lol:
Code:

1 2 3 For i = 1 To Len(SeuilCPU) If (Mid(SeuilCPU, i, 1) = ",") Then Mid(SeuilCPU, i, 1) = "." Next
ca parait pas plus performant que tes 120000 lignes de code? :P :P

J'ai vu dans un autre post que tu voulais mettre en forme plus de 1000 lignes de code !! Ca m'etonne pas :lol:

tu voulais ecrire "oui" dans les ligne 1 à 1000 de la colonne A? :mouarf:

Oh oui je suis mechant meme si tu m'a beaucoup aidé (demande à ouskel 8O )

Voir 40 message(s) de cette discussion en une page