Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Problème de Formulation

Problème de Formulation

30 réponses
Avatar
bouak
Bonsoir,

Merci de bien vouloir me secourir ...

En colonne A s’inscrivent automatiquement des nombres différents dans chaque
cellule à partir de A55 (A55 = 150, A56 = 118, A57 =145, le prochain
s’inscrit en A58, etc jusqu’à A65000.

Au départ, par comparaison au nombre inscrit en A55, inscrire en A50 le
prochain nombre extrême dès qu’il est <>6 et dès qu’il diminue de 6
(positivement ou négativement).
Ainsi de suite en comparant le nouveau nombre extrême à chaque dernier
nombre extrême en A50.

Les variables sont portés dans :

Feuille data colonne A Cellule 50 = nombre extrême et de comparaison
Feuille data colonne A Cellule 51 = prochain nombre extrême dès <> 6
Feuille data colonne A Cellule 52 = et dès > 6
Feuille data colonne A Cellule de 55 inscription automatique des nombres
Feuille data colonne A Cellule à 65000 inscription automatique des nombres

Ou tout autre que vous jugez utile.

Merci et bonne nuit

--
bouak
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2 3
Avatar
bouak
Re bonjour Daniel,

Tout ce déclanchait TRES TRES bien sur la correction précédente.
http://cjoint.com/?bko1NGE6yu

C’était uniquement les conditions pour inscrire en Feuil3 « gbp » à B2 qui
n’était pas respectées.

Tu indiques :
« L'événement Worksheet_Calculate de la feuille GBP graph ne se déclenchait
pas puisque "EnableEventsúlse était positionné lors de la mise à jour de B2»

Mais c’est exactement ce qu’il me faut, car au final à GBP graph, ce
graphique ne ce compose que des extrêmes donc des mises à jour de Feuil3 «
gbp » à B2.

Je reprends les conditions avec l’exemple des valeurs de A1 à A11

Feuil3 « gbp »

AU DEBUT en comparant la valeur inscrite en A1 et ses suivantes, inscrire en
B2 la valeur extrême <>6 (1ère condition), dès qu'elle change de 6 (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 <>6 (1ère
condition), dès quelle change de 6 (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 s’inscrit 1.7702 en B2 toujours 1.7698.
En A12 etc.

Encore Merci.

--
bouak

--
bouak



Je n'avais pas vu la suite et l'alimentation du graphique.
L'événement Worksheet_Calculate de la feuille GBP graph ne se déclenchait
pas puisque "EnableEventsúlse était positionné lors de la mise à jour de
B2.
C'est corrigé :
http://cjoint.com/?bkqbCYDHYx
Cordialement.
Daniel
"bouak" a écrit dans le message de news:

le nouveau classeur à ce jour http://cjoint.com/?bko1NGE6yu
--
bouak



Bonjour.
Oups, c'est l'événement "Calculate" qu'il faut modifier :

Private Sub Worksheet_Calculate()
Dim ValB2 As String
If fiXb = [B1].Value Then Exit Sub
If fiXb <> [B1].Value Then
Application.EnableEvents = False
If Cells([A65000].End(xlUp).Row, 1) = 0 Then
[A1] = [B1]
Else
Cells([A65000].End(xlUp).Row + 1, 1) = [B1]
End If
fiXb = [B1]
End If
If [B1] = [B3] Then Exit Sub
Application.EnableEvents = False
If Abs([B2] - [B1]) > [B4] Then
[B2] = [B1]
End If
Application.EnableEvents = True
End Sub

Cordialement.
Daniel
"bouak" a écrit dans le message de
news:

Bonsoir Daniel,

Un peu tardif comme réponse mais j'étais absent.

J'ai inséré à la feuil3 "gbp" la procédure
http://cjoint.com/?bjwSglSfcz mais rien ne s'incrit en
=gbp!$B$2
aprés avoir importer individuellement les mêmes valeurs de l'exemple en
A1
jusqu'à A11.

Pourtant aprés vérification individuelle de chaque feuille et plusieurs
essais en manuel, ça s'importe bien en:
- Feuil3 "gbp" à B1 de Úta!$I$20
- Feuil1 "GBP graph" à B1 de =gbp!$B$2


Quelle erreur ai-je encore fait pour que cela ne fonctionne pas ???

Merci de ta réponse et bonne soirée.

bouak



Bonjour.
Ajoute la procédure événementielle suivante dans la feuille "gbp" :

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
If [B2] = "" Then
If Abs(WorksheetFunction.Max(Range("plage")) - [B1]) > [B4]
Then
[B2] = WorksheetFunction.Max(Range("plage"))
ElseIf Abs(WorksheetFunction.Min(Range("Plage")) - [B1]) >
[B4]
Then
[B2] = WorksheetFunction.Min(Range("plage"))
End If
ElseIf Abs(Target.Value - [B2]) > [B4] Then
[B2] = Target.Value
End If
End Sub

Cordialement.
Daniel
"bouak" a écrit dans le message de
news:

Bonsoir Daniel et encore merci de ta disponibilité.

*************

Réponse à :
« En se basant sur le classeur, qu'est-ce que tu entends par valeur
extrême
? »
« En outre, la valeur 1,7735 a un écart de 0,0033 avec la valeur en
A1
et
tu
indiques 1,7698 (la plus petite valeur en A1, écart de 0,0004 avec
A1) »

Là effectivement j'ai mal recopier ...(pardon) il manque 1.7728
immédiatement après 1.7735, donc nous avons depuis A1 : 1.7701,
1.7725,
1.7735, 1.7728.

En B3 et B4 le 6 c'est 0.0006

D'où à 1.7728 la 2ème condition est remplie, Il y a variation égale
ou
supérieure à 0.0006 avec 1.7735, donc 1.7735 devient la valeur
extrême
depuis
A1 et on l'inscrit en B2.
____________________
Au début en comparant la valeur inscrite en A1 et ses suivantes,
inscrire
en
B2 la valeur extrême <>6 (1ère condition), dès qu'elle change de 6
(2ème
condition).
***********************

Réponse à :
« Tu indiques 1,7698 en B2, pourquoi ? Il n'a a pas de variation
égale
ou
supérieure
à 6. »

La précédente valeur inscrite en B2 était 1.7735 d'où à 1.7705 la
2ème
condition est remplie Il y a variation égale ou supérieure à 0.0006
avec
1.7698, donc 1.7698 devient valeur extrême.
___________________
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 <>6 (1ère
condition), dès quelle change de 6 (2ème condition). Et ainsi de
suite
***************************

Réponse à :
« Pourrai-tu détailler les valeurs successives en B1 et le résultat
escompté
en B2, à
partir de la colonne A vide : »

Si pour toi les valeurs successives en B1 sont celles qui changent
automatiquement (elles viennent de Úta!$I$20) c'est OUI, c'est ce
qui
ce
passe déjà. Je les reportées colonne A pour avoir une plage de
comparaison.

Donc mon oui est si tu as une autre solution de plage et si c'est le
cas,
plus besoin de la feuille gbp, car tu peux directement avoir en
Úta!$I$20
les valeurs successives et porter le résultat escompté en B2 de la
feuille
GBP graph.
***************************
Si t'as besoin d'autres précisions n'hésite pas.

Encore merci
--
bouak



Bonjour.
En se basant sur le classeur, qu'est-ce que tu entends par valeur
extrême
?
Tu indiques 1,7698 en B2, pourquoi ? Il n'a a pas de variation
égale
ou
supérieure à 6.
En outre, la valeur 1,7735 a un écart de 0,0033 avec la valeur en
A1
et
tu
indiques 1,7698 (la plus petite valeur en A1, écart de 0,0004 avec
A1)
Pourrai-tu détailler les valeurs successives en B1 et le résultat
escompté
en B2, à partir de la colonne A vide :
par exemple :
1ere valeur de B1 : x => 1ere valeur de B2 = y
2e valeur de B1 : x' => 2e valeur de B2 = y'
etc.
Cordialement.
Daniel

"bouak" a écrit dans le message
de
news:

Suite à mon dernier message le nouveau classeur rctifié sur
http://cjoint.com/?bhqqFNoaas

Merci et Bon Week end
--
bouak



Ce qui se passe, c'est que je ne comprends pas ce que tu trouves
d'incorrect
dans le classeur tel qu'il est. Il faudrait que tu me dises ce
que
tu
espères trouver comme résultat final (en A52).
Je t'ai parlé d'"Insertion / Noms" pour te montrer que les
plages
étaient
crées.
Tu cliques sur "Insertion", puis sur "Noms" puis sur "Définir".
Une
fenêtre
apparaît et si tu cliques sur une des deux plages (Plage ou
plage2),
tu
vois
leur structure dans "Fait référence à".
Cordialement.
Daniel
"bouak" a écrit dans le
message
de
news:

Re bonsoir,

je ne doute pas de tes capacités ni que tes formules
fonctionnent,
mais mon prob est ma nullité car je ne sais pas comment
intégrer
tout
ça.

Quand tu m'indique Les plages sont définies (voir Insertion /
Noms)
je
comprends pas ce qu'il faut faire.

