bonjour,
aprés lecture assidu du forum, je ne trouve pas d'aide sur ce probleme.
j'ai une serie de donnée sur une ligne, je cherche a savoir si les valeurs
de 7 cellules consecutives sont en progression. (Avec ou sans vba)
j'ai tester les tableaux (array) mais je n'arrive pas a comparer 7 cellules
entre elles.
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
FxM
Bonjour,
j'ai tester les tableaux (array) mais je n'arrive pas a comparer 7 cellules
entre elles.
Tu le fais de la même manière.
Sinon, il y a le grand classique : =et(A1<B1;B1<C1;C1<D1;D1<E1;E1<F1;F1<G1)
@+ FxM
bonjour, aprés lecture assidu du forum, je ne trouve pas d'aide sur ce probleme. j'ai une serie de donnée sur une ligne, je cherche a savoir si les valeurs de 7 cellules consecutives sont en progression. (Avec ou sans vba)
j'ai tester les tableaux (array) mais je n'arrive pas a comparer 7 cellules entre elles.
merci de vos suggestions
Bonjour,
j'ai tester les tableaux (array) mais je n'arrive pas a comparer 7
cellules
entre elles.
Tu le fais de la même manière.
Sinon, il y a le grand classique : =et(A1<B1;B1<C1;C1<D1;D1<E1;E1<F1;F1<G1)
@+
FxM
bonjour,
aprés lecture assidu du forum, je ne trouve pas d'aide sur ce probleme.
j'ai une serie de donnée sur une ligne, je cherche a savoir si les valeurs
de 7 cellules consecutives sont en progression. (Avec ou sans vba)
j'ai tester les tableaux (array) mais je n'arrive pas a comparer 7 cellules
entre elles.
j'ai tester les tableaux (array) mais je n'arrive pas a comparer 7 cellules
entre elles.
Tu le fais de la même manière.
Sinon, il y a le grand classique : =et(A1<B1;B1<C1;C1<D1;D1<E1;E1<F1;F1<G1)
@+ FxM
bonjour, aprés lecture assidu du forum, je ne trouve pas d'aide sur ce probleme. j'ai une serie de donnée sur une ligne, je cherche a savoir si les valeurs de 7 cellules consecutives sont en progression. (Avec ou sans vba)
j'ai tester les tableaux (array) mais je n'arrive pas a comparer 7 cellules entre elles.
merci de vos suggestions
hymotep
merci FmX de ton interet, je précise ma difficulté, la ligne de donnée etant a1:a49, je cherche pour chaque donnée rentrer si les 7 précedentes sont croissante.
pour les tableaux je ne vois toujours pas comment faire, par contre je peux exploiter ton grand classique en remplacent G1 par la derniere valeur rentrée et A;B;C;D;E;F par des cellules relative (colonne -1)
c'est posssible?
-- "vas dont savoir quand tu sais pas" Coluche
Bonjour,
j'ai tester les tableaux (array) mais je n'arrive pas a comparer 7 cellules
entre elles.
Tu le fais de la même manière.
Sinon, il y a le grand classique : =et(A1<B1;B1<C1;C1<D1;D1<E1;E1<F1;F1<G1)
@+ FxM
bonjour, aprés lecture assidu du forum, je ne trouve pas d'aide sur ce probleme. j'ai une serie de donnée sur une ligne, je cherche a savoir si les valeurs de 7 cellules consecutives sont en progression. (Avec ou sans vba)
j'ai tester les tableaux (array) mais je n'arrive pas a comparer 7 cellules entre elles.
merci de vos suggestions
merci FmX de ton interet,
je précise ma difficulté, la ligne de donnée etant a1:a49, je cherche pour
chaque donnée rentrer si les 7 précedentes sont croissante.
pour les tableaux je ne vois toujours pas comment faire, par contre je peux
exploiter ton grand classique en remplacent G1 par la derniere valeur rentrée
et A;B;C;D;E;F par des cellules relative (colonne -1)
c'est posssible?
--
"vas dont savoir quand tu sais pas" Coluche
Bonjour,
j'ai tester les tableaux (array) mais je n'arrive pas a comparer 7
cellules
entre elles.
Tu le fais de la même manière.
Sinon, il y a le grand classique : =et(A1<B1;B1<C1;C1<D1;D1<E1;E1<F1;F1<G1)
@+
FxM
bonjour,
aprés lecture assidu du forum, je ne trouve pas d'aide sur ce probleme.
j'ai une serie de donnée sur une ligne, je cherche a savoir si les valeurs
de 7 cellules consecutives sont en progression. (Avec ou sans vba)
j'ai tester les tableaux (array) mais je n'arrive pas a comparer 7 cellules
entre elles.
merci FmX de ton interet, je précise ma difficulté, la ligne de donnée etant a1:a49, je cherche pour chaque donnée rentrer si les 7 précedentes sont croissante.
pour les tableaux je ne vois toujours pas comment faire, par contre je peux exploiter ton grand classique en remplacent G1 par la derniere valeur rentrée et A;B;C;D;E;F par des cellules relative (colonne -1)
c'est posssible?
-- "vas dont savoir quand tu sais pas" Coluche
Bonjour,
j'ai tester les tableaux (array) mais je n'arrive pas a comparer 7 cellules
entre elles.
Tu le fais de la même manière.
Sinon, il y a le grand classique : =et(A1<B1;B1<C1;C1<D1;D1<E1;E1<F1;F1<G1)
@+ FxM
bonjour, aprés lecture assidu du forum, je ne trouve pas d'aide sur ce probleme. j'ai une serie de donnée sur une ligne, je cherche a savoir si les valeurs de 7 cellules consecutives sont en progression. (Avec ou sans vba)
j'ai tester les tableaux (array) mais je n'arrive pas a comparer 7 cellules entre elles.
merci de vos suggestions
Daniel
Bonjour. Essaie alors :
Sub test() Dim c As Range, Ctr As Integer, Res For Each c In Range(Cells(1, 1), Cells(1, 49)) If c.Value > Res Then Ctr = Ctr + 1 Else Ctr = 0 End If Res = c.Value If Ctr = 6 Then MsgBox "Condition remplie" Exit Sub End If Next c End Sub
Cordialement. Daniel "hymotep" a écrit dans le message de news:
merci FmX de ton interet, je précise ma difficulté, la ligne de donnée etant a1:a49, je cherche pour chaque donnée rentrer si les 7 précedentes sont croissante.
pour les tableaux je ne vois toujours pas comment faire, par contre je peux exploiter ton grand classique en remplacent G1 par la derniere valeur rentrée et A;B;C;D;E;F par des cellules relative (colonne -1)
c'est posssible?
-- "vas dont savoir quand tu sais pas" Coluche
Bonjour,
j'ai tester les tableaux (array) mais je n'arrive pas a comparer 7 cellules
entre elles.
Tu le fais de la même manière.
Sinon, il y a le grand classique : =et(A1<B1;B1<C1;C1<D1;D1<E1;E1<F1;F1<G1)
@+ FxM
bonjour, aprés lecture assidu du forum, je ne trouve pas d'aide sur ce probleme. j'ai une serie de donnée sur une ligne, je cherche a savoir si les valeurs de 7 cellules consecutives sont en progression. (Avec ou sans vba)
j'ai tester les tableaux (array) mais je n'arrive pas a comparer 7 cellules entre elles.
merci de vos suggestions
Bonjour.
Essaie alors :
Sub test()
Dim c As Range, Ctr As Integer, Res
For Each c In Range(Cells(1, 1), Cells(1, 49))
If c.Value > Res Then
Ctr = Ctr + 1
Else
Ctr = 0
End If
Res = c.Value
If Ctr = 6 Then
MsgBox "Condition remplie"
Exit Sub
End If
Next c
End Sub
Cordialement.
Daniel
"hymotep" <hymotep@discussions.microsoft.com> a écrit dans le message de
news: DDBE265D-9B2C-411A-9805-6EBEC83486F9@microsoft.com...
merci FmX de ton interet,
je précise ma difficulté, la ligne de donnée etant a1:a49, je cherche pour
chaque donnée rentrer si les 7 précedentes sont croissante.
pour les tableaux je ne vois toujours pas comment faire, par contre je
peux
exploiter ton grand classique en remplacent G1 par la derniere valeur
rentrée
et A;B;C;D;E;F par des cellules relative (colonne -1)
c'est posssible?
--
"vas dont savoir quand tu sais pas" Coluche
Bonjour,
j'ai tester les tableaux (array) mais je n'arrive pas a comparer 7
cellules
entre elles.
Tu le fais de la même manière.
Sinon, il y a le grand classique :
=et(A1<B1;B1<C1;C1<D1;D1<E1;E1<F1;F1<G1)
@+
FxM
bonjour,
aprés lecture assidu du forum, je ne trouve pas d'aide sur ce probleme.
j'ai une serie de donnée sur une ligne, je cherche a savoir si les
valeurs
de 7 cellules consecutives sont en progression. (Avec ou sans vba)
j'ai tester les tableaux (array) mais je n'arrive pas a comparer 7
cellules
entre elles.
Sub test() Dim c As Range, Ctr As Integer, Res For Each c In Range(Cells(1, 1), Cells(1, 49)) If c.Value > Res Then Ctr = Ctr + 1 Else Ctr = 0 End If Res = c.Value If Ctr = 6 Then MsgBox "Condition remplie" Exit Sub End If Next c End Sub
Cordialement. Daniel "hymotep" a écrit dans le message de news:
merci FmX de ton interet, je précise ma difficulté, la ligne de donnée etant a1:a49, je cherche pour chaque donnée rentrer si les 7 précedentes sont croissante.
pour les tableaux je ne vois toujours pas comment faire, par contre je peux exploiter ton grand classique en remplacent G1 par la derniere valeur rentrée et A;B;C;D;E;F par des cellules relative (colonne -1)
c'est posssible?
-- "vas dont savoir quand tu sais pas" Coluche
Bonjour,
j'ai tester les tableaux (array) mais je n'arrive pas a comparer 7 cellules
entre elles.
Tu le fais de la même manière.
Sinon, il y a le grand classique : =et(A1<B1;B1<C1;C1<D1;D1<E1;E1<F1;F1<G1)
@+ FxM
bonjour, aprés lecture assidu du forum, je ne trouve pas d'aide sur ce probleme. j'ai une serie de donnée sur une ligne, je cherche a savoir si les valeurs de 7 cellules consecutives sont en progression. (Avec ou sans vba)
j'ai tester les tableaux (array) mais je n'arrive pas a comparer 7 cellules entre elles.
merci de vos suggestions
Croy
Salut hymotep,
Je te suggère la solution suivante :
En A:A tu as ta colonne de chiffres dont la progression est à tester.
En B1 tu mets 0
En B2 tu mets
=SI(A2<A1;0;B1+1), que tu tires sur toutes la longueur.
En C1 tu mets
=SI(B1>=7;"les 7 nombres précédents sont croissants";""), que tu tires sur toutes la longueur.
La colonne C te donneras ce que tu souhaites.
Tchô - Croy
Salut hymotep,
Je te suggère la solution suivante :
En A:A tu as ta colonne de chiffres dont la progression est à tester.
En B1 tu mets 0
En B2 tu mets
=SI(A2<A1;0;B1+1), que tu tires sur toutes la longueur.
En C1 tu mets
=SI(B1>=7;"les 7 nombres précédents sont croissants";""), que tu
tires sur toutes la longueur.
merci à vous daniel j'ai compris ta macro mais je n'arrive pas a la faire fonctionner
Dim c As Range, Ctr As Integer, Res For Each c In Range(Cells(1, 1), Cells(1, 49)) If c.Value > Res Then Ctr = Ctr + 1
le premier if ne passe pas et je me demande si c'est parce que Res n'est pas défini?
Croy trés ingénieux ta methode, mais j'ai plusieurs tests a effectuer et j'ai peur que cela prenne beaucoupo de place, j'essai quand même.
a+ -- "vas dont savoir quand tu sais pas" Coluche
Salut hymotep,
Je te suggère la solution suivante :
En A:A tu as ta colonne de chiffres dont la progression est à tester.
En B1 tu mets 0
En B2 tu mets
=SI(A2<A1;0;B1+1), que tu tires sur toutes la longueur.
En C1 tu mets
=SI(B1>=7;"les 7 nombres précédents sont croissants";""), que tu tires sur toutes la longueur.
La colonne C te donneras ce que tu souhaites.
Tchô - Croy
Daniel
Regarde le classeur à l'adresse : http://cjoint.com/?kyrqB2NbT7 Sinon, pose un classeur avec tes données à l'adresse : www.cjoint.com. Daniel "hymotep" a écrit dans le message de news:
merci à vous daniel j'ai compris ta macro mais je n'arrive pas a la faire fonctionner
Dim c As Range, Ctr As Integer, Res For Each c In Range(Cells(1, 1), Cells(1, 49)) If c.Value > Res Then Ctr = Ctr + 1
le premier if ne passe pas et je me demande si c'est parce que Res n'est pas défini?
Croy trés ingénieux ta methode, mais j'ai plusieurs tests a effectuer et j'ai peur que cela prenne beaucoupo de place, j'essai quand même.
a+ -- "vas dont savoir quand tu sais pas" Coluche
Salut hymotep,
Je te suggère la solution suivante :
En A:A tu as ta colonne de chiffres dont la progression est à tester.
En B1 tu mets 0
En B2 tu mets
=SI(A2<A1;0;B1+1), que tu tires sur toutes la longueur.
En C1 tu mets
=SI(B1>=7;"les 7 nombres précédents sont croissants";""), que tu tires sur toutes la longueur.
La colonne C te donneras ce que tu souhaites.
Tchô - Croy
Regarde le classeur à l'adresse :
http://cjoint.com/?kyrqB2NbT7
Sinon, pose un classeur avec tes données à l'adresse :
www.cjoint.com.
Daniel
"hymotep" <hymotep@discussions.microsoft.com> a écrit dans le message de
news: EF494241-BDA1-428C-9EC8-936A1F3D9293@microsoft.com...
merci à vous
daniel
j'ai compris ta macro mais je n'arrive pas a la faire fonctionner
Dim c As Range, Ctr As Integer, Res
For Each c In Range(Cells(1, 1), Cells(1, 49))
If c.Value > Res Then
Ctr = Ctr + 1
le premier if ne passe pas et je me demande si c'est parce que Res n'est
pas
défini?
Croy
trés ingénieux ta methode, mais j'ai plusieurs tests a effectuer et j'ai
peur que cela prenne beaucoupo de place, j'essai quand même.
a+
--
"vas dont savoir quand tu sais pas" Coluche
Salut hymotep,
Je te suggère la solution suivante :
En A:A tu as ta colonne de chiffres dont la progression est à tester.
En B1 tu mets 0
En B2 tu mets
=SI(A2<A1;0;B1+1), que tu tires sur toutes la longueur.
En C1 tu mets
=SI(B1>=7;"les 7 nombres précédents sont croissants";""), que tu
tires sur toutes la longueur.
Regarde le classeur à l'adresse : http://cjoint.com/?kyrqB2NbT7 Sinon, pose un classeur avec tes données à l'adresse : www.cjoint.com. Daniel "hymotep" a écrit dans le message de news:
merci à vous daniel j'ai compris ta macro mais je n'arrive pas a la faire fonctionner
Dim c As Range, Ctr As Integer, Res For Each c In Range(Cells(1, 1), Cells(1, 49)) If c.Value > Res Then Ctr = Ctr + 1
le premier if ne passe pas et je me demande si c'est parce que Res n'est pas défini?
Croy trés ingénieux ta methode, mais j'ai plusieurs tests a effectuer et j'ai peur que cela prenne beaucoupo de place, j'essai quand même.
a+ -- "vas dont savoir quand tu sais pas" Coluche
Salut hymotep,
Je te suggère la solution suivante :
En A:A tu as ta colonne de chiffres dont la progression est à tester.
En B1 tu mets 0
En B2 tu mets
=SI(A2<A1;0;B1+1), que tu tires sur toutes la longueur.
En C1 tu mets
=SI(B1>=7;"les 7 nombres précédents sont croissants";""), que tu tires sur toutes la longueur.
La colonne C te donneras ce que tu souhaites.
Tchô - Croy
Croy
..plusieurs tests...? ...beaucoup de place...? Soyez plus précis mon Cher! Comment voulez sans celâ que je vous aidasse ? - Croy
..plusieurs tests...?
...beaucoup de place...?
Soyez plus précis mon Cher! Comment voulez sans celâ que je vous
aidasse ? - Croy
..plusieurs tests...? ...beaucoup de place...? Soyez plus précis mon Cher! Comment voulez sans celâ que je vous aidasse ? - Croy
hymotep
alors là c'est extraordinaire. cela fonctionne toujours mieux chez les autres. ton classeur repond a ma question, reste a transposer dans mon classeur et comprendre où est mon erreur.
merci daniel pour croy, je suis désolé et toujours partagé entre le désir d'être concis ( ne pas faire trois page pour un probleme que personne ne tentera de comprendre) et suffisament long pour etre compris -- "vas dont savoir quand tu sais pas" Coluche
Regarde le classeur à l'adresse : http://cjoint.com/?kyrqB2NbT7 Sinon, pose un classeur avec tes données à l'adresse : www.cjoint.com. Daniel "hymotep" a écrit dans le message de news:
merci à vous daniel j'ai compris ta macro mais je n'arrive pas a la faire fonctionner
Dim c As Range, Ctr As Integer, Res For Each c In Range(Cells(1, 1), Cells(1, 49)) If c.Value > Res Then Ctr = Ctr + 1
le premier if ne passe pas et je me demande si c'est parce que Res n'est pas défini?
Croy trés ingénieux ta methode, mais j'ai plusieurs tests a effectuer et j'ai peur que cela prenne beaucoupo de place, j'essai quand même.
a+ -- "vas dont savoir quand tu sais pas" Coluche
Salut hymotep,
Je te suggère la solution suivante :
En A:A tu as ta colonne de chiffres dont la progression est à tester.
En B1 tu mets 0
En B2 tu mets
=SI(A2<A1;0;B1+1), que tu tires sur toutes la longueur.
En C1 tu mets
=SI(B1>=7;"les 7 nombres précédents sont croissants";""), que tu tires sur toutes la longueur.
La colonne C te donneras ce que tu souhaites.
Tchô - Croy
alors là c'est extraordinaire.
cela fonctionne toujours mieux chez les autres.
ton classeur repond a ma question, reste a transposer dans mon classeur et
comprendre où est mon erreur.
merci daniel
pour croy, je suis désolé et toujours partagé entre le désir d'être concis (
ne pas faire trois page pour un probleme que personne ne tentera de
comprendre) et suffisament long pour etre compris
--
"vas dont savoir quand tu sais pas" Coluche
Regarde le classeur à l'adresse :
http://cjoint.com/?kyrqB2NbT7
Sinon, pose un classeur avec tes données à l'adresse :
www.cjoint.com.
Daniel
"hymotep" <hymotep@discussions.microsoft.com> a écrit dans le message de
news: EF494241-BDA1-428C-9EC8-936A1F3D9293@microsoft.com...
merci à vous
daniel
j'ai compris ta macro mais je n'arrive pas a la faire fonctionner
Dim c As Range, Ctr As Integer, Res
For Each c In Range(Cells(1, 1), Cells(1, 49))
If c.Value > Res Then
Ctr = Ctr + 1
le premier if ne passe pas et je me demande si c'est parce que Res n'est
pas
défini?
Croy
trés ingénieux ta methode, mais j'ai plusieurs tests a effectuer et j'ai
peur que cela prenne beaucoupo de place, j'essai quand même.
a+
--
"vas dont savoir quand tu sais pas" Coluche
Salut hymotep,
Je te suggère la solution suivante :
En A:A tu as ta colonne de chiffres dont la progression est à tester.
En B1 tu mets 0
En B2 tu mets
=SI(A2<A1;0;B1+1), que tu tires sur toutes la longueur.
En C1 tu mets
=SI(B1>=7;"les 7 nombres précédents sont croissants";""), que tu
tires sur toutes la longueur.
alors là c'est extraordinaire. cela fonctionne toujours mieux chez les autres. ton classeur repond a ma question, reste a transposer dans mon classeur et comprendre où est mon erreur.
merci daniel pour croy, je suis désolé et toujours partagé entre le désir d'être concis ( ne pas faire trois page pour un probleme que personne ne tentera de comprendre) et suffisament long pour etre compris -- "vas dont savoir quand tu sais pas" Coluche
Regarde le classeur à l'adresse : http://cjoint.com/?kyrqB2NbT7 Sinon, pose un classeur avec tes données à l'adresse : www.cjoint.com. Daniel "hymotep" a écrit dans le message de news:
merci à vous daniel j'ai compris ta macro mais je n'arrive pas a la faire fonctionner
Dim c As Range, Ctr As Integer, Res For Each c In Range(Cells(1, 1), Cells(1, 49)) If c.Value > Res Then Ctr = Ctr + 1
le premier if ne passe pas et je me demande si c'est parce que Res n'est pas défini?
Croy trés ingénieux ta methode, mais j'ai plusieurs tests a effectuer et j'ai peur que cela prenne beaucoupo de place, j'essai quand même.
a+ -- "vas dont savoir quand tu sais pas" Coluche
Salut hymotep,
Je te suggère la solution suivante :
En A:A tu as ta colonne de chiffres dont la progression est à tester.
En B1 tu mets 0
En B2 tu mets
=SI(A2<A1;0;B1+1), que tu tires sur toutes la longueur.
En C1 tu mets
=SI(B1>=7;"les 7 nombres précédents sont croissants";""), que tu tires sur toutes la longueur.
