Re,
Sur mon précédent post le classeur mis en lien rectifie les erreurs ajoutées
par la suite dans ce que tu indiques comme "Mon dernier classeur suivant les
avis de LSteph " donc suivant ma proposition de code en conservant ce qui
correspondait selon moi à ta demande initiale.
(Un détail aussi avant de rentrer dans le sujet dans excel ou vba, le signe
"<>" veut dire "différent de " c'est ce qui a suscité sans doute une
confusion)..
Donc tu dis:Je reprends tout depuis le début en faisant abstraction de tous les
précédents
La nouvelle formulation que tu détailles ici s'éloigne effectivement des
précédents.
Cela chamboule complètement ce qui avait été élaboré que ce soit par Daniel
ou moi.
Je crois qu'une bonne part va être à revoir.
Selon ce nouvel énoncé ce n'est plus B1 qui passe en B2
dans gbp mais une valeur de A dont reste qu'il n'est pas évident selon tes
deux exemples
de trouver la logique permettant de savoir jusqu'où il pourrait arriver
d'avoir à remonter et
surtout qd est estimé l'écart supérieur ou inférieur à 0.0006En A1 s'inscrit 1.7701 en B2 rien
En A2 s'inscrit 1.7725 en B2 rien
En A3 s'inscrit 1.7735 en B2 rien
En A4 s'inscrit 1.7728 en B2 s'inscrit 1.7735
jusque à la logique serait effectivement correcte par rapport au changement
de sens et l'écart en val Abs de 0.0006 respecté entre 1.7725 et 1.7735 et
aussi entre 1.7735 et 1.7728 après cela se complique:En A5 s'inscrit 1.7731 en B2 toujours 1.7735
En A6 s'inscrit 1.7733 en B2 toujours 1.7735
En A7 s'inscrit 1.7729 en B2 toujours 1.7735
En A8 s'inscrit 1.7698 en B2 toujours 1.7735
En A9 s'inscrit 1.7701 en B2 toujours 1.7735
En A10 s'inscrit 1.7705 en B2 s'inscrit 1.7698
On ne remonte plus d'un cran mais de 2 puisque c'est là que le sens a changé
mais pourquoi réagir à 1.7705 puisque la valeur précédente était 1.7701 donc
là l'écart était 0.0004 et non 0.0006 donc une des conditions non respectée
.. Alors effectivement on peut partir du principe qu'il faille remonter là à
la valeur
précédente par rapport à laquelle il serait respecté, là où à lieu le pic .
Ainsi, si l'on a affaire à une plus longue série de valeurs oscillantes et
plus ou moins continues
voilà qui change la donne et requiert sans doute une autre méthode/approche
pour mettre cela en code.
Cela demande donc réflexion .........en attendant.
Bonne nuit.
lSteph
"bouak" a écrit dans le message de news:Re,
Non c'est pas ça.
STP consulte http://cjoint.com/?blxsi7JGfN où j'ai repris tous les
paramètres.
Merci
--
bouakRebonsoir,
http://cjoint.com/?blwJcdpJP6
Dis moi si cela conviendrait.
lSteph
"bouak" a écrit dans le message de
news:Bonjour LSteph,
Je reprend le fil, j'ai continué sur l'autre car je ne savais pas si tu
suivais encore sur celle-ci.
****************tu m'indiques:
Bonjour Bouak,
Le pb c'est que je préfèrais rester sur le fil d'origine car ici tu a
ouvert
cet autre fil
pour les conditions que Daniel semble avoir comprises mieux que moi:
on a toujours 1.7702 en Feuil3 et
dans Feuil1 702 (fin de la partie décimale)
avec l'explication qui est dans le cadre "condition extrême"
et "<>6" je comprends encore moins ce que tu veux.
Maintenant puisque on y est restons ici pour cet autre aspect:
amha dans le code il y a encore souci sur les
events car un _change en cohabitation avec le _calculate
il serait bon d'éviter que cela interfère donc dans ce change peut-être
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ValB2 As String
If Target.Column <> 1 Then Exit Sub
If Target.Value = [B3] Then Exit Sub
Application.EnableEvents = False 'au début
'''''la suite
Application.EnableEvents = true 'à la fin
end sub
et surtout attention tu as rajouté un exit sub au milieu du _calculate
qui va te sortir de la macro alors que les événements sont désactivés.
donc pour éviter le cas échéant de rester en carafe ici:
'....
If [b1] = [B3] Then Application.EnableEvents = True: Exit Sub
'Application.EnableEvents = False 'et celuici ne sert à rien
puisqu'il
y
en a déjà un au début
'.....
(désolé Daniel je ne souhaite pas empièter sur le reste que tu semble
avoir
pigé mieux que moi,
c'est juste dans le prolongement d'un fil précédent que je finis de
suivre,
je laisse la main....)
a+
lSteph******************
Voici le message que je viens d'envoyer à Daniel suite à ta reflexion.
"Bonjour Daniel,
Dans mes messages du 10.1.06 de 08:59 et 9:02 PST, les valeurs des 2
conditions sont bien 0.0006 et non 6.
Le reste sans changement
Oups...Merci"
Dans Feuil1 702 (fin de la partie décimale) c'est normal car je n'ai
besoin
que des décimales d'où j'ai porté en B1 de cette Feuil1
=gbp!$B$2*10000-17000
Je pense avoir bien fait les rectifications que tu m'indiques, mais
aprés
avoir fait un essai en inscrivant successivement à data I20 les valeurs
de
data I36 à I45, ça correspond pas, voici le classeur que j'ai encore
surement
mal rectifié.......
http://cjoint.com/?bllzFE2fPX
Je reprends les conditions avec l'exemple des valeurs de data I36 à I45
Feuil3 « gbp »
AU DEBUT en comparant la valeur inscrite en A1 et ses suivantes,
inscrire
en
B2 la valeur extrême <>0.0006 (1ère condition), dès quelle change de
0.0006
(2ème condition).
En A1 s'inscrit 1.7701 en B2 rien
En A2 s'inscrit 1.7725 en B2 rien
En A3 s'inscrit 1.7735 en B2 rien
En A4 s'inscrit 1.7728 en B2 s'inscrit 1.7735
car 1ère condition remplie la valeur extrême <>0.0006 depuis
A1
1.7701
2ème condition remplie dès qu'elle change de 0.0006 depuis
A3
1.7735
A LA SUITE en comparant colonne A à partir de la valeur qui a était
inscrite
en B2 et ses suivantes, inscrire en B2 la valeur extrême <>0.0006
(1ère
condition), dès quelle change de 0.0006 (2ème condition). Et ainsi de
suite
La valeur de comparaison devient celle de A3 soit 1.7735 qui a été
inscrite
en B2
En A5 s'inscrit 1.7731 en B2 toujours 1.7735
En A6 s'inscrit 1.7733 en B2 toujours 1.7735
En A7 s'inscrit 1.7729 en B2 toujours 1.7735
En A8 s'inscrit 1.7698 en B2 toujours 1.7735
En A9 s'inscrit 1.7701 en B2 toujours 1.7735
En A10 s'inscrit 1.7705 en B2 s'inscrit 1.7698
car 1ère condition remplie la valeur extrême <>0.0006 depuis A3
1.7735
2ème condition remplie dès qu'elle change de 0.0006 depuis
A8
1.7698
En A11 ainsi de suite.
STP s'il y a lieu peux-tu me faire les réctifications directement dans
le
classeur.
Encore merci de ta disponibilité.
--
bouakBonsoir Bouak,
;o) la formule ..hum oui mais...
!!!... surtout n'oublies pas ce qui suivait:Puis remplacer, respectivement
dans les private sub de chaque feuille.
lSteph
"bouak" a écrit dans le message de
news:Bonsoir LSteph,
J'attends demain de recevoir le flux en temps réel afin de savoir si
ça
marche et ensuite s'il y a lieu d'intégrer ta formule
Merci bien et Bonne soirée.
--
bouakRe,
S'il t'en faut 2 cela ne peut être la même
'******
Public f1Xb
Public f3Xb
Private Sub Workbook_Open()
f1Xb = Feuil1.[b1]
f3Xb = Feuil3.[b1]
end sub
'*******
Puis remplacer, respectivement
dans les private sub de chaque feuille.
lSteph
"bouak" a écrit dans le message
de
news:Bonsoir,
Non c'est pas un choix, c'est le non savoir d'intégrer les 2 en
une...
Suite à ton message je viens d'intégrer à ThisWorkbook
***********
Public fiXb
__________________________
End Sub
*************
Ceci est-il la bonne solution.
Encore merci de me guider
A+
Re,
Sur mon précédent post le classeur mis en lien rectifie les erreurs ajoutées
par la suite dans ce que tu indiques comme "Mon dernier classeur suivant les
avis de LSteph " donc suivant ma proposition de code en conservant ce qui
correspondait selon moi à ta demande initiale.
(Un détail aussi avant de rentrer dans le sujet dans excel ou vba, le signe
"<>" veut dire "différent de " c'est ce qui a suscité sans doute une
confusion)..
Donc tu dis:
Je reprends tout depuis le début en faisant abstraction de tous les
précédents
La nouvelle formulation que tu détailles ici s'éloigne effectivement des
précédents.
Cela chamboule complètement ce qui avait été élaboré que ce soit par Daniel
ou moi.
Je crois qu'une bonne part va être à revoir.
Selon ce nouvel énoncé ce n'est plus B1 qui passe en B2
dans gbp mais une valeur de A dont reste qu'il n'est pas évident selon tes
deux exemples
de trouver la logique permettant de savoir jusqu'où il pourrait arriver
d'avoir à remonter et
surtout qd est estimé l'écart supérieur ou inférieur à 0.0006
En A1 s'inscrit 1.7701 en B2 rien
En A2 s'inscrit 1.7725 en B2 rien
En A3 s'inscrit 1.7735 en B2 rien
En A4 s'inscrit 1.7728 en B2 s'inscrit 1.7735
jusque à la logique serait effectivement correcte par rapport au changement
de sens et l'écart en val Abs de 0.0006 respecté entre 1.7725 et 1.7735 et
aussi entre 1.7735 et 1.7728 après cela se complique:
En A5 s'inscrit 1.7731 en B2 toujours 1.7735
En A6 s'inscrit 1.7733 en B2 toujours 1.7735
En A7 s'inscrit 1.7729 en B2 toujours 1.7735
En A8 s'inscrit 1.7698 en B2 toujours 1.7735
En A9 s'inscrit 1.7701 en B2 toujours 1.7735
En A10 s'inscrit 1.7705 en B2 s'inscrit 1.7698
On ne remonte plus d'un cran mais de 2 puisque c'est là que le sens a changé
mais pourquoi réagir à 1.7705 puisque la valeur précédente était 1.7701 donc
là l'écart était 0.0004 et non 0.0006 donc une des conditions non respectée
.. Alors effectivement on peut partir du principe qu'il faille remonter là à
la valeur
précédente par rapport à laquelle il serait respecté, là où à lieu le pic .
Ainsi, si l'on a affaire à une plus longue série de valeurs oscillantes et
plus ou moins continues
voilà qui change la donne et requiert sans doute une autre méthode/approche
pour mettre cela en code.
Cela demande donc réflexion .........en attendant.
Bonne nuit.
lSteph
"bouak" <bouak@discussions.microsoft.com> a écrit dans le message de news:
DC54141F-269C-49DA-9F78-445914967E6E@microsoft.com...
Re,
Non c'est pas ça.
STP consulte http://cjoint.com/?blxsi7JGfN où j'ai repris tous les
paramètres.
Merci
--
bouak
Rebonsoir,
http://cjoint.com/?blwJcdpJP6
Dis moi si cela conviendrait.
lSteph
"bouak" <bouak@discussions.microsoft.com> a écrit dans le message de
news:
13864814-B06E-434F-8ADC-60D9536743E5@microsoft.com...
Bonjour LSteph,
Je reprend le fil, j'ai continué sur l'autre car je ne savais pas si tu
suivais encore sur celle-ci.
****************tu m'indiques:
Bonjour Bouak,
Le pb c'est que je préfèrais rester sur le fil d'origine car ici tu a
ouvert
cet autre fil
pour les conditions que Daniel semble avoir comprises mieux que moi:
on a toujours 1.7702 en Feuil3 et
dans Feuil1 702 (fin de la partie décimale)
avec l'explication qui est dans le cadre "condition extrême"
et "<>6" je comprends encore moins ce que tu veux.
Maintenant puisque on y est restons ici pour cet autre aspect:
amha dans le code il y a encore souci sur les
events car un _change en cohabitation avec le _calculate
il serait bon d'éviter que cela interfère donc dans ce change peut-être
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ValB2 As String
If Target.Column <> 1 Then Exit Sub
If Target.Value = [B3] Then Exit Sub
Application.EnableEvents = False 'au début
'''''la suite
Application.EnableEvents = true 'à la fin
end sub
et surtout attention tu as rajouté un exit sub au milieu du _calculate
qui va te sortir de la macro alors que les événements sont désactivés.
donc pour éviter le cas échéant de rester en carafe ici:
'....
If [b1] = [B3] Then Application.EnableEvents = True: Exit Sub
'Application.EnableEvents = False 'et celuici ne sert à rien
puisqu'il
y
en a déjà un au début
'.....
(désolé Daniel je ne souhaite pas empièter sur le reste que tu semble
avoir
pigé mieux que moi,
c'est juste dans le prolongement d'un fil précédent que je finis de
suivre,
je laisse la main....)
a+
lSteph******************
Voici le message que je viens d'envoyer à Daniel suite à ta reflexion.
"Bonjour Daniel,
Dans mes messages du 10.1.06 de 08:59 et 9:02 PST, les valeurs des 2
conditions sont bien 0.0006 et non 6.
Le reste sans changement
Oups...Merci"
Dans Feuil1 702 (fin de la partie décimale) c'est normal car je n'ai
besoin
que des décimales d'où j'ai porté en B1 de cette Feuil1
=gbp!$B$2*10000-17000
Je pense avoir bien fait les rectifications que tu m'indiques, mais
aprés
avoir fait un essai en inscrivant successivement à data I20 les valeurs
de
data I36 à I45, ça correspond pas, voici le classeur que j'ai encore
surement
mal rectifié.......
http://cjoint.com/?bllzFE2fPX
Je reprends les conditions avec l'exemple des valeurs de data I36 à I45
Feuil3 « gbp »
AU DEBUT en comparant la valeur inscrite en A1 et ses suivantes,
inscrire
en
B2 la valeur extrême <>0.0006 (1ère condition), dès quelle change de
0.0006
(2ème condition).
En A1 s'inscrit 1.7701 en B2 rien
En A2 s'inscrit 1.7725 en B2 rien
En A3 s'inscrit 1.7735 en B2 rien
En A4 s'inscrit 1.7728 en B2 s'inscrit 1.7735
car 1ère condition remplie la valeur extrême <>0.0006 depuis
A1
1.7701
2ème condition remplie dès qu'elle change de 0.0006 depuis
A3
1.7735
A LA SUITE en comparant colonne A à partir de la valeur qui a était
inscrite
en B2 et ses suivantes, inscrire en B2 la valeur extrême <>0.0006
(1ère
condition), dès quelle change de 0.0006 (2ème condition). Et ainsi de
suite
La valeur de comparaison devient celle de A3 soit 1.7735 qui a été
inscrite
en B2
En A5 s'inscrit 1.7731 en B2 toujours 1.7735
En A6 s'inscrit 1.7733 en B2 toujours 1.7735
En A7 s'inscrit 1.7729 en B2 toujours 1.7735
En A8 s'inscrit 1.7698 en B2 toujours 1.7735
En A9 s'inscrit 1.7701 en B2 toujours 1.7735
En A10 s'inscrit 1.7705 en B2 s'inscrit 1.7698
car 1ère condition remplie la valeur extrême <>0.0006 depuis A3
1.7735
2ème condition remplie dès qu'elle change de 0.0006 depuis
A8
1.7698
En A11 ainsi de suite.
STP s'il y a lieu peux-tu me faire les réctifications directement dans
le
classeur.
Encore merci de ta disponibilité.
--
bouak
Bonsoir Bouak,
;o) la formule ..hum oui mais...
!!!... surtout n'oublies pas ce qui suivait:
Puis remplacer, respectivement
dans les private sub de chaque feuille.
lSteph
"bouak" <bouak@discussions.microsoft.com> a écrit dans le message de
news:
375354FC-23C7-4FFF-8D17-24D29FE16AAC@microsoft.com...
Bonsoir LSteph,
J'attends demain de recevoir le flux en temps réel afin de savoir si
ça
marche et ensuite s'il y a lieu d'intégrer ta formule
Merci bien et Bonne soirée.
--
bouak
Re,
S'il t'en faut 2 cela ne peut être la même
'******
Public f1Xb
Public f3Xb
Private Sub Workbook_Open()
f1Xb = Feuil1.[b1]
f3Xb = Feuil3.[b1]
end sub
'*******
Puis remplacer, respectivement
dans les private sub de chaque feuille.
lSteph
"bouak" <bouak@discussions.microsoft.com> a écrit dans le message
de
news:
D5D8E4D0-49C1-4670-8C34-4A4512F4232C@microsoft.com...
Bonsoir,
Non c'est pas un choix, c'est le non savoir d'intégrer les 2 en
une...
Suite à ton message je viens d'intégrer à ThisWorkbook
***********
Public fiXb
__________________________
End Sub
*************
Ceci est-il la bonne solution.
Encore merci de me guider
A+
Re,
Sur mon précédent post le classeur mis en lien rectifie les erreurs ajoutées
par la suite dans ce que tu indiques comme "Mon dernier classeur suivant les
avis de LSteph " donc suivant ma proposition de code en conservant ce qui
correspondait selon moi à ta demande initiale.
(Un détail aussi avant de rentrer dans le sujet dans excel ou vba, le signe
"<>" veut dire "différent de " c'est ce qui a suscité sans doute une
confusion)..
Donc tu dis:Je reprends tout depuis le début en faisant abstraction de tous les
précédents
La nouvelle formulation que tu détailles ici s'éloigne effectivement des
précédents.
Cela chamboule complètement ce qui avait été élaboré que ce soit par Daniel
ou moi.
Je crois qu'une bonne part va être à revoir.
Selon ce nouvel énoncé ce n'est plus B1 qui passe en B2
dans gbp mais une valeur de A dont reste qu'il n'est pas évident selon tes
deux exemples
de trouver la logique permettant de savoir jusqu'où il pourrait arriver
d'avoir à remonter et
surtout qd est estimé l'écart supérieur ou inférieur à 0.0006En A1 s'inscrit 1.7701 en B2 rien
En A2 s'inscrit 1.7725 en B2 rien
En A3 s'inscrit 1.7735 en B2 rien
En A4 s'inscrit 1.7728 en B2 s'inscrit 1.7735
jusque à la logique serait effectivement correcte par rapport au changement
de sens et l'écart en val Abs de 0.0006 respecté entre 1.7725 et 1.7735 et
aussi entre 1.7735 et 1.7728 après cela se complique:En A5 s'inscrit 1.7731 en B2 toujours 1.7735
En A6 s'inscrit 1.7733 en B2 toujours 1.7735
En A7 s'inscrit 1.7729 en B2 toujours 1.7735
En A8 s'inscrit 1.7698 en B2 toujours 1.7735
En A9 s'inscrit 1.7701 en B2 toujours 1.7735
En A10 s'inscrit 1.7705 en B2 s'inscrit 1.7698
On ne remonte plus d'un cran mais de 2 puisque c'est là que le sens a changé
mais pourquoi réagir à 1.7705 puisque la valeur précédente était 1.7701 donc
là l'écart était 0.0004 et non 0.0006 donc une des conditions non respectée
.. Alors effectivement on peut partir du principe qu'il faille remonter là à
la valeur
précédente par rapport à laquelle il serait respecté, là où à lieu le pic .
Ainsi, si l'on a affaire à une plus longue série de valeurs oscillantes et
plus ou moins continues
voilà qui change la donne et requiert sans doute une autre méthode/approche
pour mettre cela en code.
Cela demande donc réflexion .........en attendant.
Bonne nuit.
lSteph
"bouak" a écrit dans le message de news:Re,
Non c'est pas ça.
STP consulte http://cjoint.com/?blxsi7JGfN où j'ai repris tous les
paramètres.
Merci
--
bouakRebonsoir,
http://cjoint.com/?blwJcdpJP6
Dis moi si cela conviendrait.
lSteph
"bouak" a écrit dans le message de
news:Bonjour LSteph,
Je reprend le fil, j'ai continué sur l'autre car je ne savais pas si tu
suivais encore sur celle-ci.
****************tu m'indiques:
Bonjour Bouak,
Le pb c'est que je préfèrais rester sur le fil d'origine car ici tu a
ouvert
cet autre fil
pour les conditions que Daniel semble avoir comprises mieux que moi:
on a toujours 1.7702 en Feuil3 et
dans Feuil1 702 (fin de la partie décimale)
avec l'explication qui est dans le cadre "condition extrême"
et "<>6" je comprends encore moins ce que tu veux.
Maintenant puisque on y est restons ici pour cet autre aspect:
amha dans le code il y a encore souci sur les
events car un _change en cohabitation avec le _calculate
il serait bon d'éviter que cela interfère donc dans ce change peut-être
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ValB2 As String
If Target.Column <> 1 Then Exit Sub
If Target.Value = [B3] Then Exit Sub
Application.EnableEvents = False 'au début
'''''la suite
Application.EnableEvents = true 'à la fin
end sub
et surtout attention tu as rajouté un exit sub au milieu du _calculate
qui va te sortir de la macro alors que les événements sont désactivés.
donc pour éviter le cas échéant de rester en carafe ici:
'....
If [b1] = [B3] Then Application.EnableEvents = True: Exit Sub
'Application.EnableEvents = False 'et celuici ne sert à rien
puisqu'il
y
en a déjà un au début
'.....
(désolé Daniel je ne souhaite pas empièter sur le reste que tu semble
avoir
pigé mieux que moi,
c'est juste dans le prolongement d'un fil précédent que je finis de
suivre,
je laisse la main....)
a+
lSteph******************
Voici le message que je viens d'envoyer à Daniel suite à ta reflexion.
"Bonjour Daniel,
Dans mes messages du 10.1.06 de 08:59 et 9:02 PST, les valeurs des 2
conditions sont bien 0.0006 et non 6.
Le reste sans changement
Oups...Merci"
Dans Feuil1 702 (fin de la partie décimale) c'est normal car je n'ai
besoin
que des décimales d'où j'ai porté en B1 de cette Feuil1
=gbp!$B$2*10000-17000
Je pense avoir bien fait les rectifications que tu m'indiques, mais
aprés
avoir fait un essai en inscrivant successivement à data I20 les valeurs
de
data I36 à I45, ça correspond pas, voici le classeur que j'ai encore
surement
mal rectifié.......
http://cjoint.com/?bllzFE2fPX
Je reprends les conditions avec l'exemple des valeurs de data I36 à I45
Feuil3 « gbp »
AU DEBUT en comparant la valeur inscrite en A1 et ses suivantes,
inscrire
en
B2 la valeur extrême <>0.0006 (1ère condition), dès quelle change de
0.0006
(2ème condition).
En A1 s'inscrit 1.7701 en B2 rien
En A2 s'inscrit 1.7725 en B2 rien
En A3 s'inscrit 1.7735 en B2 rien
En A4 s'inscrit 1.7728 en B2 s'inscrit 1.7735
car 1ère condition remplie la valeur extrême <>0.0006 depuis
A1
1.7701
2ème condition remplie dès qu'elle change de 0.0006 depuis
A3
1.7735
A LA SUITE en comparant colonne A à partir de la valeur qui a était
inscrite
en B2 et ses suivantes, inscrire en B2 la valeur extrême <>0.0006
(1ère
condition), dès quelle change de 0.0006 (2ème condition). Et ainsi de
suite
La valeur de comparaison devient celle de A3 soit 1.7735 qui a été
inscrite
en B2
En A5 s'inscrit 1.7731 en B2 toujours 1.7735
En A6 s'inscrit 1.7733 en B2 toujours 1.7735
En A7 s'inscrit 1.7729 en B2 toujours 1.7735
En A8 s'inscrit 1.7698 en B2 toujours 1.7735
En A9 s'inscrit 1.7701 en B2 toujours 1.7735
En A10 s'inscrit 1.7705 en B2 s'inscrit 1.7698
car 1ère condition remplie la valeur extrême <>0.0006 depuis A3
1.7735
2ème condition remplie dès qu'elle change de 0.0006 depuis
A8
1.7698
En A11 ainsi de suite.
STP s'il y a lieu peux-tu me faire les réctifications directement dans
le
classeur.
Encore merci de ta disponibilité.
--
bouakBonsoir Bouak,
;o) la formule ..hum oui mais...
!!!... surtout n'oublies pas ce qui suivait:Puis remplacer, respectivement
dans les private sub de chaque feuille.
lSteph
"bouak" a écrit dans le message de
news:Bonsoir LSteph,
J'attends demain de recevoir le flux en temps réel afin de savoir si
ça
marche et ensuite s'il y a lieu d'intégrer ta formule
Merci bien et Bonne soirée.
--
bouakRe,
S'il t'en faut 2 cela ne peut être la même
'******
Public f1Xb
Public f3Xb
Private Sub Workbook_Open()
f1Xb = Feuil1.[b1]
f3Xb = Feuil3.[b1]
end sub
'*******
Puis remplacer, respectivement
dans les private sub de chaque feuille.
lSteph
"bouak" a écrit dans le message
de
news:Bonsoir,
Non c'est pas un choix, c'est le non savoir d'intégrer les 2 en
une...
Suite à ton message je viens d'intégrer à ThisWorkbook
***********
Public fiXb
__________________________
End Sub
*************
Ceci est-il la bonne solution.
Encore merci de me guider
A+
Bonjour LSteph,
Une simple hypothèse... car vraiment j'ai aucune connaissance.
Ne serait il pas bien de créer dans une autre colonne une plage des Pics
qui
indique la référence de la cellule en plus de la valeur du Pic Ex.
C1, A1 1.7701
C2, A3 1.7735
C3, A8 1.7698
d'où la valeur de comparaison en colonne A serait la valeur correspondant
à
la référence de la cellule du dernier Pic.
Bonne journée.
--
bouakRe,
Sur mon précédent post le classeur mis en lien rectifie les erreurs
ajoutées
par la suite dans ce que tu indiques comme "Mon dernier classeur suivant
les
avis de LSteph " donc suivant ma proposition de code en conservant ce
qui
correspondait selon moi à ta demande initiale.
(Un détail aussi avant de rentrer dans le sujet dans excel ou vba, le
signe
"<>" veut dire "différent de " c'est ce qui a suscité sans doute une
confusion)..
Donc tu dis:Je reprends tout depuis le début en faisant abstraction de tous les
précédents
La nouvelle formulation que tu détailles ici s'éloigne effectivement des
précédents.
Cela chamboule complètement ce qui avait été élaboré que ce soit par
Daniel
ou moi.
Je crois qu'une bonne part va être à revoir.
Selon ce nouvel énoncé ce n'est plus B1 qui passe en B2
dans gbp mais une valeur de A dont reste qu'il n'est pas évident selon
tes
deux exemples
de trouver la logique permettant de savoir jusqu'où il pourrait arriver
d'avoir à remonter et
surtout qd est estimé l'écart supérieur ou inférieur à 0.0006En A1 s'inscrit 1.7701 en B2 rien
En A2 s'inscrit 1.7725 en B2 rien
En A3 s'inscrit 1.7735 en B2 rien
En A4 s'inscrit 1.7728 en B2 s'inscrit 1.7735
jusque à la logique serait effectivement correcte par rapport au
changement
de sens et l'écart en val Abs de 0.0006 respecté entre 1.7725 et 1.7735
et
aussi entre 1.7735 et 1.7728 après cela se complique:En A5 s'inscrit 1.7731 en B2 toujours 1.7735
En A6 s'inscrit 1.7733 en B2 toujours 1.7735
En A7 s'inscrit 1.7729 en B2 toujours 1.7735
En A8 s'inscrit 1.7698 en B2 toujours 1.7735
En A9 s'inscrit 1.7701 en B2 toujours 1.7735
En A10 s'inscrit 1.7705 en B2 s'inscrit 1.7698
On ne remonte plus d'un cran mais de 2 puisque c'est là que le sens a
changé
mais pourquoi réagir à 1.7705 puisque la valeur précédente était 1.7701
donc
là l'écart était 0.0004 et non 0.0006 donc une des conditions non
respectée
.. Alors effectivement on peut partir du principe qu'il faille remonter
là à
la valeur
précédente par rapport à laquelle il serait respecté, là où à lieu le
pic .
Ainsi, si l'on a affaire à une plus longue série de valeurs oscillantes
et
plus ou moins continues
voilà qui change la donne et requiert sans doute une autre
méthode/approche
pour mettre cela en code.
Cela demande donc réflexion .........en attendant.
Bonne nuit.
lSteph
"bouak" a écrit dans le message de
news:Re,
Non c'est pas ça.
STP consulte http://cjoint.com/?blxsi7JGfN où j'ai repris tous les
paramètres.
Merci
--
bouakRebonsoir,
http://cjoint.com/?blwJcdpJP6
Dis moi si cela conviendrait.
lSteph
"bouak" a écrit dans le message de
news:Bonjour LSteph,
Je reprend le fil, j'ai continué sur l'autre car je ne savais pas si
tu
suivais encore sur celle-ci.
****************tu m'indiques:
Bonjour Bouak,
Le pb c'est que je préfèrais rester sur le fil d'origine car ici tu
a
ouvert
cet autre fil
pour les conditions que Daniel semble avoir comprises mieux que moi:
on a toujours 1.7702 en Feuil3 et
dans Feuil1 702 (fin de la partie décimale)
avec l'explication qui est dans le cadre "condition extrême"
et "<>6" je comprends encore moins ce que tu veux.
Maintenant puisque on y est restons ici pour cet autre aspect:
amha dans le code il y a encore souci sur les
events car un _change en cohabitation avec le _calculate
il serait bon d'éviter que cela interfère donc dans ce change
peut-être
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ValB2 As String
If Target.Column <> 1 Then Exit Sub
If Target.Value = [B3] Then Exit Sub
Application.EnableEvents = False 'au début
'''''la suite
Application.EnableEvents = true 'à la fin
end sub
et surtout attention tu as rajouté un exit sub au milieu du
_calculate
qui va te sortir de la macro alors que les événements sont
désactivés.
donc pour éviter le cas échéant de rester en carafe ici:
'....
If [b1] = [B3] Then Application.EnableEvents = True: Exit Sub
'Application.EnableEvents = False 'et celuici ne sert à rien
puisqu'il
y
en a déjà un au début
'.....
(désolé Daniel je ne souhaite pas empièter sur le reste que tu
semble
avoir
pigé mieux que moi,
c'est juste dans le prolongement d'un fil précédent que je finis de
suivre,
je laisse la main....)
a+
lSteph******************
Voici le message que je viens d'envoyer à Daniel suite à ta
reflexion.
"Bonjour Daniel,
Dans mes messages du 10.1.06 de 08:59 et 9:02 PST, les valeurs des 2
conditions sont bien 0.0006 et non 6.
Le reste sans changement
Oups...Merci"
Dans Feuil1 702 (fin de la partie décimale) c'est normal car je n'ai
besoin
que des décimales d'où j'ai porté en B1 de cette Feuil1
=gbp!$B$2*10000-17000
Je pense avoir bien fait les rectifications que tu m'indiques, mais
aprés
avoir fait un essai en inscrivant successivement à data I20 les
valeurs
de
data I36 à I45, ça correspond pas, voici le classeur que j'ai encore
surement
mal rectifié.......
http://cjoint.com/?bllzFE2fPX
Je reprends les conditions avec l'exemple des valeurs de data I36 à
I45
Feuil3 « gbp »
AU DEBUT en comparant la valeur inscrite en A1 et ses suivantes,
inscrire
en
B2 la valeur extrême <>0.0006 (1ère condition), dès quelle change de
0.0006
(2ème condition).
En A1 s'inscrit 1.7701 en B2 rien
En A2 s'inscrit 1.7725 en B2 rien
En A3 s'inscrit 1.7735 en B2 rien
En A4 s'inscrit 1.7728 en B2 s'inscrit 1.7735
car 1ère condition remplie la valeur extrême <>0.0006
depuis
A1
1.7701
2ème condition remplie dès qu'elle change de 0.0006
depuis
A3
1.7735
A LA SUITE en comparant colonne A à partir de la valeur qui a était
inscrite
en B2 et ses suivantes, inscrire en B2 la valeur extrême <>0.0006
(1ère
condition), dès quelle change de 0.0006 (2ème condition). Et ainsi
de
suite
La valeur de comparaison devient celle de A3 soit 1.7735 qui a été
inscrite
en B2
En A5 s'inscrit 1.7731 en B2 toujours 1.7735
En A6 s'inscrit 1.7733 en B2 toujours 1.7735
En A7 s'inscrit 1.7729 en B2 toujours 1.7735
En A8 s'inscrit 1.7698 en B2 toujours 1.7735
En A9 s'inscrit 1.7701 en B2 toujours 1.7735
En A10 s'inscrit 1.7705 en B2 s'inscrit 1.7698
car 1ère condition remplie la valeur extrême <>0.0006 depuis
A3
1.7735
2ème condition remplie dès qu'elle change de 0.0006
depuis
A8
1.7698
En A11 ainsi de suite.
STP s'il y a lieu peux-tu me faire les réctifications directement
dans
le
classeur.
Encore merci de ta disponibilité.
--
bouakBonsoir Bouak,
;o) la formule ..hum oui mais...
!!!... surtout n'oublies pas ce qui suivait:Puis remplacer, respectivement
dans les private sub de chaque feuille.
lSteph
"bouak" a écrit dans le message
de
news:Bonsoir LSteph,
J'attends demain de recevoir le flux en temps réel afin de savoir
si
ça
marche et ensuite s'il y a lieu d'intégrer ta formule
Merci bien et Bonne soirée.
--
bouakRe,
S'il t'en faut 2 cela ne peut être la même
'******
Public f1Xb
Public f3Xb
Private Sub Workbook_Open()
f1Xb = Feuil1.[b1]
f3Xb = Feuil3.[b1]
end sub
'*******
Puis remplacer, respectivement
dans les private sub de chaque feuille.
lSteph
"bouak" a écrit dans le
message
de
news:Bonsoir,
Non c'est pas un choix, c'est le non savoir d'intégrer les 2
en
une...
Suite à ton message je viens d'intégrer à ThisWorkbook
***********
Public fiXb
__________________________
End Sub
*************
Ceci est-il la bonne solution.
Encore merci de me guider
A+
Bonjour LSteph,
Une simple hypothèse... car vraiment j'ai aucune connaissance.
Ne serait il pas bien de créer dans une autre colonne une plage des Pics
qui
indique la référence de la cellule en plus de la valeur du Pic Ex.
C1, A1 1.7701
C2, A3 1.7735
C3, A8 1.7698
d'où la valeur de comparaison en colonne A serait la valeur correspondant
à
la référence de la cellule du dernier Pic.
Bonne journée.
--
bouak
Re,
Sur mon précédent post le classeur mis en lien rectifie les erreurs
ajoutées
par la suite dans ce que tu indiques comme "Mon dernier classeur suivant
les
avis de LSteph " donc suivant ma proposition de code en conservant ce
qui
correspondait selon moi à ta demande initiale.
(Un détail aussi avant de rentrer dans le sujet dans excel ou vba, le
signe
"<>" veut dire "différent de " c'est ce qui a suscité sans doute une
confusion)..
Donc tu dis:
Je reprends tout depuis le début en faisant abstraction de tous les
précédents
La nouvelle formulation que tu détailles ici s'éloigne effectivement des
précédents.
Cela chamboule complètement ce qui avait été élaboré que ce soit par
Daniel
ou moi.
Je crois qu'une bonne part va être à revoir.
Selon ce nouvel énoncé ce n'est plus B1 qui passe en B2
dans gbp mais une valeur de A dont reste qu'il n'est pas évident selon
tes
deux exemples
de trouver la logique permettant de savoir jusqu'où il pourrait arriver
d'avoir à remonter et
surtout qd est estimé l'écart supérieur ou inférieur à 0.0006
En A1 s'inscrit 1.7701 en B2 rien
En A2 s'inscrit 1.7725 en B2 rien
En A3 s'inscrit 1.7735 en B2 rien
En A4 s'inscrit 1.7728 en B2 s'inscrit 1.7735
jusque à la logique serait effectivement correcte par rapport au
changement
de sens et l'écart en val Abs de 0.0006 respecté entre 1.7725 et 1.7735
et
aussi entre 1.7735 et 1.7728 après cela se complique:
En A5 s'inscrit 1.7731 en B2 toujours 1.7735
En A6 s'inscrit 1.7733 en B2 toujours 1.7735
En A7 s'inscrit 1.7729 en B2 toujours 1.7735
En A8 s'inscrit 1.7698 en B2 toujours 1.7735
En A9 s'inscrit 1.7701 en B2 toujours 1.7735
En A10 s'inscrit 1.7705 en B2 s'inscrit 1.7698
On ne remonte plus d'un cran mais de 2 puisque c'est là que le sens a
changé
mais pourquoi réagir à 1.7705 puisque la valeur précédente était 1.7701
donc
là l'écart était 0.0004 et non 0.0006 donc une des conditions non
respectée
.. Alors effectivement on peut partir du principe qu'il faille remonter
là à
la valeur
précédente par rapport à laquelle il serait respecté, là où à lieu le
pic .
Ainsi, si l'on a affaire à une plus longue série de valeurs oscillantes
et
plus ou moins continues
voilà qui change la donne et requiert sans doute une autre
méthode/approche
pour mettre cela en code.
Cela demande donc réflexion .........en attendant.
Bonne nuit.
lSteph
"bouak" <bouak@discussions.microsoft.com> a écrit dans le message de
news:
DC54141F-269C-49DA-9F78-445914967E6E@microsoft.com...
Re,
Non c'est pas ça.
STP consulte http://cjoint.com/?blxsi7JGfN où j'ai repris tous les
paramètres.
Merci
--
bouak
Rebonsoir,
http://cjoint.com/?blwJcdpJP6
Dis moi si cela conviendrait.
lSteph
"bouak" <bouak@discussions.microsoft.com> a écrit dans le message de
news:
13864814-B06E-434F-8ADC-60D9536743E5@microsoft.com...
Bonjour LSteph,
Je reprend le fil, j'ai continué sur l'autre car je ne savais pas si
tu
suivais encore sur celle-ci.
****************tu m'indiques:
Bonjour Bouak,
Le pb c'est que je préfèrais rester sur le fil d'origine car ici tu
a
ouvert
cet autre fil
pour les conditions que Daniel semble avoir comprises mieux que moi:
on a toujours 1.7702 en Feuil3 et
dans Feuil1 702 (fin de la partie décimale)
avec l'explication qui est dans le cadre "condition extrême"
et "<>6" je comprends encore moins ce que tu veux.
Maintenant puisque on y est restons ici pour cet autre aspect:
amha dans le code il y a encore souci sur les
events car un _change en cohabitation avec le _calculate
il serait bon d'éviter que cela interfère donc dans ce change
peut-être
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ValB2 As String
If Target.Column <> 1 Then Exit Sub
If Target.Value = [B3] Then Exit Sub
Application.EnableEvents = False 'au début
'''''la suite
Application.EnableEvents = true 'à la fin
end sub
et surtout attention tu as rajouté un exit sub au milieu du
_calculate
qui va te sortir de la macro alors que les événements sont
désactivés.
donc pour éviter le cas échéant de rester en carafe ici:
'....
If [b1] = [B3] Then Application.EnableEvents = True: Exit Sub
'Application.EnableEvents = False 'et celuici ne sert à rien
puisqu'il
y
en a déjà un au début
'.....
(désolé Daniel je ne souhaite pas empièter sur le reste que tu
semble
avoir
pigé mieux que moi,
c'est juste dans le prolongement d'un fil précédent que je finis de
suivre,
je laisse la main....)
a+
lSteph******************
Voici le message que je viens d'envoyer à Daniel suite à ta
reflexion.
"Bonjour Daniel,
Dans mes messages du 10.1.06 de 08:59 et 9:02 PST, les valeurs des 2
conditions sont bien 0.0006 et non 6.
Le reste sans changement
Oups...Merci"
Dans Feuil1 702 (fin de la partie décimale) c'est normal car je n'ai
besoin
que des décimales d'où j'ai porté en B1 de cette Feuil1
=gbp!$B$2*10000-17000
Je pense avoir bien fait les rectifications que tu m'indiques, mais
aprés
avoir fait un essai en inscrivant successivement à data I20 les
valeurs
de
data I36 à I45, ça correspond pas, voici le classeur que j'ai encore
surement
mal rectifié.......
http://cjoint.com/?bllzFE2fPX
Je reprends les conditions avec l'exemple des valeurs de data I36 à
I45
Feuil3 « gbp »
AU DEBUT en comparant la valeur inscrite en A1 et ses suivantes,
inscrire
en
B2 la valeur extrême <>0.0006 (1ère condition), dès quelle change de
0.0006
(2ème condition).
En A1 s'inscrit 1.7701 en B2 rien
En A2 s'inscrit 1.7725 en B2 rien
En A3 s'inscrit 1.7735 en B2 rien
En A4 s'inscrit 1.7728 en B2 s'inscrit 1.7735
car 1ère condition remplie la valeur extrême <>0.0006
depuis
A1
1.7701
2ème condition remplie dès qu'elle change de 0.0006
depuis
A3
1.7735
A LA SUITE en comparant colonne A à partir de la valeur qui a était
inscrite
en B2 et ses suivantes, inscrire en B2 la valeur extrême <>0.0006
(1ère
condition), dès quelle change de 0.0006 (2ème condition). Et ainsi
de
suite
La valeur de comparaison devient celle de A3 soit 1.7735 qui a été
inscrite
en B2
En A5 s'inscrit 1.7731 en B2 toujours 1.7735
En A6 s'inscrit 1.7733 en B2 toujours 1.7735
En A7 s'inscrit 1.7729 en B2 toujours 1.7735
En A8 s'inscrit 1.7698 en B2 toujours 1.7735
En A9 s'inscrit 1.7701 en B2 toujours 1.7735
En A10 s'inscrit 1.7705 en B2 s'inscrit 1.7698
car 1ère condition remplie la valeur extrême <>0.0006 depuis
A3
1.7735
2ème condition remplie dès qu'elle change de 0.0006
depuis
A8
1.7698
En A11 ainsi de suite.
STP s'il y a lieu peux-tu me faire les réctifications directement
dans
le
classeur.
Encore merci de ta disponibilité.
--
bouak
Bonsoir Bouak,
;o) la formule ..hum oui mais...
!!!... surtout n'oublies pas ce qui suivait:
Puis remplacer, respectivement
dans les private sub de chaque feuille.
lSteph
"bouak" <bouak@discussions.microsoft.com> a écrit dans le message
de
news:
375354FC-23C7-4FFF-8D17-24D29FE16AAC@microsoft.com...
Bonsoir LSteph,
J'attends demain de recevoir le flux en temps réel afin de savoir
si
ça
marche et ensuite s'il y a lieu d'intégrer ta formule
Merci bien et Bonne soirée.
--
bouak
Re,
S'il t'en faut 2 cela ne peut être la même
'******
Public f1Xb
Public f3Xb
Private Sub Workbook_Open()
f1Xb = Feuil1.[b1]
f3Xb = Feuil3.[b1]
end sub
'*******
Puis remplacer, respectivement
dans les private sub de chaque feuille.
lSteph
"bouak" <bouak@discussions.microsoft.com> a écrit dans le
message
de
news:
D5D8E4D0-49C1-4670-8C34-4A4512F4232C@microsoft.com...
Bonsoir,
Non c'est pas un choix, c'est le non savoir d'intégrer les 2
en
une...
Suite à ton message je viens d'intégrer à ThisWorkbook
***********
Public fiXb
__________________________
End Sub
*************
Ceci est-il la bonne solution.
Encore merci de me guider
A+
Bonjour LSteph,
Une simple hypothèse... car vraiment j'ai aucune connaissance.
Ne serait il pas bien de créer dans une autre colonne une plage des Pics
qui
indique la référence de la cellule en plus de la valeur du Pic Ex.
C1, A1 1.7701
C2, A3 1.7735
C3, A8 1.7698
d'où la valeur de comparaison en colonne A serait la valeur correspondant
à
la référence de la cellule du dernier Pic.
Bonne journée.
--
bouakRe,
Sur mon précédent post le classeur mis en lien rectifie les erreurs
ajoutées
par la suite dans ce que tu indiques comme "Mon dernier classeur suivant
les
avis de LSteph " donc suivant ma proposition de code en conservant ce
qui
correspondait selon moi à ta demande initiale.
(Un détail aussi avant de rentrer dans le sujet dans excel ou vba, le
signe
"<>" veut dire "différent de " c'est ce qui a suscité sans doute une
confusion)..
Donc tu dis:Je reprends tout depuis le début en faisant abstraction de tous les
précédents
La nouvelle formulation que tu détailles ici s'éloigne effectivement des
précédents.
Cela chamboule complètement ce qui avait été élaboré que ce soit par
Daniel
ou moi.
Je crois qu'une bonne part va être à revoir.
Selon ce nouvel énoncé ce n'est plus B1 qui passe en B2
dans gbp mais une valeur de A dont reste qu'il n'est pas évident selon
tes
deux exemples
de trouver la logique permettant de savoir jusqu'où il pourrait arriver
d'avoir à remonter et
surtout qd est estimé l'écart supérieur ou inférieur à 0.0006En A1 s'inscrit 1.7701 en B2 rien
En A2 s'inscrit 1.7725 en B2 rien
En A3 s'inscrit 1.7735 en B2 rien
En A4 s'inscrit 1.7728 en B2 s'inscrit 1.7735
jusque à la logique serait effectivement correcte par rapport au
changement
de sens et l'écart en val Abs de 0.0006 respecté entre 1.7725 et 1.7735
et
aussi entre 1.7735 et 1.7728 après cela se complique:En A5 s'inscrit 1.7731 en B2 toujours 1.7735
En A6 s'inscrit 1.7733 en B2 toujours 1.7735
En A7 s'inscrit 1.7729 en B2 toujours 1.7735
En A8 s'inscrit 1.7698 en B2 toujours 1.7735
En A9 s'inscrit 1.7701 en B2 toujours 1.7735
En A10 s'inscrit 1.7705 en B2 s'inscrit 1.7698
On ne remonte plus d'un cran mais de 2 puisque c'est là que le sens a
changé
mais pourquoi réagir à 1.7705 puisque la valeur précédente était 1.7701
donc
là l'écart était 0.0004 et non 0.0006 donc une des conditions non
respectée
.. Alors effectivement on peut partir du principe qu'il faille remonter
là à
la valeur
précédente par rapport à laquelle il serait respecté, là où à lieu le
pic .
Ainsi, si l'on a affaire à une plus longue série de valeurs oscillantes
et
plus ou moins continues
voilà qui change la donne et requiert sans doute une autre
méthode/approche
pour mettre cela en code.
Cela demande donc réflexion .........en attendant.
Bonne nuit.
lSteph
"bouak" a écrit dans le message de
news:Re,
Non c'est pas ça.
STP consulte http://cjoint.com/?blxsi7JGfN où j'ai repris tous les
paramètres.
Merci
--
bouakRebonsoir,
http://cjoint.com/?blwJcdpJP6
Dis moi si cela conviendrait.
lSteph
"bouak" a écrit dans le message de
news:Bonjour LSteph,
Je reprend le fil, j'ai continué sur l'autre car je ne savais pas si
tu
suivais encore sur celle-ci.
****************tu m'indiques:
Bonjour Bouak,
Le pb c'est que je préfèrais rester sur le fil d'origine car ici tu
a
ouvert
cet autre fil
pour les conditions que Daniel semble avoir comprises mieux que moi:
on a toujours 1.7702 en Feuil3 et
dans Feuil1 702 (fin de la partie décimale)
avec l'explication qui est dans le cadre "condition extrême"
et "<>6" je comprends encore moins ce que tu veux.
Maintenant puisque on y est restons ici pour cet autre aspect:
amha dans le code il y a encore souci sur les
events car un _change en cohabitation avec le _calculate
il serait bon d'éviter que cela interfère donc dans ce change
peut-être
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ValB2 As String
If Target.Column <> 1 Then Exit Sub
If Target.Value = [B3] Then Exit Sub
Application.EnableEvents = False 'au début
'''''la suite
Application.EnableEvents = true 'à la fin
end sub
et surtout attention tu as rajouté un exit sub au milieu du
_calculate
qui va te sortir de la macro alors que les événements sont
désactivés.
donc pour éviter le cas échéant de rester en carafe ici:
'....
If [b1] = [B3] Then Application.EnableEvents = True: Exit Sub
'Application.EnableEvents = False 'et celuici ne sert à rien
puisqu'il
y
en a déjà un au début
'.....
(désolé Daniel je ne souhaite pas empièter sur le reste que tu
semble
avoir
pigé mieux que moi,
c'est juste dans le prolongement d'un fil précédent que je finis de
suivre,
je laisse la main....)
a+
lSteph******************
Voici le message que je viens d'envoyer à Daniel suite à ta
reflexion.
"Bonjour Daniel,
Dans mes messages du 10.1.06 de 08:59 et 9:02 PST, les valeurs des 2
conditions sont bien 0.0006 et non 6.
Le reste sans changement
Oups...Merci"
Dans Feuil1 702 (fin de la partie décimale) c'est normal car je n'ai
besoin
que des décimales d'où j'ai porté en B1 de cette Feuil1
=gbp!$B$2*10000-17000
Je pense avoir bien fait les rectifications que tu m'indiques, mais
aprés
avoir fait un essai en inscrivant successivement à data I20 les
valeurs
de
data I36 à I45, ça correspond pas, voici le classeur que j'ai encore
surement
mal rectifié.......
http://cjoint.com/?bllzFE2fPX
Je reprends les conditions avec l'exemple des valeurs de data I36 à
I45
Feuil3 « gbp »
AU DEBUT en comparant la valeur inscrite en A1 et ses suivantes,
inscrire
en
B2 la valeur extrême <>0.0006 (1ère condition), dès quelle change de
0.0006
(2ème condition).
En A1 s'inscrit 1.7701 en B2 rien
En A2 s'inscrit 1.7725 en B2 rien
En A3 s'inscrit 1.7735 en B2 rien
En A4 s'inscrit 1.7728 en B2 s'inscrit 1.7735
car 1ère condition remplie la valeur extrême <>0.0006
depuis
A1
1.7701
2ème condition remplie dès qu'elle change de 0.0006
depuis
A3
1.7735
A LA SUITE en comparant colonne A à partir de la valeur qui a était
inscrite
en B2 et ses suivantes, inscrire en B2 la valeur extrême <>0.0006
(1ère
condition), dès quelle change de 0.0006 (2ème condition). Et ainsi
de
suite
La valeur de comparaison devient celle de A3 soit 1.7735 qui a été
inscrite
en B2
En A5 s'inscrit 1.7731 en B2 toujours 1.7735
En A6 s'inscrit 1.7733 en B2 toujours 1.7735
En A7 s'inscrit 1.7729 en B2 toujours 1.7735
En A8 s'inscrit 1.7698 en B2 toujours 1.7735
En A9 s'inscrit 1.7701 en B2 toujours 1.7735
En A10 s'inscrit 1.7705 en B2 s'inscrit 1.7698
car 1ère condition remplie la valeur extrême <>0.0006 depuis
A3
1.7735
2ème condition remplie dès qu'elle change de 0.0006
depuis
A8
1.7698
En A11 ainsi de suite.
STP s'il y a lieu peux-tu me faire les réctifications directement
dans
le
classeur.
Encore merci de ta disponibilité.
--
bouakBonsoir Bouak,
;o) la formule ..hum oui mais...
!!!... surtout n'oublies pas ce qui suivait:Puis remplacer, respectivement
dans les private sub de chaque feuille.
lSteph
"bouak" a écrit dans le message
de
news:Bonsoir LSteph,
J'attends demain de recevoir le flux en temps réel afin de savoir
si
ça
marche et ensuite s'il y a lieu d'intégrer ta formule
Merci bien et Bonne soirée.
--
bouakRe,
S'il t'en faut 2 cela ne peut être la même
'******
Public f1Xb
Public f3Xb
Private Sub Workbook_Open()
f1Xb = Feuil1.[b1]
f3Xb = Feuil3.[b1]
end sub
'*******
Puis remplacer, respectivement
dans les private sub de chaque feuille.
lSteph
"bouak" a écrit dans le
message
de
news:Bonsoir,
Non c'est pas un choix, c'est le non savoir d'intégrer les 2
en
une...
Suite à ton message je viens d'intégrer à ThisWorkbook
***********
Public fiXb
__________________________
End Sub
*************
Ceci est-il la bonne solution.
Encore merci de me guider
A+
Bonsoir,
c'est une hypothèse, mais je crois que
pour le visuel , je vais garder la colonne A pour historique des mouvements
en B1
et stocker la valeur de référence dans une variable.
en A1 je pense mettre la valeur en référence de la colonne "dernier" ou une
valeur tapée au départ..
comme la ficelle devient un peu longue et un peu trop spécifique pour
poursuivre sur forum
en attendant résultat ...je suggère suite en bal perso .
a+
lSteph
"bouak" a écrit dans le message de news:Bonjour LSteph,
Une simple hypothèse... car vraiment j'ai aucune connaissance.
Ne serait il pas bien de créer dans une autre colonne une plage des Pics
qui
indique la référence de la cellule en plus de la valeur du Pic Ex.
C1, A1 1.7701
C2, A3 1.7735
C3, A8 1.7698
d'où la valeur de comparaison en colonne A serait la valeur correspondant
à
la référence de la cellule du dernier Pic.
Bonne journée.
--
bouakRe,
Sur mon précédent post le classeur mis en lien rectifie les erreurs
ajoutées
par la suite dans ce que tu indiques comme "Mon dernier classeur suivant
les
avis de LSteph " donc suivant ma proposition de code en conservant ce
qui
correspondait selon moi à ta demande initiale.
(Un détail aussi avant de rentrer dans le sujet dans excel ou vba, le
signe
"<>" veut dire "différent de " c'est ce qui a suscité sans doute une
confusion)..
Donc tu dis:Je reprends tout depuis le début en faisant abstraction de tous les
précédents
La nouvelle formulation que tu détailles ici s'éloigne effectivement des
précédents.
Cela chamboule complètement ce qui avait été élaboré que ce soit par
Daniel
ou moi.
Je crois qu'une bonne part va être à revoir.
Selon ce nouvel énoncé ce n'est plus B1 qui passe en B2
dans gbp mais une valeur de A dont reste qu'il n'est pas évident selon
tes
deux exemples
de trouver la logique permettant de savoir jusqu'où il pourrait arriver
d'avoir à remonter et
surtout qd est estimé l'écart supérieur ou inférieur à 0.0006En A1 s'inscrit 1.7701 en B2 rien
En A2 s'inscrit 1.7725 en B2 rien
En A3 s'inscrit 1.7735 en B2 rien
En A4 s'inscrit 1.7728 en B2 s'inscrit 1.7735
jusque à la logique serait effectivement correcte par rapport au
changement
de sens et l'écart en val Abs de 0.0006 respecté entre 1.7725 et 1.7735
et
aussi entre 1.7735 et 1.7728 après cela se complique:En A5 s'inscrit 1.7731 en B2 toujours 1.7735
En A6 s'inscrit 1.7733 en B2 toujours 1.7735
En A7 s'inscrit 1.7729 en B2 toujours 1.7735
En A8 s'inscrit 1.7698 en B2 toujours 1.7735
En A9 s'inscrit 1.7701 en B2 toujours 1.7735
En A10 s'inscrit 1.7705 en B2 s'inscrit 1.7698
On ne remonte plus d'un cran mais de 2 puisque c'est là que le sens a
changé
mais pourquoi réagir à 1.7705 puisque la valeur précédente était 1.7701
donc
là l'écart était 0.0004 et non 0.0006 donc une des conditions non
respectée
.. Alors effectivement on peut partir du principe qu'il faille remonter
là à
la valeur
précédente par rapport à laquelle il serait respecté, là où à lieu le
pic .
Ainsi, si l'on a affaire à une plus longue série de valeurs oscillantes
et
plus ou moins continues
voilà qui change la donne et requiert sans doute une autre
méthode/approche
pour mettre cela en code.
Cela demande donc réflexion .........en attendant.
Bonne nuit.
lSteph
"bouak" a écrit dans le message de
news:Re,
Non c'est pas ça.
STP consulte http://cjoint.com/?blxsi7JGfN où j'ai repris tous les
paramètres.
Merci
--
bouakRebonsoir,
http://cjoint.com/?blwJcdpJP6
Dis moi si cela conviendrait.
lSteph
"bouak" a écrit dans le message de
news:Bonjour LSteph,
Je reprend le fil, j'ai continué sur l'autre car je ne savais pas si
tu
suivais encore sur celle-ci.
****************tu m'indiques:
Bonjour Bouak,
Le pb c'est que je préfèrais rester sur le fil d'origine car ici tu
a
ouvert
cet autre fil
pour les conditions que Daniel semble avoir comprises mieux que moi:
on a toujours 1.7702 en Feuil3 et
dans Feuil1 702 (fin de la partie décimale)
avec l'explication qui est dans le cadre "condition extrême"
et "<>6" je comprends encore moins ce que tu veux.
Maintenant puisque on y est restons ici pour cet autre aspect:
amha dans le code il y a encore souci sur les
events car un _change en cohabitation avec le _calculate
il serait bon d'éviter que cela interfère donc dans ce change
peut-être
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ValB2 As String
If Target.Column <> 1 Then Exit Sub
If Target.Value = [B3] Then Exit Sub
Application.EnableEvents = False 'au début
'''''la suite
Application.EnableEvents = true 'à la fin
end sub
et surtout attention tu as rajouté un exit sub au milieu du
_calculate
qui va te sortir de la macro alors que les événements sont
désactivés.
donc pour éviter le cas échéant de rester en carafe ici:
'....
If [b1] = [B3] Then Application.EnableEvents = True: Exit Sub
'Application.EnableEvents = False 'et celuici ne sert à rien
puisqu'il
y
en a déjà un au début
'.....
(désolé Daniel je ne souhaite pas empièter sur le reste que tu
semble
avoir
pigé mieux que moi,
c'est juste dans le prolongement d'un fil précédent que je finis de
suivre,
je laisse la main....)
a+
lSteph******************
Voici le message que je viens d'envoyer à Daniel suite à ta
reflexion.
"Bonjour Daniel,
Dans mes messages du 10.1.06 de 08:59 et 9:02 PST, les valeurs des 2
conditions sont bien 0.0006 et non 6.
Le reste sans changement
Oups...Merci"
Dans Feuil1 702 (fin de la partie décimale) c'est normal car je n'ai
besoin
que des décimales d'où j'ai porté en B1 de cette Feuil1
=gbp!$B$2*10000-17000
Je pense avoir bien fait les rectifications que tu m'indiques, mais
aprés
avoir fait un essai en inscrivant successivement à data I20 les
valeurs
de
data I36 à I45, ça correspond pas, voici le classeur que j'ai encore
surement
mal rectifié.......
http://cjoint.com/?bllzFE2fPX
Je reprends les conditions avec l'exemple des valeurs de data I36 à
I45
Feuil3 « gbp »
AU DEBUT en comparant la valeur inscrite en A1 et ses suivantes,
inscrire
en
B2 la valeur extrême <>0.0006 (1ère condition), dès quelle change de
0.0006
(2ème condition).
En A1 s'inscrit 1.7701 en B2 rien
En A2 s'inscrit 1.7725 en B2 rien
En A3 s'inscrit 1.7735 en B2 rien
En A4 s'inscrit 1.7728 en B2 s'inscrit 1.7735
car 1ère condition remplie la valeur extrême <>0.0006
depuis
A1
1.7701
2ème condition remplie dès qu'elle change de 0.0006
depuis
A3
1.7735
A LA SUITE en comparant colonne A à partir de la valeur qui a était
inscrite
en B2 et ses suivantes, inscrire en B2 la valeur extrême <>0.0006
(1ère
condition), dès quelle change de 0.0006 (2ème condition). Et ainsi
de
suite
La valeur de comparaison devient celle de A3 soit 1.7735 qui a été
inscrite
en B2
En A5 s'inscrit 1.7731 en B2 toujours 1.7735
En A6 s'inscrit 1.7733 en B2 toujours 1.7735
En A7 s'inscrit 1.7729 en B2 toujours 1.7735
En A8 s'inscrit 1.7698 en B2 toujours 1.7735
En A9 s'inscrit 1.7701 en B2 toujours 1.7735
En A10 s'inscrit 1.7705 en B2 s'inscrit 1.7698
car 1ère condition remplie la valeur extrême <>0.0006 depuis
A3
1.7735
2ème condition remplie dès qu'elle change de 0.0006
depuis
A8
1.7698
En A11 ainsi de suite.
STP s'il y a lieu peux-tu me faire les réctifications directement
dans
le
classeur.
Encore merci de ta disponibilité.
--
Bonsoir,
c'est une hypothèse, mais je crois que
pour le visuel , je vais garder la colonne A pour historique des mouvements
en B1
et stocker la valeur de référence dans une variable.
en A1 je pense mettre la valeur en référence de la colonne "dernier" ou une
valeur tapée au départ..
comme la ficelle devient un peu longue et un peu trop spécifique pour
poursuivre sur forum
en attendant résultat ...je suggère suite en bal perso .
a+
lSteph
"bouak" <bouak@discussions.microsoft.com> a écrit dans le message de news:
6E2782F2-5517-46FF-89CE-7AEDEC82CAC7@microsoft.com...
Bonjour LSteph,
Une simple hypothèse... car vraiment j'ai aucune connaissance.
Ne serait il pas bien de créer dans une autre colonne une plage des Pics
qui
indique la référence de la cellule en plus de la valeur du Pic Ex.
C1, A1 1.7701
C2, A3 1.7735
C3, A8 1.7698
d'où la valeur de comparaison en colonne A serait la valeur correspondant
à
la référence de la cellule du dernier Pic.
Bonne journée.
--
bouak
Re,
Sur mon précédent post le classeur mis en lien rectifie les erreurs
ajoutées
par la suite dans ce que tu indiques comme "Mon dernier classeur suivant
les
avis de LSteph " donc suivant ma proposition de code en conservant ce
qui
correspondait selon moi à ta demande initiale.
(Un détail aussi avant de rentrer dans le sujet dans excel ou vba, le
signe
"<>" veut dire "différent de " c'est ce qui a suscité sans doute une
confusion)..
Donc tu dis:
Je reprends tout depuis le début en faisant abstraction de tous les
précédents
La nouvelle formulation que tu détailles ici s'éloigne effectivement des
précédents.
Cela chamboule complètement ce qui avait été élaboré que ce soit par
Daniel
ou moi.
Je crois qu'une bonne part va être à revoir.
Selon ce nouvel énoncé ce n'est plus B1 qui passe en B2
dans gbp mais une valeur de A dont reste qu'il n'est pas évident selon
tes
deux exemples
de trouver la logique permettant de savoir jusqu'où il pourrait arriver
d'avoir à remonter et
surtout qd est estimé l'écart supérieur ou inférieur à 0.0006
En A1 s'inscrit 1.7701 en B2 rien
En A2 s'inscrit 1.7725 en B2 rien
En A3 s'inscrit 1.7735 en B2 rien
En A4 s'inscrit 1.7728 en B2 s'inscrit 1.7735
jusque à la logique serait effectivement correcte par rapport au
changement
de sens et l'écart en val Abs de 0.0006 respecté entre 1.7725 et 1.7735
et
aussi entre 1.7735 et 1.7728 après cela se complique:
En A5 s'inscrit 1.7731 en B2 toujours 1.7735
En A6 s'inscrit 1.7733 en B2 toujours 1.7735
En A7 s'inscrit 1.7729 en B2 toujours 1.7735
En A8 s'inscrit 1.7698 en B2 toujours 1.7735
En A9 s'inscrit 1.7701 en B2 toujours 1.7735
En A10 s'inscrit 1.7705 en B2 s'inscrit 1.7698
On ne remonte plus d'un cran mais de 2 puisque c'est là que le sens a
changé
mais pourquoi réagir à 1.7705 puisque la valeur précédente était 1.7701
donc
là l'écart était 0.0004 et non 0.0006 donc une des conditions non
respectée
.. Alors effectivement on peut partir du principe qu'il faille remonter
là à
la valeur
précédente par rapport à laquelle il serait respecté, là où à lieu le
pic .
Ainsi, si l'on a affaire à une plus longue série de valeurs oscillantes
et
plus ou moins continues
voilà qui change la donne et requiert sans doute une autre
méthode/approche
pour mettre cela en code.
Cela demande donc réflexion .........en attendant.
Bonne nuit.
lSteph
"bouak" <bouak@discussions.microsoft.com> a écrit dans le message de
news:
DC54141F-269C-49DA-9F78-445914967E6E@microsoft.com...
Re,
Non c'est pas ça.
STP consulte http://cjoint.com/?blxsi7JGfN où j'ai repris tous les
paramètres.
Merci
--
bouak
Rebonsoir,
http://cjoint.com/?blwJcdpJP6
Dis moi si cela conviendrait.
lSteph
"bouak" <bouak@discussions.microsoft.com> a écrit dans le message de
news:
13864814-B06E-434F-8ADC-60D9536743E5@microsoft.com...
Bonjour LSteph,
Je reprend le fil, j'ai continué sur l'autre car je ne savais pas si
tu
suivais encore sur celle-ci.
****************tu m'indiques:
Bonjour Bouak,
Le pb c'est que je préfèrais rester sur le fil d'origine car ici tu
a
ouvert
cet autre fil
pour les conditions que Daniel semble avoir comprises mieux que moi:
on a toujours 1.7702 en Feuil3 et
dans Feuil1 702 (fin de la partie décimale)
avec l'explication qui est dans le cadre "condition extrême"
et "<>6" je comprends encore moins ce que tu veux.
Maintenant puisque on y est restons ici pour cet autre aspect:
amha dans le code il y a encore souci sur les
events car un _change en cohabitation avec le _calculate
il serait bon d'éviter que cela interfère donc dans ce change
peut-être
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ValB2 As String
If Target.Column <> 1 Then Exit Sub
If Target.Value = [B3] Then Exit Sub
Application.EnableEvents = False 'au début
'''''la suite
Application.EnableEvents = true 'à la fin
end sub
et surtout attention tu as rajouté un exit sub au milieu du
_calculate
qui va te sortir de la macro alors que les événements sont
désactivés.
donc pour éviter le cas échéant de rester en carafe ici:
'....
If [b1] = [B3] Then Application.EnableEvents = True: Exit Sub
'Application.EnableEvents = False 'et celuici ne sert à rien
puisqu'il
y
en a déjà un au début
'.....
(désolé Daniel je ne souhaite pas empièter sur le reste que tu
semble
avoir
pigé mieux que moi,
c'est juste dans le prolongement d'un fil précédent que je finis de
suivre,
je laisse la main....)
a+
lSteph******************
Voici le message que je viens d'envoyer à Daniel suite à ta
reflexion.
"Bonjour Daniel,
Dans mes messages du 10.1.06 de 08:59 et 9:02 PST, les valeurs des 2
conditions sont bien 0.0006 et non 6.
Le reste sans changement
Oups...Merci"
Dans Feuil1 702 (fin de la partie décimale) c'est normal car je n'ai
besoin
que des décimales d'où j'ai porté en B1 de cette Feuil1
=gbp!$B$2*10000-17000
Je pense avoir bien fait les rectifications que tu m'indiques, mais
aprés
avoir fait un essai en inscrivant successivement à data I20 les
valeurs
de
data I36 à I45, ça correspond pas, voici le classeur que j'ai encore
surement
mal rectifié.......
http://cjoint.com/?bllzFE2fPX
Je reprends les conditions avec l'exemple des valeurs de data I36 à
I45
Feuil3 « gbp »
AU DEBUT en comparant la valeur inscrite en A1 et ses suivantes,
inscrire
en
B2 la valeur extrême <>0.0006 (1ère condition), dès quelle change de
0.0006
(2ème condition).
En A1 s'inscrit 1.7701 en B2 rien
En A2 s'inscrit 1.7725 en B2 rien
En A3 s'inscrit 1.7735 en B2 rien
En A4 s'inscrit 1.7728 en B2 s'inscrit 1.7735
car 1ère condition remplie la valeur extrême <>0.0006
depuis
A1
1.7701
2ème condition remplie dès qu'elle change de 0.0006
depuis
A3
1.7735
A LA SUITE en comparant colonne A à partir de la valeur qui a était
inscrite
en B2 et ses suivantes, inscrire en B2 la valeur extrême <>0.0006
(1ère
condition), dès quelle change de 0.0006 (2ème condition). Et ainsi
de
suite
La valeur de comparaison devient celle de A3 soit 1.7735 qui a été
inscrite
en B2
En A5 s'inscrit 1.7731 en B2 toujours 1.7735
En A6 s'inscrit 1.7733 en B2 toujours 1.7735
En A7 s'inscrit 1.7729 en B2 toujours 1.7735
En A8 s'inscrit 1.7698 en B2 toujours 1.7735
En A9 s'inscrit 1.7701 en B2 toujours 1.7735
En A10 s'inscrit 1.7705 en B2 s'inscrit 1.7698
car 1ère condition remplie la valeur extrême <>0.0006 depuis
A3
1.7735
2ème condition remplie dès qu'elle change de 0.0006
depuis
A8
1.7698
En A11 ainsi de suite.
STP s'il y a lieu peux-tu me faire les réctifications directement
dans
le
classeur.
Encore merci de ta disponibilité.
--
Bonsoir,
c'est une hypothèse, mais je crois que
pour le visuel , je vais garder la colonne A pour historique des mouvements
en B1
et stocker la valeur de référence dans une variable.
en A1 je pense mettre la valeur en référence de la colonne "dernier" ou une
valeur tapée au départ..
comme la ficelle devient un peu longue et un peu trop spécifique pour
poursuivre sur forum
en attendant résultat ...je suggère suite en bal perso .
a+
lSteph
"bouak" a écrit dans le message de news:Bonjour LSteph,
Une simple hypothèse... car vraiment j'ai aucune connaissance.
Ne serait il pas bien de créer dans une autre colonne une plage des Pics
qui
indique la référence de la cellule en plus de la valeur du Pic Ex.
C1, A1 1.7701
C2, A3 1.7735
C3, A8 1.7698
d'où la valeur de comparaison en colonne A serait la valeur correspondant
à
la référence de la cellule du dernier Pic.
Bonne journée.
--
bouakRe,
Sur mon précédent post le classeur mis en lien rectifie les erreurs
ajoutées
par la suite dans ce que tu indiques comme "Mon dernier classeur suivant
les
avis de LSteph " donc suivant ma proposition de code en conservant ce
qui
correspondait selon moi à ta demande initiale.
(Un détail aussi avant de rentrer dans le sujet dans excel ou vba, le
signe
"<>" veut dire "différent de " c'est ce qui a suscité sans doute une
confusion)..
Donc tu dis:Je reprends tout depuis le début en faisant abstraction de tous les
précédents
La nouvelle formulation que tu détailles ici s'éloigne effectivement des
précédents.
Cela chamboule complètement ce qui avait été élaboré que ce soit par
Daniel
ou moi.
Je crois qu'une bonne part va être à revoir.
Selon ce nouvel énoncé ce n'est plus B1 qui passe en B2
dans gbp mais une valeur de A dont reste qu'il n'est pas évident selon
tes
deux exemples
de trouver la logique permettant de savoir jusqu'où il pourrait arriver
d'avoir à remonter et
surtout qd est estimé l'écart supérieur ou inférieur à 0.0006En A1 s'inscrit 1.7701 en B2 rien
En A2 s'inscrit 1.7725 en B2 rien
En A3 s'inscrit 1.7735 en B2 rien
En A4 s'inscrit 1.7728 en B2 s'inscrit 1.7735
jusque à la logique serait effectivement correcte par rapport au
changement
de sens et l'écart en val Abs de 0.0006 respecté entre 1.7725 et 1.7735
et
aussi entre 1.7735 et 1.7728 après cela se complique:En A5 s'inscrit 1.7731 en B2 toujours 1.7735
En A6 s'inscrit 1.7733 en B2 toujours 1.7735
En A7 s'inscrit 1.7729 en B2 toujours 1.7735
En A8 s'inscrit 1.7698 en B2 toujours 1.7735
En A9 s'inscrit 1.7701 en B2 toujours 1.7735
En A10 s'inscrit 1.7705 en B2 s'inscrit 1.7698
On ne remonte plus d'un cran mais de 2 puisque c'est là que le sens a
changé
mais pourquoi réagir à 1.7705 puisque la valeur précédente était 1.7701
donc
là l'écart était 0.0004 et non 0.0006 donc une des conditions non
respectée
.. Alors effectivement on peut partir du principe qu'il faille remonter
là à
la valeur
précédente par rapport à laquelle il serait respecté, là où à lieu le
pic .
Ainsi, si l'on a affaire à une plus longue série de valeurs oscillantes
et
plus ou moins continues
voilà qui change la donne et requiert sans doute une autre
méthode/approche
pour mettre cela en code.
Cela demande donc réflexion .........en attendant.
Bonne nuit.
lSteph
"bouak" a écrit dans le message de
news:Re,
Non c'est pas ça.
STP consulte http://cjoint.com/?blxsi7JGfN où j'ai repris tous les
paramètres.
Merci
--
bouakRebonsoir,
http://cjoint.com/?blwJcdpJP6
Dis moi si cela conviendrait.
lSteph
"bouak" a écrit dans le message de
news:Bonjour LSteph,
Je reprend le fil, j'ai continué sur l'autre car je ne savais pas si
tu
suivais encore sur celle-ci.
****************tu m'indiques:
Bonjour Bouak,
Le pb c'est que je préfèrais rester sur le fil d'origine car ici tu
a
ouvert
cet autre fil
pour les conditions que Daniel semble avoir comprises mieux que moi:
on a toujours 1.7702 en Feuil3 et
dans Feuil1 702 (fin de la partie décimale)
avec l'explication qui est dans le cadre "condition extrême"
et "<>6" je comprends encore moins ce que tu veux.
Maintenant puisque on y est restons ici pour cet autre aspect:
amha dans le code il y a encore souci sur les
events car un _change en cohabitation avec le _calculate
il serait bon d'éviter que cela interfère donc dans ce change
peut-être
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ValB2 As String
If Target.Column <> 1 Then Exit Sub
If Target.Value = [B3] Then Exit Sub
Application.EnableEvents = False 'au début
'''''la suite
Application.EnableEvents = true 'à la fin
end sub
et surtout attention tu as rajouté un exit sub au milieu du
_calculate
qui va te sortir de la macro alors que les événements sont
désactivés.
donc pour éviter le cas échéant de rester en carafe ici:
'....
If [b1] = [B3] Then Application.EnableEvents = True: Exit Sub
'Application.EnableEvents = False 'et celuici ne sert à rien
puisqu'il
y
en a déjà un au début
'.....
(désolé Daniel je ne souhaite pas empièter sur le reste que tu
semble
avoir
pigé mieux que moi,
c'est juste dans le prolongement d'un fil précédent que je finis de
suivre,
je laisse la main....)
a+
lSteph******************
Voici le message que je viens d'envoyer à Daniel suite à ta
reflexion.
"Bonjour Daniel,
Dans mes messages du 10.1.06 de 08:59 et 9:02 PST, les valeurs des 2
conditions sont bien 0.0006 et non 6.
Le reste sans changement
Oups...Merci"
Dans Feuil1 702 (fin de la partie décimale) c'est normal car je n'ai
besoin
que des décimales d'où j'ai porté en B1 de cette Feuil1
=gbp!$B$2*10000-17000
Je pense avoir bien fait les rectifications que tu m'indiques, mais
aprés
avoir fait un essai en inscrivant successivement à data I20 les
valeurs
de
data I36 à I45, ça correspond pas, voici le classeur que j'ai encore
surement
mal rectifié.......
http://cjoint.com/?bllzFE2fPX
Je reprends les conditions avec l'exemple des valeurs de data I36 à
I45
Feuil3 « gbp »
AU DEBUT en comparant la valeur inscrite en A1 et ses suivantes,
inscrire
en
B2 la valeur extrême <>0.0006 (1ère condition), dès quelle change de
0.0006
(2ème condition).
En A1 s'inscrit 1.7701 en B2 rien
En A2 s'inscrit 1.7725 en B2 rien
En A3 s'inscrit 1.7735 en B2 rien
En A4 s'inscrit 1.7728 en B2 s'inscrit 1.7735
car 1ère condition remplie la valeur extrême <>0.0006
depuis
A1
1.7701
2ème condition remplie dès qu'elle change de 0.0006
depuis
A3
1.7735
A LA SUITE en comparant colonne A à partir de la valeur qui a était
inscrite
en B2 et ses suivantes, inscrire en B2 la valeur extrême <>0.0006
(1ère
condition), dès quelle change de 0.0006 (2ème condition). Et ainsi
de
suite
La valeur de comparaison devient celle de A3 soit 1.7735 qui a été
inscrite
en B2
En A5 s'inscrit 1.7731 en B2 toujours 1.7735
En A6 s'inscrit 1.7733 en B2 toujours 1.7735
En A7 s'inscrit 1.7729 en B2 toujours 1.7735
En A8 s'inscrit 1.7698 en B2 toujours 1.7735
En A9 s'inscrit 1.7701 en B2 toujours 1.7735
En A10 s'inscrit 1.7705 en B2 s'inscrit 1.7698
car 1ère condition remplie la valeur extrême <>0.0006 depuis
A3
1.7735
2ème condition remplie dès qu'elle change de 0.0006
depuis
A8
1.7698
En A11 ainsi de suite.
STP s'il y a lieu peux-tu me faire les réctifications directement
dans
le
classeur.
Encore merci de ta disponibilité.
--