C'est pour ça que j'ai mis mon fichier

Merci de ta patience et de ta compréhension

bouak







































Avatar
bouak
Rebonsoir,

Mon nouveau classeur avec rectfication de ThisWorkbook car dans Feuil1 et
Feuil3 il y a [B1]

http://cjoint.com/?bktChrp6GL

Merci.

--
bouak



Je n'avais pas vu la suite et l'alimentation du graphique.
L'événement Worksheet_Calculate de la feuille GBP graph ne se déclenchait
pas puisque "EnableEventsúlse était positionné lors de la mise à jour de
B2.
C'est corrigé :
http://cjoint.com/?bkqbCYDHYx
Cordialement.
Daniel
"bouak" a écrit dans le message de news:

le nouveau classeur à ce jour http://cjoint.com/?bko1NGE6yu
--
bouak



Bonjour.
Oups, c'est l'événement "Calculate" qu'il faut modifier :

Private Sub Worksheet_Calculate()
Dim ValB2 As String
If fiXb = [B1].Value Then Exit Sub
If fiXb <> [B1].Value Then
Application.EnableEvents = False
If Cells([A65000].End(xlUp).Row, 1) = 0 Then
[A1] = [B1]
Else
Cells([A65000].End(xlUp).Row + 1, 1) = [B1]
End If
fiXb = [B1]
End If
If [B1] = [B3] Then Exit Sub
Application.EnableEvents = False
If Abs([B2] - [B1]) > [B4] Then
[B2] = [B1]
End If
Application.EnableEvents = True
End Sub

Cordialement.
Daniel
"bouak" a écrit dans le message de
news:

Bonsoir Daniel,

Un peu tardif comme réponse mais j'étais absent.

J'ai inséré à la feuil3 "gbp" la procédure
http://cjoint.com/?bjwSglSfcz mais rien ne s'incrit en
=gbp!$B$2
aprés avoir importer individuellement les mêmes valeurs de l'exemple en
A1
jusqu'à A11.

Pourtant aprés vérification individuelle de chaque feuille et plusieurs
essais en manuel, ça s'importe bien en:
- Feuil3 "gbp" à B1 de Úta!$I$20
- Feuil1 "GBP graph" à B1 de =gbp!$B$2


Quelle erreur ai-je encore fait pour que cela ne fonctionne pas ???

Merci de ta réponse et bonne soirée.

bouak



Bonjour.
Ajoute la procédure événementielle suivante dans la feuille "gbp" :

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
If [B2] = "" Then
If Abs(WorksheetFunction.Max(Range("plage")) - [B1]) > [B4]
Then
[B2] = WorksheetFunction.Max(Range("plage"))
ElseIf Abs(WorksheetFunction.Min(Range("Plage")) - [B1]) >
[B4]
Then
[B2] = WorksheetFunction.Min(Range("plage"))
End If
ElseIf Abs(Target.Value - [B2]) > [B4] Then
[B2] = Target.Value
End If
End Sub

Cordialement.
Daniel
"bouak" a écrit dans le message de
news:

Bonsoir Daniel et encore merci de ta disponibilité.

*************

Réponse à :
« En se basant sur le classeur, qu'est-ce que tu entends par valeur
extrême
? »
« En outre, la valeur 1,7735 a un écart de 0,0033 avec la valeur en
A1
et
tu
indiques 1,7698 (la plus petite valeur en A1, écart de 0,0004 avec
A1) »

Là effectivement j'ai mal recopier ...(pardon) il manque 1.7728
immédiatement après 1.7735, donc nous avons depuis A1 : 1.7701,
1.7725,
1.7735, 1.7728.

En B3 et B4 le 6 c'est 0.0006

D'où à 1.7728 la 2ème condition est remplie, Il y a variation égale
ou
supérieure à 0.0006 avec 1.7735, donc 1.7735 devient la valeur
extrême
depuis
A1 et on l'inscrit en B2.
____________________
Au début en comparant la valeur inscrite en A1 et ses suivantes,
inscrire
en
B2 la valeur extrême <>6 (1ère condition), dès qu'elle change de 6
(2ème
condition).
***********************

Réponse à :
« Tu indiques 1,7698 en B2, pourquoi ? Il n'a a pas de variation
égale
ou
supérieure
à 6. »

La précédente valeur inscrite en B2 était 1.7735 d'où à 1.7705 la
2ème
condition est remplie Il y a variation égale ou supérieure à 0.0006
avec
1.7698, donc 1.7698 devient valeur extrême.
___________________
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 <>6 (1ère
condition), dès quelle change de 6 (2ème condition). Et ainsi de
suite
***************************

Réponse à :
« Pourrai-tu détailler les valeurs successives en B1 et le résultat
escompté
en B2, à
partir de la colonne A vide : »

Si pour toi les valeurs successives en B1 sont celles qui changent
automatiquement (elles viennent de Úta!$I$20) c'est OUI, c'est ce
qui
ce
passe déjà. Je les reportées colonne A pour avoir une plage de
comparaison.

Donc mon oui est si tu as une autre solution de plage et si c'est le
cas,
plus besoin de la feuille gbp, car tu peux directement avoir en
Úta!$I$20
les valeurs successives et porter le résultat escompté en B2 de la
feuille
GBP graph.
***************************
Si t'as besoin d'autres précisions n'hésite pas.

Encore merci
--
bouak



Bonjour.
En se basant sur le classeur, qu'est-ce que tu entends par valeur
extrême
?
Tu indiques 1,7698 en B2, pourquoi ? Il n'a a pas de variation
égale
ou
supérieure à 6.
En outre, la valeur 1,7735 a un écart de 0,0033 avec la valeur en
A1
et
tu
indiques 1,7698 (la plus petite valeur en A1, écart de 0,0004 avec
A1)
Pourrai-tu détailler les valeurs successives en B1 et le résultat
escompté
en B2, à partir de la colonne A vide :
par exemple :
1ere valeur de B1 : x => 1ere valeur de B2 = y
2e valeur de B1 : x' => 2e valeur de B2 = y'
etc.
Cordialement.
Daniel

"bouak" a écrit dans le message
de
news:

Suite à mon dernier message le nouveau classeur rctifié sur
http://cjoint.com/?bhqqFNoaas

Merci et Bon Week end
--
bouak



Ce qui se passe, c'est que je ne comprends pas ce que tu trouves
d'incorrect
dans le classeur tel qu'il est. Il faudrait que tu me dises ce
que
tu
espères trouver comme résultat final (en A52).
Je t'ai parlé d'"Insertion / Noms" pour te montrer que les
plages
étaient
crées.
Tu cliques sur "Insertion", puis sur "Noms" puis sur "Définir".
Une
fenêtre
apparaît et si tu cliques sur une des deux plages (Plage ou
plage2),
tu
vois
leur structure dans "Fait référence à".
Cordialement.
Daniel
"bouak" a écrit dans le
message
de
news:

Re bonsoir,

je ne doute pas de tes capacités ni que tes formules
fonctionnent,
mais mon prob est ma nullité car je ne sais pas comment
intégrer
tout
ça.

Quand tu m'indique Les plages sont définies (voir Insertion /
Noms)
je
comprends pas ce qu'il faut faire.

C'est pour ça que j'ai mis mon fichier

Merci de ta patience et de ta compréhension

bouak







































Avatar
LSteph
Bonsoir Bouak,
...visiblement cela finit par s'arranger.

;o)

lSteph


"bouak" a écrit dans le message de news:

Rebonsoir,

Mon nouveau classeur avec rectfication de ThisWorkbook car dans Feuil1 et
Feuil3 il y a [B1]

http://cjoint.com/?bktChrp6GL

Merci.

--
bouak



Je n'avais pas vu la suite et l'alimentation du graphique.
L'événement Worksheet_Calculate de la feuille GBP graph ne se déclenchait
pas puisque "EnableEventsúlse était positionné lors de la mise à jour
de
B2.
C'est corrigé :
http://cjoint.com/?bkqbCYDHYx
Cordialement.
Daniel
"bouak" a écrit dans le message de
news:

le nouveau classeur à ce jour http://cjoint.com/?bko1NGE6yu
--
bouak



Bonjour.
Oups, c'est l'événement "Calculate" qu'il faut modifier :

Private Sub Worksheet_Calculate()
Dim ValB2 As String
If fiXb = [B1].Value Then Exit Sub
If fiXb <> [B1].Value Then
Application.EnableEvents = False
If Cells([A65000].End(xlUp).Row, 1) = 0 Then
[A1] = [B1]
Else
Cells([A65000].End(xlUp).Row + 1, 1) = [B1]
End If
fiXb = [B1]
End If
If [B1] = [B3] Then Exit Sub
Application.EnableEvents = False
If Abs([B2] - [B1]) > [B4] Then
[B2] = [B1]
End If
Application.EnableEvents = True
End Sub

Cordialement.
Daniel
"bouak" a écrit dans le message de
news:

Bonsoir Daniel,

Un peu tardif comme réponse mais j'étais absent.

J'ai inséré à la feuil3 "gbp" la procédure
http://cjoint.com/?bjwSglSfcz mais rien ne s'incrit en
=gbp!$B$2
aprés avoir importer individuellement les mêmes valeurs de l'exemple
en
A1
jusqu'à A11.

Pourtant aprés vérification individuelle de chaque feuille et
plusieurs
essais en manuel, ça s'importe bien en:
- Feuil3 "gbp" à B1 de Úta!$I$20
- Feuil1 "GBP graph" à B1 de =gbp!$B$2


Quelle erreur ai-je encore fait pour que cela ne fonctionne pas ???

Merci de ta réponse et bonne soirée.

bouak



Bonjour.
Ajoute la procédure événementielle suivante dans la feuille "gbp" :

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
If [B2] = "" Then
If Abs(WorksheetFunction.Max(Range("plage")) - [B1]) > [B4]
Then
[B2] = WorksheetFunction.Max(Range("plage"))
ElseIf Abs(WorksheetFunction.Min(Range("Plage")) - [B1]) >
[B4]
Then
[B2] = WorksheetFunction.Min(Range("plage"))
End If
ElseIf Abs(Target.Value - [B2]) > [B4] Then
[B2] = Target.Value
End If
End Sub

Cordialement.
Daniel
"bouak" a écrit dans le message
de
news:

Bonsoir Daniel et encore merci de ta disponibilité.

*************

Réponse à :
« En se basant sur le classeur, qu'est-ce que tu entends par
valeur
extrême
? »
« En outre, la valeur 1,7735 a un écart de 0,0033 avec la valeur
en
A1
et
tu
indiques 1,7698 (la plus petite valeur en A1, écart de 0,0004
avec
A1) »

Là effectivement j'ai mal recopier ...(pardon) il manque 1.7728
immédiatement après 1.7735, donc nous avons depuis A1 : 1.7701,
1.7725,
1.7735, 1.7728.

En B3 et B4 le 6 c'est 0.0006

D'où à 1.7728 la 2ème condition est remplie, Il y a variation
égale
ou
supérieure à 0.0006 avec 1.7735, donc 1.7735 devient la valeur
extrême
depuis
A1 et on l'inscrit en B2.
____________________
Au début en comparant la valeur inscrite en A1 et ses suivantes,
inscrire
en
B2 la valeur extrême <>6 (1ère condition), dès qu'elle change de
6
(2ème
condition).
***********************

Réponse à :
« Tu indiques 1,7698 en B2, pourquoi ? Il n'a a pas de variation
égale
ou
supérieure
à 6. »

La précédente valeur inscrite en B2 était 1.7735 d'où à 1.7705 la
2ème
condition est remplie Il y a variation égale ou supérieure à
0.0006
avec
1.7698, donc 1.7698 devient valeur extrême.
___________________
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 <>6
(1ère
condition), dès quelle change de 6 (2ème condition). Et ainsi
de
suite
***************************

Réponse à :
« Pourrai-tu détailler les valeurs successives en B1 et le
résultat
escompté
en B2, à
partir de la colonne A vide : »

Si pour toi les valeurs successives en B1 sont celles qui
changent
automatiquement (elles viennent de Úta!$I$20) c'est OUI, c'est
ce
qui
ce
passe déjà. Je les reportées colonne A pour avoir une plage de
comparaison.

Donc mon oui est si tu as une autre solution de plage et si c'est
le
cas,
plus besoin de la feuille gbp, car tu peux directement avoir en
Úta!$I$20
les valeurs successives et porter le résultat escompté en B2 de
la
feuille
GBP graph.
***************************
Si t'as besoin d'autres précisions n'hésite pas.

Encore merci
--
bouak



Bonjour.
En se basant sur le classeur, qu'est-ce que tu entends par
valeur
extrême
?
Tu indiques 1,7698 en B2, pourquoi ? Il n'a a pas de variation
égale
ou
supérieure à 6.
En outre, la valeur 1,7735 a un écart de 0,0033 avec la valeur
en
A1
et
tu
indiques 1,7698 (la plus petite valeur en A1, écart de 0,0004
avec
A1)
Pourrai-tu détailler les valeurs successives en B1 et le
résultat
escompté
en B2, à partir de la colonne A vide :
par exemple :
1ere valeur de B1 : x => 1ere valeur de B2 = y
2e valeur de B1 : x' => 2e valeur de B2 = y'
etc.
Cordialement.
Daniel

"bouak" a écrit dans le
message
de
news:

Suite à mon dernier message le nouveau classeur rctifié sur
http://cjoint.com/?bhqqFNoaas

Merci et Bon Week end
--
bouak



Ce qui se passe, c'est que je ne comprends pas ce que tu
trouves
d'incorrect
dans le classeur tel qu'il est. Il faudrait que tu me dises
ce
que
tu
espères trouver comme résultat final (en A52).
Je t'ai parlé d'"Insertion / Noms" pour te montrer que les
plages
étaient
crées.
Tu cliques sur "Insertion", puis sur "Noms" puis sur
"Définir".
Une
fenêtre
apparaît et si tu cliques sur une des deux plages (Plage ou
plage2),
tu
vois
leur structure dans "Fait référence à".
Cordialement.
Daniel
"bouak" a écrit dans le
message
de
news:

Re bonsoir,

je ne doute pas de tes capacités ni que tes formules
fonctionnent,
mais mon prob est ma nullité car je ne sais pas comment
intégrer
tout
ça.

Quand tu m'indique Les plages sont définies (voir Insertion
/
Noms)
je
comprends pas ce qu'il faut faire.

C'est pour ça que j'ai mis mon fichier

Merci de ta patience et de ta compréhension

bouak









































Avatar
bouak
Bonjour LSteph,

Presque... http://cjoint.com/?bktChrp6GL. Ci-dessous copie de mon avant
dernier message à Daniel.

Re bonjour Daniel,

Tout ce déclanchait TRES TRES bien sur la correction précédente.
http://cjoint.com/?bko1NGE6yu

C’était uniquement les conditions pour inscrire en Feuil3 « gbp » à B2 qui
n’était pas respectées.

Tu indiques :
« L'événement Worksheet_Calculate de la feuille GBP graph ne se déclenchait
pas puisque "EnableEventsúlse était positionné lors de la mise à jour de B2»

Mais c’est exactement ce qu’il me faut, car au final à GBP graph, ce
graphique ne ce compose que des extrêmes donc des mises à jour de Feuil3 «
gbp » à B2.

Je reprends les conditions avec l’exemple des valeurs de A1 à A11

Feuil3 « gbp »

AU DEBUT en comparant la valeur inscrite en A1 et ses suivantes, inscrire en
B2 la valeur extrême <>6 (1ère condition), dès qu'elle change de 6 (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 <>6 (1ère
condition), dès quelle change de 6 (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 s’inscrit 1.7702 en B2 toujours 1.7698.
En A12 etc.

Encore Merci.

--
bouak

--
bouak



Bonsoir Bouak,
....visiblement cela finit par s'arranger.

;o)

lSteph


"bouak" a écrit dans le message de news:

Rebonsoir,

Mon nouveau classeur avec rectfication de ThisWorkbook car dans Feuil1 et
Feuil3 il y a [B1]

http://cjoint.com/?bktChrp6GL

Merci.

--
bouak



Je n'avais pas vu la suite et l'alimentation du graphique.
L'événement Worksheet_Calculate de la feuille GBP graph ne se déclenchait
pas puisque "EnableEventsúlse était positionné lors de la mise à jour
de
B2.
C'est corrigé :
http://cjoint.com/?bkqbCYDHYx
Cordialement.
Daniel
"bouak" a écrit dans le message de
news:

le nouveau classeur à ce jour http://cjoint.com/?bko1NGE6yu
--
bouak



Bonjour.
Oups, c'est l'événement "Calculate" qu'il faut modifier :

Private Sub Worksheet_Calculate()
Dim ValB2 As String
If fiXb = [B1].Value Then Exit Sub
If fiXb <> [B1].Value Then
Application.EnableEvents = False
If Cells([A65000].End(xlUp).Row, 1) = 0 Then
[A1] = [B1]
Else
Cells([A65000].End(xlUp).Row + 1, 1) = [B1]
End If
fiXb = [B1]
End If
If [B1] = [B3] Then Exit Sub
Application.EnableEvents = False
If Abs([B2] - [B1]) > [B4] Then
[B2] = [B1]
End If
Application.EnableEvents = True
End Sub

Cordialement.
Daniel
"bouak" a écrit dans le message de
news:

Bonsoir Daniel,

Un peu tardif comme réponse mais j'étais absent.

J'ai inséré à la feuil3 "gbp" la procédure
http://cjoint.com/?bjwSglSfcz mais rien ne s'incrit en
=gbp!$B$2
aprés avoir importer individuellement les mêmes valeurs de l'exemple
en
A1
jusqu'à A11.

Pourtant aprés vérification individuelle de chaque feuille et
plusieurs
essais en manuel, ça s'importe bien en:
- Feuil3 "gbp" à B1 de Úta!$I$20
- Feuil1 "GBP graph" à B1 de =gbp!$B$2


Quelle erreur ai-je encore fait pour que cela ne fonctionne pas ???

Merci de ta réponse et bonne soirée.

bouak



Bonjour.
Ajoute la procédure événementielle suivante dans la feuille "gbp" :

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
If [B2] = "" Then
If Abs(WorksheetFunction.Max(Range("plage")) - [B1]) > [B4]
Then
[B2] = WorksheetFunction.Max(Range("plage"))
ElseIf Abs(WorksheetFunction.Min(Range("Plage")) - [B1]) >
[B4]
Then
[B2] = WorksheetFunction.Min(Range("plage"))
End If
ElseIf Abs(Target.Value - [B2]) > [B4] Then
[B2] = Target.Value
End If
End Sub

Cordialement.
Daniel
"bouak" a écrit dans le message
de
news:

Bonsoir Daniel et encore merci de ta disponibilité.

*************

Réponse à :
« En se basant sur le classeur, qu'est-ce que tu entends par
valeur
extrême
? »
« En outre, la valeur 1,7735 a un écart de 0,0033 avec la valeur
en
A1
et
tu
indiques 1,7698 (la plus petite valeur en A1, écart de 0,0004
avec
A1) »

Là effectivement j'ai mal recopier ...(pardon) il manque 1.7728
immédiatement après 1.7735, donc nous avons depuis A1 : 1.7701,
1.7725,
1.7735, 1.7728.

En B3 et B4 le 6 c'est 0.0006

D'où à 1.7728 la 2ème condition est remplie, Il y a variation
égale
ou
supérieure à 0.0006 avec 1.7735, donc 1.7735 devient la valeur
extrême
depuis
A1 et on l'inscrit en B2.
____________________
Au début en comparant la valeur inscrite en A1 et ses suivantes,
inscrire
en
B2 la valeur extrême <>6 (1ère condition), dès qu'elle change de
6
(2ème
condition).
***********************

Réponse à :
« Tu indiques 1,7698 en B2, pourquoi ? Il n'a a pas de variation
égale
ou
supérieure
à 6. »

La précédente valeur inscrite en B2 était 1.7735 d'où à 1.7705 la
2ème
condition est remplie Il y a variation égale ou supérieure à
0.0006
avec
1.7698, donc 1.7698 devient valeur extrême.
___________________
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 <>6
(1ère
condition), dès quelle change de 6 (2ème condition). Et ainsi
de
suite
***************************

Réponse à :
« Pourrai-tu détailler les valeurs successives en B1 et le
résultat
escompté
en B2, à
partir de la colonne A vide : »

Si pour toi les valeurs successives en B1 sont celles qui
changent
automatiquement (elles viennent de Úta!$I$20) c'est OUI, c'est
ce
qui
ce
passe déjà. Je les reportées colonne A pour avoir une plage de
comparaison.

Donc mon oui est si tu as une autre solution de plage et si c'est
le
cas,
plus besoin de la feuille gbp, car tu peux directement avoir en
Úta!$I$20
les valeurs successives et porter le résultat escompté en B2 de
la
feuille
GBP graph.
***************************
Si t'as besoin d'autres précisions n'hésite pas.

Encore merci
--
bouak



Bonjour.
En se basant sur le classeur, qu'est-ce que tu entends par
valeur
extrême
?
Tu indiques 1,7698 en B2, pourquoi ? Il n'a a pas de variation
égale
ou
supérieure à 6.
En outre, la valeur 1,7735 a un écart de 0,0033 avec la valeur
en
A1
et
tu
indiques 1,7698 (la plus petite valeur en A1, écart de 0,0004
avec
A1)
Pourrai-tu détailler les valeurs successives en B1 et le
résultat
escompté
en B2, à partir de la colonne A vide :
par exemple :
1ere valeur de B1 : x => 1ere valeur de B2 = y
2e valeur de B1 : x' => 2e valeur de B2 = y'
etc.
Cordialement.
Daniel

"bouak" a écrit dans le
message
de
news:

Suite à mon dernier message le nouveau classeur rctifié sur
http://cjoint.com/?bhqqFNoaas

Merci et Bon Week end
--
bouak



Ce qui se passe, c'est que je ne comprends pas ce que tu
trouves
d'incorrect
dans le classeur tel qu'il est. Il faudrait que tu me dises
ce
que
tu
espères trouver comme résultat final (en A52).
Je t'ai parlé d'"Insertion / Noms" pour te montrer que les
plages
étaient
crées.
Tu cliques sur "Insertion", puis sur "Noms" puis sur
"Définir".
Une
fenêtre
apparaît et si tu cliques sur une des deux plages (Plage ou
plage2),
tu
vois
leur structure dans "Fait référence à".
Cordialement.
Daniel
"bouak" a écrit dans le
message
de
news:

Re bonsoir,
























Avatar
LSteph
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

"bouak" a écrit dans le message de news:

Bonjour LSteph,

Presque... http://cjoint.com/?bktChrp6GL. Ci-dessous copie de mon avant
dernier message à Daniel.

Re bonjour Daniel,

Tout ce déclanchait TRES TRES bien sur la correction précédente.
http://cjoint.com/?bko1NGE6yu

C'était uniquement les conditions pour inscrire en Feuil3 « gbp » à B2 qui
n'était pas respectées.

Tu indiques :
« L'événement Worksheet_Calculate de la feuille GBP graph ne se
déclenchait
pas puisque "EnableEventsúlse était positionné lors de la mise à jour de
B2»

Mais c'est exactement ce qu'il me faut, car au final à GBP graph, ce
graphique ne ce compose que des extrêmes donc des mises à jour de Feuil3 «
gbp » à B2.

Je reprends les conditions avec l'exemple des valeurs de A1 à A11

Feuil3 « gbp »

AU DEBUT en comparant la valeur inscrite en A1 et ses suivantes, inscrire
en
B2 la valeur extrême <>6 (1ère condition), dès qu'elle change de 6 (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 <>6 (1ère
condition), dès quelle change de 6 (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 s'inscrit 1.7702 en B2 toujours 1.7698.
En A12 etc.

Encore Merci.

--
bouak

--
bouak



Bonsoir Bouak,
....visiblement cela finit par s'arranger.

;o)

lSteph


"bouak" a écrit dans le message de
news:

Rebonsoir,

Mon nouveau classeur avec rectfication de ThisWorkbook car dans Feuil1
et
Feuil3 il y a [B1]

http://cjoint.com/?bktChrp6GL

Merci.

--
bouak



Je n'avais pas vu la suite et l'alimentation du graphique.
L'événement Worksheet_Calculate de la feuille GBP graph ne se
déclenchait
pas puisque "EnableEventsúlse était positionné lors de la mise à
jour
de
B2.
C'est corrigé :
http://cjoint.com/?bkqbCYDHYx
Cordialement.
Daniel
"bouak" a écrit dans le message de
news:

le nouveau classeur à ce jour http://cjoint.com/?bko1NGE6yu
--
bouak



Bonjour.
Oups, c'est l'événement "Calculate" qu'il faut modifier :

Private Sub Worksheet_Calculate()
Dim ValB2 As String
If fiXb = [B1].Value Then Exit Sub
If fiXb <> [B1].Value Then
Application.EnableEvents = False
If Cells([A65000].End(xlUp).Row, 1) = 0 Then
[A1] = [B1]
Else
Cells([A65000].End(xlUp).Row + 1, 1) = [B1]
End If
fiXb = [B1]
End If
If [B1] = [B3] Then Exit Sub
Application.EnableEvents = False
If Abs([B2] - [B1]) > [B4] Then
[B2] = [B1]
End If
Application.EnableEvents = True
End Sub

Cordialement.
Daniel
"bouak" a écrit dans le message
de
news:

Bonsoir Daniel,

Un peu tardif comme réponse mais j'étais absent.

J'ai inséré à la feuil3 "gbp" la procédure
http://cjoint.com/?bjwSglSfcz mais rien ne s'incrit
en
=gbp!$B$2
aprés avoir importer individuellement les mêmes valeurs de
l'exemple
en
A1
jusqu'à A11.

Pourtant aprés vérification individuelle de chaque feuille et
plusieurs
essais en manuel, ça s'importe bien en:
- Feuil3 "gbp" à B1 de Úta!$I$20
- Feuil1 "GBP graph" à B1 de =gbp!$B$2


Quelle erreur ai-je encore fait pour que cela ne fonctionne pas
???

Merci de ta réponse et bonne soirée.

bouak



Bonjour.
Ajoute la procédure événementielle suivante dans la feuille
"gbp" :

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
If [B2] = "" Then
If Abs(WorksheetFunction.Max(Range("plage")) - [B1]) >
[B4]
Then
[B2] = WorksheetFunction.Max(Range("plage"))
ElseIf Abs(WorksheetFunction.Min(Range("Plage")) - [B1])

[B4]

Then
[B2] = WorksheetFunction.Min(Range("plage"))
End If
ElseIf Abs(Target.Value - [B2]) > [B4] Then
[B2] = Target.Value
End If
End Sub

Cordialement.
Daniel
"bouak" a écrit dans le
message
de
news:

Bonsoir Daniel et encore merci de ta disponibilité.

*************

Réponse à :
« En se basant sur le classeur, qu'est-ce que tu entends par
valeur
extrême
? »
« En outre, la valeur 1,7735 a un écart de 0,0033 avec la
valeur
en
A1
et
tu
indiques 1,7698 (la plus petite valeur en A1, écart de
0,0004
avec
A1) »

Là effectivement j'ai mal recopier ...(pardon) il manque
1.7728
immédiatement après 1.7735, donc nous avons depuis A1 :
1.7701,
1.7725,
1.7735, 1.7728.

En B3 et B4 le 6 c'est 0.0006

D'où à 1.7728 la 2ème condition est remplie, Il y a variation
égale
ou
supérieure à 0.0006 avec 1.7735, donc 1.7735 devient la valeur
extrême
depuis
A1 et on l'inscrit en B2.
____________________
Au début en comparant la valeur inscrite en A1 et ses
suivantes,
inscrire
en
B2 la valeur extrême <>6 (1ère condition), dès qu'elle change
de
6
(2ème
condition).
***********************

Réponse à :
« Tu indiques 1,7698 en B2, pourquoi ? Il n'a a pas de
variation
égale
ou
supérieure
à 6. »

La précédente valeur inscrite en B2 était 1.7735 d'où à 1.7705
la
2ème
condition est remplie Il y a variation égale ou supérieure à
0.0006
avec
1.7698, donc 1.7698 devient valeur extrême.
___________________
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 <>6
(1ère
condition), dès quelle change de 6 (2ème condition). Et
ainsi
de
suite
***************************

Réponse à :
« Pourrai-tu détailler les valeurs successives en B1 et le
résultat
escompté
en B2, à
partir de la colonne A vide : »

Si pour toi les valeurs successives en B1 sont celles qui
changent
automatiquement (elles viennent de Úta!$I$20) c'est OUI,
c'est
ce
qui
ce
passe déjà. Je les reportées colonne A pour avoir une plage de
comparaison.

Donc mon oui est si tu as une autre solution de plage et si
c'est
le
cas,
plus besoin de la feuille gbp, car tu peux directement avoir
en
Úta!$I$20
les valeurs successives et porter le résultat escompté en B2
de
la
feuille
GBP graph.
***************************
Si t'as besoin d'autres précisions n'hésite pas.

Encore merci
--
bouak



Bonjour.
En se basant sur le classeur, qu'est-ce que tu entends par
valeur
extrême
?
Tu indiques 1,7698 en B2, pourquoi ? Il n'a a pas de
variation
égale
ou
supérieure à 6.
En outre, la valeur 1,7735 a un écart de 0,0033 avec la
valeur
en
A1
et
tu
indiques 1,7698 (la plus petite valeur en A1, écart de 0,0004
avec
A1)
Pourrai-tu détailler les valeurs successives en B1 et le
résultat
escompté
en B2, à partir de la colonne A vide :
par exemple :
1ere valeur de B1 : x => 1ere valeur de B2 = y
2e valeur de B1 : x' => 2e valeur de B2 = y'
etc.
Cordialement.
Daniel

"bouak" a écrit dans le
message
de
news:

Suite à mon dernier message le nouveau classeur rctifié sur
http://cjoint.com/?bhqqFNoaas

Merci et Bon Week end
--
bouak



Ce qui se passe, c'est que je ne comprends pas ce que tu
trouves
d'incorrect
dans le classeur tel qu'il est. Il faudrait que tu me
dises
ce
que
tu
espères trouver comme résultat final (en A52).
Je t'ai parlé d'"Insertion / Noms" pour te montrer que les
plages
étaient
crées.
Tu cliques sur "Insertion", puis sur "Noms" puis sur
"Définir".
Une
fenêtre
apparaît et si tu cliques sur une des deux plages (Plage
ou
plage2),
tu
vois
leur structure dans "Fait référence à".
Cordialement.
Daniel
"bouak" a écrit dans le
message
de
news:

Re bonsoir,


























Avatar
bouak
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.
--
bouak



Je n'avais pas vu la suite et l'alimentation du graphique.
L'événement Worksheet_Calculate de la feuille GBP graph ne se déclenchait
pas puisque "EnableEventsúlse était positionné lors de la mise à jour de
B2.
C'est corrigé :
http://cjoint.com/?bkqbCYDHYx
Cordialement.
Daniel
"bouak" a écrit dans le message de news:

le nouveau classeur à ce jour http://cjoint.com/?bko1NGE6yu
--
bouak



Bonjour.
Oups, c'est l'événement "Calculate" qu'il faut modifier :

Private Sub Worksheet_Calculate()
Dim ValB2 As String
If fiXb = [B1].Value Then Exit Sub
If fiXb <> [B1].Value Then
Application.EnableEvents = False
If Cells([A65000].End(xlUp).Row, 1) = 0 Then
[A1] = [B1]
Else
Cells([A65000].End(xlUp).Row + 1, 1) = [B1]
End If
fiXb = [B1]
End If
If [B1] = [B3] Then Exit Sub
Application.EnableEvents = False
If Abs([B2] - [B1]) > [B4] Then
[B2] = [B1]
End If
Application.EnableEvents = True
End Sub

Cordialement.
Daniel
"bouak" a écrit dans le message de
news:

Bonsoir Daniel,

Un peu tardif comme réponse mais j'étais absent.

J'ai inséré à la feuil3 "gbp" la procédure
http://cjoint.com/?bjwSglSfcz mais rien ne s'incrit en
=gbp!$B$2
aprés avoir importer individuellement les mêmes valeurs de l'exemple en
A1
jusqu'à A11.

Pourtant aprés vérification individuelle de chaque feuille et plusieurs
essais en manuel, ça s'importe bien en:
- Feuil3 "gbp" à B1 de Úta!$I$20
- Feuil1 "GBP graph" à B1 de =gbp!$B$2


Quelle erreur ai-je encore fait pour que cela ne fonctionne pas ???

Merci de ta réponse et bonne soirée.

bouak



Bonjour.
Ajoute la procédure événementielle suivante dans la feuille "gbp" :

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
If [B2] = "" Then
If Abs(WorksheetFunction.Max(Range("plage")) - [B1]) > [B4]
Then
[B2] = WorksheetFunction.Max(Range("plage"))
ElseIf Abs(WorksheetFunction.Min(Range("Plage")) - [B1]) >
[B4]
Then
[B2] = WorksheetFunction.Min(Range("plage"))
End If
ElseIf Abs(Target.Value - [B2]) > [B4] Then
[B2] = Target.Value
End If
End Sub

Cordialement.
Daniel
"bouak" a écrit dans le message de
news:

Bonsoir Daniel et encore merci de ta disponibilité.

*************

Réponse à :
« En se basant sur le classeur, qu'est-ce que tu entends par valeur
extrême
? »
« En outre, la valeur 1,7735 a un écart de 0,0033 avec la valeur en
A1
et
tu
indiques 1,7698 (la plus petite valeur en A1, écart de 0,0004 avec
A1) »

Là effectivement j'ai mal recopier ...(pardon) il manque 1.7728
immédiatement après 1.7735, donc nous avons depuis A1 : 1.7701,
1.7725,
1.7735, 1.7728.

En B3 et B4 le 6 c'est 0.0006

D'où à 1.7728 la 2ème condition est remplie, Il y a variation égale
ou
supérieure à 0.0006 avec 1.7735, donc 1.7735 devient la valeur
extrême
depuis
A1 et on l'inscrit en B2.
____________________
Au début en comparant la valeur inscrite en A1 et ses suivantes,
inscrire
en
B2 la valeur extrême <>6 (1ère condition), dès qu'elle change de 6
(2ème
condition).
***********************

Réponse à :
« Tu indiques 1,7698 en B2, pourquoi ? Il n'a a pas de variation
égale
ou
supérieure
à 6. »

La précédente valeur inscrite en B2 était 1.7735 d'où à 1.7705 la
2ème
condition est remplie Il y a variation égale ou supérieure à 0.0006
avec
1.7698, donc 1.7698 devient valeur extrême.
___________________
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 <>6 (1ère
condition), dès quelle change de 6 (2ème condition). Et ainsi de
suite
***************************

Réponse à :
« Pourrai-tu détailler les valeurs successives en B1 et le résultat
escompté
en B2, à
partir de la colonne A vide : »

Si pour toi les valeurs successives en B1 sont celles qui changent
automatiquement (elles viennent de Úta!$I$20) c'est OUI, c'est ce
qui
ce
passe déjà. Je les reportées colonne A pour avoir une plage de
comparaison.

Donc mon oui est si tu as une autre solution de plage et si c'est le
cas,
plus besoin de la feuille gbp, car tu peux directement avoir en
Úta!$I$20
les valeurs successives et porter le résultat escompté en B2 de la
feuille
GBP graph.
***************************
Si t'as besoin d'autres précisions n'hésite pas.

Encore merci
--
bouak



Bonjour.
En se basant sur le classeur, qu'est-ce que tu entends par valeur
extrême
?
Tu indiques 1,7698 en B2, pourquoi ? Il n'a a pas de variation
égale
ou
supérieure à 6.
En outre, la valeur 1,7735 a un écart de 0,0033 avec la valeur en
A1
et
tu
indiques 1,7698 (la plus petite valeur en A1, écart de 0,0004 avec
A1)
Pourrai-tu détailler les valeurs successives en B1 et le résultat
escompté
en B2, à partir de la colonne A vide :
par exemple :
1ere valeur de B1 : x => 1ere valeur de B2 = y
2e valeur de B1 : x' => 2e valeur de B2 = y'
etc.
Cordialement.
Daniel

"bouak" a écrit dans le message
de
news:

Suite à mon dernier message le nouveau classeur rctifié sur
http://cjoint.com/?bhqqFNoaas

Merci et Bon Week end
--
bouak



Ce qui se passe, c'est que je ne comprends pas ce que tu trouves
d'incorrect
dans le classeur tel qu'il est. Il faudrait que tu me dises ce
que
tu
espères trouver comme résultat final (en A52).
Je t'ai parlé d'"Insertion / Noms" pour te montrer que les
plages
étaient
crées.
Tu cliques sur "Insertion", puis sur "Noms" puis sur "Définir".
Une
fenêtre
apparaît et si tu cliques sur une des deux plages (Plage ou
plage2),
tu
vois
leur structure dans "Fait référence à".
Cordialement.
Daniel
"bouak" a écrit dans le
message
de
news:

Re bonsoir,

je ne doute pas de tes capacités ni que tes formules
fonctionnent,
mais mon prob est ma nullité car je ne sais pas comment
intégrer
tout
ça.

Quand tu m'indique Les plages sont définies (voir Insertion /
Noms)
je
comprends pas ce qu'il faut faire.

C'est pour ça que j'ai mis mon fichier

Merci de ta patience et de ta compréhension

bouak







































Avatar
Daniel
Bonjour.
J'avoue ne pas comprendre. Suite à ton dernier message, j'avais compris que
tu avais réglé le problème. Quel est le problème dans ce classeur ?
Cordialement.
Daniel
"bouak" a écrit dans le message de news:

Rebonsoir,

Mon nouveau classeur avec rectfication de ThisWorkbook car dans Feuil1 et
Feuil3 il y a [B1]

http://cjoint.com/?bktChrp6GL

Merci.

--
bouak


Avatar
bouak
Bonsoir Daniel,

Non ça marche pas, STP peux-tu consulter http://cjoint.com/?blxsi7JGfN où
j'ai repris les paramètres.

Merci
--
bouak



Bonjour.
J'avoue ne pas comprendre. Suite à ton dernier message, j'avais compris que
tu avais réglé le problème. Quel est le problème dans ce classeur ?
Cordialement.
Daniel
"bouak" a écrit dans le message de news:

Rebonsoir,

Mon nouveau classeur avec rectfication de ThisWorkbook car dans Feuil1 et
Feuil3 il y a [B1]

http://cjoint.com/?bktChrp6GL

Merci.

--
bouak







Avatar
Daniel
Bonjour.
Désolé. Trop compliqué pour moi. Je jette l'éponge.
Daniel
"bouak" a écrit dans le message de news:

Bonsoir Daniel,

Non ça marche pas, STP peux-tu consulter http://cjoint.com/?blxsi7JGfN où
j'ai repris les paramètres.

Merci
--
bouak



Bonjour.
J'avoue ne pas comprendre. Suite à ton dernier message, j'avais compris
que
tu avais réglé le problème. Quel est le problème dans ce classeur ?
Cordialement.
Daniel
"bouak" a écrit dans le message de
news:

Rebonsoir,

Mon nouveau classeur avec rectfication de ThisWorkbook car dans Feuil1
et
Feuil3 il y a [B1]

http://cjoint.com/?bktChrp6GL

Merci.

--
bouak









Avatar
bouak
Bonsoir Daniel,

En tous cas, merci de ton concours t'as été trés sympa avec moi.

bouak



Bonjour.
Désolé. Trop compliqué pour moi. Je jette l'éponge.
Daniel
"bouak" a écrit dans le message de news:

Bonsoir Daniel,

Non ça marche pas, STP peux-tu consulter http://cjoint.com/?blxsi7JGfN où
j'ai repris les paramètres.

Merci
--
bouak



Bonjour.
J'avoue ne pas comprendre. Suite à ton dernier message, j'avais compris
que
tu avais réglé le problème. Quel est le problème dans ce classeur ?
Cordialement.
Daniel
"bouak" a écrit dans le message de
news:

Rebonsoir,

Mon nouveau classeur avec rectfication de ThisWorkbook car dans Feuil1
et
Feuil3 il y a [B1]

http://cjoint.com/?bktChrp6GL

Merci.

--
bouak














1 2 3