1-1-2 ex: 1-2-3-5
///
diff: 1 1 2
1-2-1 ex: 1-2-4-5
///
diff: 1 2 1
2-1-1 ex: 1-3-4-5
///
diff: 2 1 1
Bonjour Isabelle,
En fait, pour exemple je vais expliquer avec un chiffre
plus court.
Prenons les chiffres de 1 à 5: 12345
La clé la plus longue est la clé de 4: 1-1-1-1
i.e.
la différence entre le deuxième chiffre et le premier.
la différence entre le troisième chiffre et le deuxième.
la différence entre le quatrième chiffre et le troisième.
la différence entre le cinquième chiffre et le quatrième.
Par la suite, je peut faire plusieurs clés de 3 :
1-1-1 ex: de 1-2-3-4 et de 2-3-4-5 ( 2 Maximum )
1-1-2 ex: 1-2-3-5
///
diff: 1 1 2
1-2-1 ex: 1-2-4-5
///
diff: 1 2 1
2-1-1 ex: 1-3-4-5
///
diff: 2 1 1
Par la suite plusieurs clés de 2...
La difficulté est de savoir si la chaine de chiffre en A1
ex: 12358 contient la clé 1-1-1 par exemple
Starwing-----Message d'origine-----
re... Starwing
là, je n'suis pas sur de suivre
avec l'exemple 123456789
on obtient la chaine 123123123123123123121
donc on a :
nombre de 1 = 8
nombre de 2 = 7
nombre de 3 = 6
il y aurait 4 possibilité de clé (8/2) ?
isabelle
note: pour trouver la chaine il y aurait cette fonction
perso
Function Clef(zz As Range)
For i = Len(zz) To 2 Step -1
For y = i - 1 To 1 Step -1
chiffre = Mid(zz, i, 1) * 1 - Mid(zz, y, 1) * 1
If chiffre > 0 And chiffre < 4 Then Clef = Clef & chiffre
Next y
Next i
End Function
et pour compter le nombre de 1-2-3
=NBCAR($B$1)-NBCAR(SUBSTITUE($B$1;1;""))
=NBCAR($B$1)-NBCAR(SUBSTITUE($B$1;2;""))
=NBCAR($B$1)-NBCAR(SUBSTITUE($B$1;3;""))
.
1-1-2 ex: 1-2-3-5
///
diff: 1 1 2
1-2-1 ex: 1-2-4-5
///
diff: 1 2 1
2-1-1 ex: 1-3-4-5
///
diff: 2 1 1
Bonjour Isabelle,
En fait, pour exemple je vais expliquer avec un chiffre
plus court.
Prenons les chiffres de 1 à 5: 12345
La clé la plus longue est la clé de 4: 1-1-1-1
i.e.
la différence entre le deuxième chiffre et le premier.
la différence entre le troisième chiffre et le deuxième.
la différence entre le quatrième chiffre et le troisième.
la différence entre le cinquième chiffre et le quatrième.
Par la suite, je peut faire plusieurs clés de 3 :
1-1-1 ex: de 1-2-3-4 et de 2-3-4-5 ( 2 Maximum )
1-1-2 ex: 1-2-3-5
///
diff: 1 1 2
1-2-1 ex: 1-2-4-5
///
diff: 1 2 1
2-1-1 ex: 1-3-4-5
///
diff: 2 1 1
Par la suite plusieurs clés de 2...
La difficulté est de savoir si la chaine de chiffre en A1
ex: 12358 contient la clé 1-1-1 par exemple
Starwing
-----Message d'origine-----
re... Starwing
là, je n'suis pas sur de suivre
avec l'exemple 123456789
on obtient la chaine 123123123123123123121
donc on a :
nombre de 1 = 8
nombre de 2 = 7
nombre de 3 = 6
il y aurait 4 possibilité de clé (8/2) ?
isabelle
note: pour trouver la chaine il y aurait cette fonction
perso
Function Clef(zz As Range)
For i = Len(zz) To 2 Step -1
For y = i - 1 To 1 Step -1
chiffre = Mid(zz, i, 1) * 1 - Mid(zz, y, 1) * 1
If chiffre > 0 And chiffre < 4 Then Clef = Clef & chiffre
Next y
Next i
End Function
et pour compter le nombre de 1-2-3
=NBCAR($B$1)-NBCAR(SUBSTITUE($B$1;1;""))
=NBCAR($B$1)-NBCAR(SUBSTITUE($B$1;2;""))
=NBCAR($B$1)-NBCAR(SUBSTITUE($B$1;3;""))
.
1-1-2 ex: 1-2-3-5
///
diff: 1 1 2
1-2-1 ex: 1-2-4-5
///
diff: 1 2 1
2-1-1 ex: 1-3-4-5
///
diff: 2 1 1
Bonjour Isabelle,
En fait, pour exemple je vais expliquer avec un chiffre
plus court.
Prenons les chiffres de 1 à 5: 12345
La clé la plus longue est la clé de 4: 1-1-1-1
i.e.
la différence entre le deuxième chiffre et le premier.
la différence entre le troisième chiffre et le deuxième.
la différence entre le quatrième chiffre et le troisième.
la différence entre le cinquième chiffre et le quatrième.
Par la suite, je peut faire plusieurs clés de 3 :
1-1-1 ex: de 1-2-3-4 et de 2-3-4-5 ( 2 Maximum )
1-1-2 ex: 1-2-3-5
///
diff: 1 1 2
1-2-1 ex: 1-2-4-5
///
diff: 1 2 1
2-1-1 ex: 1-3-4-5
///
diff: 2 1 1
Par la suite plusieurs clés de 2...
La difficulté est de savoir si la chaine de chiffre en A1
ex: 12358 contient la clé 1-1-1 par exemple
Starwing-----Message d'origine-----
re... Starwing
là, je n'suis pas sur de suivre
avec l'exemple 123456789
on obtient la chaine 123123123123123123121
donc on a :
nombre de 1 = 8
nombre de 2 = 7
nombre de 3 = 6
il y aurait 4 possibilité de clé (8/2) ?
isabelle
note: pour trouver la chaine il y aurait cette fonction
perso
Function Clef(zz As Range)
For i = Len(zz) To 2 Step -1
For y = i - 1 To 1 Step -1
chiffre = Mid(zz, i, 1) * 1 - Mid(zz, y, 1) * 1
If chiffre > 0 And chiffre < 4 Then Clef = Clef & chiffre
Next y
Next i
End Function
et pour compter le nombre de 1-2-3
=NBCAR($B$1)-NBCAR(SUBSTITUE($B$1;1;""))
=NBCAR($B$1)-NBCAR(SUBSTITUE($B$1;2;""))
=NBCAR($B$1)-NBCAR(SUBSTITUE($B$1;3;""))
.
-----Message d'origine-----
je ne comprend pas bien la partie1-1-2 ex: 1-2-3-5
///
diff: 1 1 2
1-2-1 ex: 1-2-4-5
///
diff: 1 2 1
2-1-1 ex: 1-3-4-5
///
diff: 2 1 1
avec les 2 chaines 12358 et 12345 voilà ce que j'obtient
chaine valeur 1-2-3 nbr 1 nbr 2 nbr 3
12358 323121 2 2 2 = 2 fois
1-1-1
12345 123123121 4 3 2 = 2 fois
1-1-1
je crois que je suis à coté de la plaque %-)
isabelle
Bonjour Isabelle,
En fait, pour exemple je vais expliquer avec un chiffre
plus court.
Prenons les chiffres de 1 à 5: 12345
La clé la plus longue est la clé de 4: 1-1-1-1
i.e.
la différence entre le deuxième chiffre et le premier.
la différence entre le troisième chiffre et le deuxième.
la différence entre le quatrième chiffre et le
troisième.
la différence entre le cinquième chiffre et le
quatrième.
Par la suite, je peut faire plusieurs clés de 3 :
1-1-1 ex: de 1-2-3-4 et de 2-3-4-5 ( 2 Maximum )
1-1-2 ex: 1-2-3-5
///
diff: 1 1 2
1-2-1 ex: 1-2-4-5
///
diff: 1 2 1
2-1-1 ex: 1-3-4-5
///
diff: 2 1 1
Par la suite plusieurs clés de 2...
La difficulté est de savoir si la chaine de chiffre en
A1
ex: 12358 contient la clé 1-1-1 par exemple
Starwing-----Message d'origine-----
re... Starwing
là, je n'suis pas sur de suivre
avec l'exemple 123456789
on obtient la chaine 123123123123123123121
donc on a :
nombre de 1 = 8
nombre de 2 = 7
nombre de 3 = 6
il y aurait 4 possibilité de clé (8/2) ?
isabelle
note: pour trouver la chaine il y aurait cette fonction
perso
Function Clef(zz As Range)
For i = Len(zz) To 2 Step -1
For y = i - 1 To 1 Step -1
chiffre = Mid(zz, i, 1) * 1 - Mid(zz, y, 1) * 1
If chiffre > 0 And chiffre < 4 Then Clef = Clef &
chiffre
Next y
Next i
End Function
et pour compter le nombre de 1-2-3
=NBCAR($B$1)-NBCAR(SUBSTITUE($B$1;1;""))
=NBCAR($B$1)-NBCAR(SUBSTITUE($B$1;2;""))
=NBCAR($B$1)-NBCAR(SUBSTITUE($B$1;3;""))
.
.
-----Message d'origine-----
je ne comprend pas bien la partie
1-1-2 ex: 1-2-3-5
///
diff: 1 1 2
1-2-1 ex: 1-2-4-5
///
diff: 1 2 1
2-1-1 ex: 1-3-4-5
///
diff: 2 1 1
avec les 2 chaines 12358 et 12345 voilà ce que j'obtient
chaine valeur 1-2-3 nbr 1 nbr 2 nbr 3
12358 323121 2 2 2 = 2 fois
1-1-1
12345 123123121 4 3 2 = 2 fois
1-1-1
je crois que je suis à coté de la plaque %-)
isabelle
Bonjour Isabelle,
En fait, pour exemple je vais expliquer avec un chiffre
plus court.
Prenons les chiffres de 1 à 5: 12345
La clé la plus longue est la clé de 4: 1-1-1-1
i.e.
la différence entre le deuxième chiffre et le premier.
la différence entre le troisième chiffre et le deuxième.
la différence entre le quatrième chiffre et le
troisième.
la différence entre le cinquième chiffre et le
quatrième.
Par la suite, je peut faire plusieurs clés de 3 :
1-1-1 ex: de 1-2-3-4 et de 2-3-4-5 ( 2 Maximum )
1-1-2 ex: 1-2-3-5
///
diff: 1 1 2
1-2-1 ex: 1-2-4-5
///
diff: 1 2 1
2-1-1 ex: 1-3-4-5
///
diff: 2 1 1
Par la suite plusieurs clés de 2...
La difficulté est de savoir si la chaine de chiffre en
A1
ex: 12358 contient la clé 1-1-1 par exemple
Starwing
-----Message d'origine-----
re... Starwing
là, je n'suis pas sur de suivre
avec l'exemple 123456789
on obtient la chaine 123123123123123123121
donc on a :
nombre de 1 = 8
nombre de 2 = 7
nombre de 3 = 6
il y aurait 4 possibilité de clé (8/2) ?
isabelle
note: pour trouver la chaine il y aurait cette fonction
perso
Function Clef(zz As Range)
For i = Len(zz) To 2 Step -1
For y = i - 1 To 1 Step -1
chiffre = Mid(zz, i, 1) * 1 - Mid(zz, y, 1) * 1
If chiffre > 0 And chiffre < 4 Then Clef = Clef &
chiffre
Next y
Next i
End Function
et pour compter le nombre de 1-2-3
=NBCAR($B$1)-NBCAR(SUBSTITUE($B$1;1;""))
=NBCAR($B$1)-NBCAR(SUBSTITUE($B$1;2;""))
=NBCAR($B$1)-NBCAR(SUBSTITUE($B$1;3;""))
.
.
-----Message d'origine-----
je ne comprend pas bien la partie1-1-2 ex: 1-2-3-5
///
diff: 1 1 2
1-2-1 ex: 1-2-4-5
///
diff: 1 2 1
2-1-1 ex: 1-3-4-5
///
diff: 2 1 1
avec les 2 chaines 12358 et 12345 voilà ce que j'obtient
chaine valeur 1-2-3 nbr 1 nbr 2 nbr 3
12358 323121 2 2 2 = 2 fois
1-1-1
12345 123123121 4 3 2 = 2 fois
1-1-1
je crois que je suis à coté de la plaque %-)
isabelle
Bonjour Isabelle,
En fait, pour exemple je vais expliquer avec un chiffre
plus court.
Prenons les chiffres de 1 à 5: 12345
La clé la plus longue est la clé de 4: 1-1-1-1
i.e.
la différence entre le deuxième chiffre et le premier.
la différence entre le troisième chiffre et le deuxième.
la différence entre le quatrième chiffre et le
troisième.
la différence entre le cinquième chiffre et le
quatrième.
Par la suite, je peut faire plusieurs clés de 3 :
1-1-1 ex: de 1-2-3-4 et de 2-3-4-5 ( 2 Maximum )
1-1-2 ex: 1-2-3-5
///
diff: 1 1 2
1-2-1 ex: 1-2-4-5
///
diff: 1 2 1
2-1-1 ex: 1-3-4-5
///
diff: 2 1 1
Par la suite plusieurs clés de 2...
La difficulté est de savoir si la chaine de chiffre en
A1
ex: 12358 contient la clé 1-1-1 par exemple
Starwing-----Message d'origine-----
re... Starwing
là, je n'suis pas sur de suivre
avec l'exemple 123456789
on obtient la chaine 123123123123123123121
donc on a :
nombre de 1 = 8
nombre de 2 = 7
nombre de 3 = 6
il y aurait 4 possibilité de clé (8/2) ?
isabelle
note: pour trouver la chaine il y aurait cette fonction
perso
Function Clef(zz As Range)
For i = Len(zz) To 2 Step -1
For y = i - 1 To 1 Step -1
chiffre = Mid(zz, i, 1) * 1 - Mid(zz, y, 1) * 1
If chiffre > 0 And chiffre < 4 Then Clef = Clef &
chiffre
Next y
Next i
End Function
et pour compter le nombre de 1-2-3
=NBCAR($B$1)-NBCAR(SUBSTITUE($B$1;1;""))
=NBCAR($B$1)-NBCAR(SUBSTITUE($B$1;2;""))
=NBCAR($B$1)-NBCAR(SUBSTITUE($B$1;3;""))
.
.
Bonjour Isabelle,
Non non tu es très proche,
:-)
Peut-être moi qui explique mal.
je reprends,
avec les chiffres: 12345
je peut jouer maximalement avec les 5 chiffres: 12345
soit: 1-1-1-1 (les différences entre les chiffres i.e.
différence entre 2et1, 3et2 , 4et3 ,5et4)
puis je peux faire avec 4 chiffres sur 5 : 1234,1245,1345
soit:
1-1-1, 1-2-1, 2-1-1 (les différences entre les chiffres)
me suis-tu mieux?
Starwing-----Message d'origine-----
je ne comprend pas bien la partie1-1-2 ex: 1-2-3-5
///
diff: 1 1 2
1-2-1 ex: 1-2-4-5
///
diff: 1 2 1
2-1-1 ex: 1-3-4-5
///
diff: 2 1 1
avec les 2 chaines 12358 et 12345 voilà ce que j'obtient
chaine valeur 1-2-3 nbr 1 nbr 2 nbr 3
12358 323121 2 2 2 = 2 fois
1-1-112345 123123121 4 3 2 = 2 fois
1-1-1
je crois que je suis à coté de la plaque %-)
isabelle
Bonjour Isabelle,
En fait, pour exemple je vais expliquer avec un chiffre
plus court.
Prenons les chiffres de 1 à 5: 12345
La clé la plus longue est la clé de 4: 1-1-1-1
i.e.
la différence entre le deuxième chiffre et le premier.
la différence entre le troisième chiffre et le deuxième.
la différence entre le quatrième chiffre et le
troisième.la différence entre le cinquième chiffre et le
quatrième.Par la suite, je peut faire plusieurs clés de 3 :
1-1-1 ex: de 1-2-3-4 et de 2-3-4-5 ( 2 Maximum )
1-1-2 ex: 1-2-3-5
///
diff: 1 1 2
1-2-1 ex: 1-2-4-5
///
diff: 1 2 1
2-1-1 ex: 1-3-4-5
///
diff: 2 1 1
Par la suite plusieurs clés de 2...
La difficulté est de savoir si la chaine de chiffre en
A1ex: 12358 contient la clé 1-1-1 par exemple
Starwing-----Message d'origine-----
re... Starwing
là, je n'suis pas sur de suivre
avec l'exemple 123456789
on obtient la chaine 123123123123123123121
donc on a :
nombre de 1 = 8
nombre de 2 = 7
nombre de 3 = 6
il y aurait 4 possibilité de clé (8/2) ?
isabelle
note: pour trouver la chaine il y aurait cette fonction
perso
Function Clef(zz As Range)
For i = Len(zz) To 2 Step -1
For y = i - 1 To 1 Step -1
chiffre = Mid(zz, i, 1) * 1 - Mid(zz, y, 1) * 1
If chiffre > 0 And chiffre < 4 Then Clef = Clef &
chiffreNext y
Next i
End Function
et pour compter le nombre de 1-2-3
=NBCAR($B$1)-NBCAR(SUBSTITUE($B$1;1;""))
=NBCAR($B$1)-NBCAR(SUBSTITUE($B$1;2;""))
=NBCAR($B$1)-NBCAR(SUBSTITUE($B$1;3;""))
.
.
Bonjour Isabelle,
Non non tu es très proche,
:-)
Peut-être moi qui explique mal.
je reprends,
avec les chiffres: 12345
je peut jouer maximalement avec les 5 chiffres: 12345
soit: 1-1-1-1 (les différences entre les chiffres i.e.
différence entre 2et1, 3et2 , 4et3 ,5et4)
puis je peux faire avec 4 chiffres sur 5 : 1234,1245,1345
soit:
1-1-1, 1-2-1, 2-1-1 (les différences entre les chiffres)
me suis-tu mieux?
Starwing
-----Message d'origine-----
je ne comprend pas bien la partie
1-1-2 ex: 1-2-3-5
///
diff: 1 1 2
1-2-1 ex: 1-2-4-5
///
diff: 1 2 1
2-1-1 ex: 1-3-4-5
///
diff: 2 1 1
avec les 2 chaines 12358 et 12345 voilà ce que j'obtient
chaine valeur 1-2-3 nbr 1 nbr 2 nbr 3
12358 323121 2 2 2 = 2 fois
1-1-1
12345 123123121 4 3 2 = 2 fois
1-1-1
je crois que je suis à coté de la plaque %-)
isabelle
Bonjour Isabelle,
En fait, pour exemple je vais expliquer avec un chiffre
plus court.
Prenons les chiffres de 1 à 5: 12345
La clé la plus longue est la clé de 4: 1-1-1-1
i.e.
la différence entre le deuxième chiffre et le premier.
la différence entre le troisième chiffre et le deuxième.
la différence entre le quatrième chiffre et le
troisième.
la différence entre le cinquième chiffre et le
quatrième.
Par la suite, je peut faire plusieurs clés de 3 :
1-1-1 ex: de 1-2-3-4 et de 2-3-4-5 ( 2 Maximum )
1-1-2 ex: 1-2-3-5
///
diff: 1 1 2
1-2-1 ex: 1-2-4-5
///
diff: 1 2 1
2-1-1 ex: 1-3-4-5
///
diff: 2 1 1
Par la suite plusieurs clés de 2...
La difficulté est de savoir si la chaine de chiffre en
A1
ex: 12358 contient la clé 1-1-1 par exemple
Starwing
-----Message d'origine-----
re... Starwing
là, je n'suis pas sur de suivre
avec l'exemple 123456789
on obtient la chaine 123123123123123123121
donc on a :
nombre de 1 = 8
nombre de 2 = 7
nombre de 3 = 6
il y aurait 4 possibilité de clé (8/2) ?
isabelle
note: pour trouver la chaine il y aurait cette fonction
perso
Function Clef(zz As Range)
For i = Len(zz) To 2 Step -1
For y = i - 1 To 1 Step -1
chiffre = Mid(zz, i, 1) * 1 - Mid(zz, y, 1) * 1
If chiffre > 0 And chiffre < 4 Then Clef = Clef &
chiffre
Next y
Next i
End Function
et pour compter le nombre de 1-2-3
=NBCAR($B$1)-NBCAR(SUBSTITUE($B$1;1;""))
=NBCAR($B$1)-NBCAR(SUBSTITUE($B$1;2;""))
=NBCAR($B$1)-NBCAR(SUBSTITUE($B$1;3;""))
.
.
Bonjour Isabelle,
Non non tu es très proche,
:-)
Peut-être moi qui explique mal.
je reprends,
avec les chiffres: 12345
je peut jouer maximalement avec les 5 chiffres: 12345
soit: 1-1-1-1 (les différences entre les chiffres i.e.
différence entre 2et1, 3et2 , 4et3 ,5et4)
puis je peux faire avec 4 chiffres sur 5 : 1234,1245,1345
soit:
1-1-1, 1-2-1, 2-1-1 (les différences entre les chiffres)
me suis-tu mieux?
Starwing-----Message d'origine-----
je ne comprend pas bien la partie1-1-2 ex: 1-2-3-5
///
diff: 1 1 2
1-2-1 ex: 1-2-4-5
///
diff: 1 2 1
2-1-1 ex: 1-3-4-5
///
diff: 2 1 1
avec les 2 chaines 12358 et 12345 voilà ce que j'obtient
chaine valeur 1-2-3 nbr 1 nbr 2 nbr 3
12358 323121 2 2 2 = 2 fois
1-1-112345 123123121 4 3 2 = 2 fois
1-1-1
je crois que je suis à coté de la plaque %-)
isabelle
Bonjour Isabelle,
En fait, pour exemple je vais expliquer avec un chiffre
plus court.
Prenons les chiffres de 1 à 5: 12345
La clé la plus longue est la clé de 4: 1-1-1-1
i.e.
la différence entre le deuxième chiffre et le premier.
la différence entre le troisième chiffre et le deuxième.
la différence entre le quatrième chiffre et le
troisième.la différence entre le cinquième chiffre et le
quatrième.Par la suite, je peut faire plusieurs clés de 3 :
1-1-1 ex: de 1-2-3-4 et de 2-3-4-5 ( 2 Maximum )
1-1-2 ex: 1-2-3-5
///
diff: 1 1 2
1-2-1 ex: 1-2-4-5
///
diff: 1 2 1
2-1-1 ex: 1-3-4-5
///
diff: 2 1 1
Par la suite plusieurs clés de 2...
La difficulté est de savoir si la chaine de chiffre en
A1ex: 12358 contient la clé 1-1-1 par exemple
Starwing-----Message d'origine-----
re... Starwing
là, je n'suis pas sur de suivre
avec l'exemple 123456789
on obtient la chaine 123123123123123123121
donc on a :
nombre de 1 = 8
nombre de 2 = 7
nombre de 3 = 6
il y aurait 4 possibilité de clé (8/2) ?
isabelle
note: pour trouver la chaine il y aurait cette fonction
perso
Function Clef(zz As Range)
For i = Len(zz) To 2 Step -1
For y = i - 1 To 1 Step -1
chiffre = Mid(zz, i, 1) * 1 - Mid(zz, y, 1) * 1
If chiffre > 0 And chiffre < 4 Then Clef = Clef &
chiffreNext y
Next i
End Function
et pour compter le nombre de 1-2-3
=NBCAR($B$1)-NBCAR(SUBSTITUE($B$1;1;""))
=NBCAR($B$1)-NBCAR(SUBSTITUE($B$1;2;""))
=NBCAR($B$1)-NBCAR(SUBSTITUE($B$1;3;""))
.
.
-----Message d'origine-----
oui, oui, c'est ce que la function Clef fait, non ?
isabelle
Bonjour Isabelle,
Non non tu es très proche,
:-)
Peut-être moi qui explique mal.
je reprends,
avec les chiffres: 12345
je peut jouer maximalement avec les 5 chiffres: 12345
soit: 1-1-1-1 (les différences entre les chiffres i.e.
différence entre 2et1, 3et2 , 4et3 ,5et4)
puis je peux faire avec 4 chiffres sur 5 :
1234,1245,1345
soit:
1-1-1, 1-2-1, 2-1-1 (les différences entre les chiffres)
me suis-tu mieux?
Starwing-----Message d'origine-----
je ne comprend pas bien la partie1-1-2 ex: 1-2-3-5
///
diff: 1 1 2
1-2-1 ex: 1-2-4-5
///
diff: 1 2 1
2-1-1 ex: 1-3-4-5
///
diff: 2 1 1
avec les 2 chaines 12358 et 12345 voilà ce que
j'obtient
chaine valeur 1-2-3 nbr 1 nbr 2 nbr 3
12358 323121 2 2 2 = 2
fois
1-1-112345 123123121 4 3 2 = 2
fois
1-1-1
je crois que je suis à coté de la plaque %-)
isabelle
Bonjour Isabelle,
En fait, pour exemple je vais expliquer avec un
chiffre
plus court.
Prenons les chiffres de 1 à 5: 12345
La clé la plus longue est la clé de 4: 1-1-1-1
i.e.
la différence entre le deuxième chiffre et le
premier.
la différence entre le troisième chiffre et le
deuxième.
la différence entre le quatrième chiffre et le
troisième.la différence entre le cinquième chiffre et le
quatrième.Par la suite, je peut faire plusieurs clés de 3 :
1-1-1 ex: de 1-2-3-4 et de 2-3-4-5 ( 2 Maximum )
1-1-2 ex: 1-2-3-5
///
diff: 1 1 2
1-2-1 ex: 1-2-4-5
///
diff: 1 2 1
2-1-1 ex: 1-3-4-5
///
diff: 2 1 1
Par la suite plusieurs clés de 2...
La difficulté est de savoir si la chaine de chiffre
en
A1ex: 12358 contient la clé 1-1-1 par exemple
Starwing-----Message d'origine-----
re... Starwing
là, je n'suis pas sur de suivre
avec l'exemple 123456789
on obtient la chaine 123123123123123123121
donc on a :
nombre de 1 = 8
nombre de 2 = 7
nombre de 3 = 6
il y aurait 4 possibilité de clé (8/2) ?
isabelle
note: pour trouver la chaine il y aurait cette
fonction
perso
Function Clef(zz As Range)
For i = Len(zz) To 2 Step -1
For y = i - 1 To 1 Step -1
chiffre = Mid(zz, i, 1) * 1 - Mid(zz, y, 1) * 1
If chiffre > 0 And chiffre < 4 Then Clef = Clef &
chiffreNext y
Next i
End Function
et pour compter le nombre de 1-2-3
=NBCAR($B$1)-NBCAR(SUBSTITUE($B$1;1;""))
=NBCAR($B$1)-NBCAR(SUBSTITUE($B$1;2;""))
=NBCAR($B$1)-NBCAR(SUBSTITUE($B$1;3;""))
.
.
.
-----Message d'origine-----
oui, oui, c'est ce que la function Clef fait, non ?
isabelle
Bonjour Isabelle,
Non non tu es très proche,
:-)
Peut-être moi qui explique mal.
je reprends,
avec les chiffres: 12345
je peut jouer maximalement avec les 5 chiffres: 12345
soit: 1-1-1-1 (les différences entre les chiffres i.e.
différence entre 2et1, 3et2 , 4et3 ,5et4)
puis je peux faire avec 4 chiffres sur 5 :
1234,1245,1345
soit:
1-1-1, 1-2-1, 2-1-1 (les différences entre les chiffres)
me suis-tu mieux?
Starwing
-----Message d'origine-----
je ne comprend pas bien la partie
1-1-2 ex: 1-2-3-5
///
diff: 1 1 2
1-2-1 ex: 1-2-4-5
///
diff: 1 2 1
2-1-1 ex: 1-3-4-5
///
diff: 2 1 1
avec les 2 chaines 12358 et 12345 voilà ce que
j'obtient
chaine valeur 1-2-3 nbr 1 nbr 2 nbr 3
12358 323121 2 2 2 = 2
fois
1-1-1
12345 123123121 4 3 2 = 2
fois
1-1-1
je crois que je suis à coté de la plaque %-)
isabelle
Bonjour Isabelle,
En fait, pour exemple je vais expliquer avec un
chiffre
plus court.
Prenons les chiffres de 1 à 5: 12345
La clé la plus longue est la clé de 4: 1-1-1-1
i.e.
la différence entre le deuxième chiffre et le
premier.
la différence entre le troisième chiffre et le
deuxième.
la différence entre le quatrième chiffre et le
troisième.
la différence entre le cinquième chiffre et le
quatrième.
Par la suite, je peut faire plusieurs clés de 3 :
1-1-1 ex: de 1-2-3-4 et de 2-3-4-5 ( 2 Maximum )
1-1-2 ex: 1-2-3-5
///
diff: 1 1 2
1-2-1 ex: 1-2-4-5
///
diff: 1 2 1
2-1-1 ex: 1-3-4-5
///
diff: 2 1 1
Par la suite plusieurs clés de 2...
La difficulté est de savoir si la chaine de chiffre
en
A1
ex: 12358 contient la clé 1-1-1 par exemple
Starwing
-----Message d'origine-----
re... Starwing
là, je n'suis pas sur de suivre
avec l'exemple 123456789
on obtient la chaine 123123123123123123121
donc on a :
nombre de 1 = 8
nombre de 2 = 7
nombre de 3 = 6
il y aurait 4 possibilité de clé (8/2) ?
isabelle
note: pour trouver la chaine il y aurait cette
fonction
perso
Function Clef(zz As Range)
For i = Len(zz) To 2 Step -1
For y = i - 1 To 1 Step -1
chiffre = Mid(zz, i, 1) * 1 - Mid(zz, y, 1) * 1
If chiffre > 0 And chiffre < 4 Then Clef = Clef &
chiffre
Next y
Next i
End Function
et pour compter le nombre de 1-2-3
=NBCAR($B$1)-NBCAR(SUBSTITUE($B$1;1;""))
=NBCAR($B$1)-NBCAR(SUBSTITUE($B$1;2;""))
=NBCAR($B$1)-NBCAR(SUBSTITUE($B$1;3;""))
.
.
.
-----Message d'origine-----
oui, oui, c'est ce que la function Clef fait, non ?
isabelle
Bonjour Isabelle,
Non non tu es très proche,
:-)
Peut-être moi qui explique mal.
je reprends,
avec les chiffres: 12345
je peut jouer maximalement avec les 5 chiffres: 12345
soit: 1-1-1-1 (les différences entre les chiffres i.e.
différence entre 2et1, 3et2 , 4et3 ,5et4)
puis je peux faire avec 4 chiffres sur 5 :
1234,1245,1345
soit:
1-1-1, 1-2-1, 2-1-1 (les différences entre les chiffres)
me suis-tu mieux?
Starwing-----Message d'origine-----
je ne comprend pas bien la partie1-1-2 ex: 1-2-3-5
///
diff: 1 1 2
1-2-1 ex: 1-2-4-5
///
diff: 1 2 1
2-1-1 ex: 1-3-4-5
///
diff: 2 1 1
avec les 2 chaines 12358 et 12345 voilà ce que
j'obtient
chaine valeur 1-2-3 nbr 1 nbr 2 nbr 3
12358 323121 2 2 2 = 2
fois
1-1-112345 123123121 4 3 2 = 2
fois
1-1-1
je crois que je suis à coté de la plaque %-)
isabelle
Bonjour Isabelle,
En fait, pour exemple je vais expliquer avec un
chiffre
plus court.
Prenons les chiffres de 1 à 5: 12345
La clé la plus longue est la clé de 4: 1-1-1-1
i.e.
la différence entre le deuxième chiffre et le
premier.
la différence entre le troisième chiffre et le
deuxième.
la différence entre le quatrième chiffre et le
troisième.la différence entre le cinquième chiffre et le
quatrième.Par la suite, je peut faire plusieurs clés de 3 :
1-1-1 ex: de 1-2-3-4 et de 2-3-4-5 ( 2 Maximum )
1-1-2 ex: 1-2-3-5
///
diff: 1 1 2
1-2-1 ex: 1-2-4-5
///
diff: 1 2 1
2-1-1 ex: 1-3-4-5
///
diff: 2 1 1
Par la suite plusieurs clés de 2...
La difficulté est de savoir si la chaine de chiffre
en
A1ex: 12358 contient la clé 1-1-1 par exemple
Starwing-----Message d'origine-----
re... Starwing
là, je n'suis pas sur de suivre
avec l'exemple 123456789
on obtient la chaine 123123123123123123121
donc on a :
nombre de 1 = 8
nombre de 2 = 7
nombre de 3 = 6
il y aurait 4 possibilité de clé (8/2) ?
isabelle
note: pour trouver la chaine il y aurait cette
fonction
perso
Function Clef(zz As Range)
For i = Len(zz) To 2 Step -1
For y = i - 1 To 1 Step -1
chiffre = Mid(zz, i, 1) * 1 - Mid(zz, y, 1) * 1
If chiffre > 0 And chiffre < 4 Then Clef = Clef &
chiffreNext y
Next i
End Function
et pour compter le nombre de 1-2-3
=NBCAR($B$1)-NBCAR(SUBSTITUE($B$1;1;""))
=NBCAR($B$1)-NBCAR(SUBSTITUE($B$1;2;""))
=NBCAR($B$1)-NBCAR(SUBSTITUE($B$1;3;""))
.
.
.
Bonjour Isabelle,
Pas tout à fait,
si j'entre en A1: 13489 je veux obtenir: 2141
la foncion me renvoie 1132...
Starwing-----Message d'origine-----
oui, oui, c'est ce que la function Clef fait, non ?
isabelle
Bonjour Isabelle,
Non non tu es très proche,
:-)
Peut-être moi qui explique mal.
je reprends,
avec les chiffres: 12345
je peut jouer maximalement avec les 5 chiffres: 12345
soit: 1-1-1-1 (les différences entre les chiffres i.e.
différence entre 2et1, 3et2 , 4et3 ,5et4)
puis je peux faire avec 4 chiffres sur 5 :
1234,1245,1345soit:
1-1-1, 1-2-1, 2-1-1 (les différences entre les chiffres)
me suis-tu mieux?
Starwing-----Message d'origine-----
je ne comprend pas bien la partie1-1-2 ex: 1-2-3-5
///
diff: 1 1 2
1-2-1 ex: 1-2-4-5
///
diff: 1 2 1
2-1-1 ex: 1-3-4-5
///
diff: 2 1 1
avec les 2 chaines 12358 et 12345 voilà ce que
j'obtientchaine valeur 1-2-3 nbr 1 nbr 2 nbr 3
12358 323121 2 2 2 = 2
fois1-1-112345 123123121 4 3 2 = 2
fois1-1-1
je crois que je suis à coté de la plaque %-)
isabelle
Bonjour Isabelle,
En fait, pour exemple je vais expliquer avec un
chiffreplus court.
Prenons les chiffres de 1 à 5: 12345
La clé la plus longue est la clé de 4: 1-1-1-1
i.e.
la différence entre le deuxième chiffre et le
premier.la différence entre le troisième chiffre et le
deuxième.la différence entre le quatrième chiffre et le
troisième.la différence entre le cinquième chiffre et le
quatrième.Par la suite, je peut faire plusieurs clés de 3 :
1-1-1 ex: de 1-2-3-4 et de 2-3-4-5 ( 2 Maximum )
1-1-2 ex: 1-2-3-5
///
diff: 1 1 2
1-2-1 ex: 1-2-4-5
///
diff: 1 2 1
2-1-1 ex: 1-3-4-5
///
diff: 2 1 1
Par la suite plusieurs clés de 2...
La difficulté est de savoir si la chaine de chiffre
enA1ex: 12358 contient la clé 1-1-1 par exemple
Starwing-----Message d'origine-----
re... Starwing
là, je n'suis pas sur de suivre
avec l'exemple 123456789
on obtient la chaine 123123123123123123121
donc on a :
nombre de 1 = 8
nombre de 2 = 7
nombre de 3 = 6
il y aurait 4 possibilité de clé (8/2) ?
isabelle
note: pour trouver la chaine il y aurait cette
fonctionperso
Function Clef(zz As Range)
For i = Len(zz) To 2 Step -1
For y = i - 1 To 1 Step -1
chiffre = Mid(zz, i, 1) * 1 - Mid(zz, y, 1) * 1
If chiffre > 0 And chiffre < 4 Then Clef = Clef &
chiffreNext y
Next i
End Function
et pour compter le nombre de 1-2-3
=NBCAR($B$1)-NBCAR(SUBSTITUE($B$1;1;""))
=NBCAR($B$1)-NBCAR(SUBSTITUE($B$1;2;""))
=NBCAR($B$1)-NBCAR(SUBSTITUE($B$1;3;""))
.
.
.
Bonjour Isabelle,
Pas tout à fait,
si j'entre en A1: 13489 je veux obtenir: 2141
la foncion me renvoie 1132...
Starwing
-----Message d'origine-----
oui, oui, c'est ce que la function Clef fait, non ?
isabelle
Bonjour Isabelle,
Non non tu es très proche,
:-)
Peut-être moi qui explique mal.
je reprends,
avec les chiffres: 12345
je peut jouer maximalement avec les 5 chiffres: 12345
soit: 1-1-1-1 (les différences entre les chiffres i.e.
différence entre 2et1, 3et2 , 4et3 ,5et4)
puis je peux faire avec 4 chiffres sur 5 :
1234,1245,1345
soit:
1-1-1, 1-2-1, 2-1-1 (les différences entre les chiffres)
me suis-tu mieux?
Starwing
-----Message d'origine-----
je ne comprend pas bien la partie
1-1-2 ex: 1-2-3-5
///
diff: 1 1 2
1-2-1 ex: 1-2-4-5
///
diff: 1 2 1
2-1-1 ex: 1-3-4-5
///
diff: 2 1 1
avec les 2 chaines 12358 et 12345 voilà ce que
j'obtient
chaine valeur 1-2-3 nbr 1 nbr 2 nbr 3
12358 323121 2 2 2 = 2
fois
1-1-1
12345 123123121 4 3 2 = 2
fois
1-1-1
je crois que je suis à coté de la plaque %-)
isabelle
Bonjour Isabelle,
En fait, pour exemple je vais expliquer avec un
chiffre
plus court.
Prenons les chiffres de 1 à 5: 12345
La clé la plus longue est la clé de 4: 1-1-1-1
i.e.
la différence entre le deuxième chiffre et le
premier.
la différence entre le troisième chiffre et le
deuxième.
la différence entre le quatrième chiffre et le
troisième.
la différence entre le cinquième chiffre et le
quatrième.
Par la suite, je peut faire plusieurs clés de 3 :
1-1-1 ex: de 1-2-3-4 et de 2-3-4-5 ( 2 Maximum )
1-1-2 ex: 1-2-3-5
///
diff: 1 1 2
1-2-1 ex: 1-2-4-5
///
diff: 1 2 1
2-1-1 ex: 1-3-4-5
///
diff: 2 1 1
Par la suite plusieurs clés de 2...
La difficulté est de savoir si la chaine de chiffre
en
A1
ex: 12358 contient la clé 1-1-1 par exemple
Starwing
-----Message d'origine-----
re... Starwing
là, je n'suis pas sur de suivre
avec l'exemple 123456789
on obtient la chaine 123123123123123123121
donc on a :
nombre de 1 = 8
nombre de 2 = 7
nombre de 3 = 6
il y aurait 4 possibilité de clé (8/2) ?
isabelle
note: pour trouver la chaine il y aurait cette
fonction
perso
Function Clef(zz As Range)
For i = Len(zz) To 2 Step -1
For y = i - 1 To 1 Step -1
chiffre = Mid(zz, i, 1) * 1 - Mid(zz, y, 1) * 1
If chiffre > 0 And chiffre < 4 Then Clef = Clef &
chiffre
Next y
Next i
End Function
et pour compter le nombre de 1-2-3
=NBCAR($B$1)-NBCAR(SUBSTITUE($B$1;1;""))
=NBCAR($B$1)-NBCAR(SUBSTITUE($B$1;2;""))
=NBCAR($B$1)-NBCAR(SUBSTITUE($B$1;3;""))
.
.
.
Bonjour Isabelle,
Pas tout à fait,
si j'entre en A1: 13489 je veux obtenir: 2141
la foncion me renvoie 1132...
Starwing-----Message d'origine-----
oui, oui, c'est ce que la function Clef fait, non ?
isabelle
Bonjour Isabelle,
Non non tu es très proche,
:-)
Peut-être moi qui explique mal.
je reprends,
avec les chiffres: 12345
je peut jouer maximalement avec les 5 chiffres: 12345
soit: 1-1-1-1 (les différences entre les chiffres i.e.
différence entre 2et1, 3et2 , 4et3 ,5et4)
puis je peux faire avec 4 chiffres sur 5 :
1234,1245,1345soit:
1-1-1, 1-2-1, 2-1-1 (les différences entre les chiffres)
me suis-tu mieux?
Starwing-----Message d'origine-----
je ne comprend pas bien la partie1-1-2 ex: 1-2-3-5
///
diff: 1 1 2
1-2-1 ex: 1-2-4-5
///
diff: 1 2 1
2-1-1 ex: 1-3-4-5
///
diff: 2 1 1
avec les 2 chaines 12358 et 12345 voilà ce que
j'obtientchaine valeur 1-2-3 nbr 1 nbr 2 nbr 3
12358 323121 2 2 2 = 2
fois1-1-112345 123123121 4 3 2 = 2
fois1-1-1
je crois que je suis à coté de la plaque %-)
isabelle
Bonjour Isabelle,
En fait, pour exemple je vais expliquer avec un
chiffreplus court.
Prenons les chiffres de 1 à 5: 12345
La clé la plus longue est la clé de 4: 1-1-1-1
i.e.
la différence entre le deuxième chiffre et le
premier.la différence entre le troisième chiffre et le
deuxième.la différence entre le quatrième chiffre et le
troisième.la différence entre le cinquième chiffre et le
quatrième.Par la suite, je peut faire plusieurs clés de 3 :
1-1-1 ex: de 1-2-3-4 et de 2-3-4-5 ( 2 Maximum )
1-1-2 ex: 1-2-3-5
///
diff: 1 1 2
1-2-1 ex: 1-2-4-5
///
diff: 1 2 1
2-1-1 ex: 1-3-4-5
///
diff: 2 1 1
Par la suite plusieurs clés de 2...
La difficulté est de savoir si la chaine de chiffre
enA1ex: 12358 contient la clé 1-1-1 par exemple
Starwing-----Message d'origine-----
re... Starwing
là, je n'suis pas sur de suivre
avec l'exemple 123456789
on obtient la chaine 123123123123123123121
donc on a :
nombre de 1 = 8
nombre de 2 = 7
nombre de 3 = 6
il y aurait 4 possibilité de clé (8/2) ?
isabelle
note: pour trouver la chaine il y aurait cette
fonctionperso
Function Clef(zz As Range)
For i = Len(zz) To 2 Step -1
For y = i - 1 To 1 Step -1
chiffre = Mid(zz, i, 1) * 1 - Mid(zz, y, 1) * 1
If chiffre > 0 And chiffre < 4 Then Clef = Clef &
chiffreNext y
Next i
End Function
et pour compter le nombre de 1-2-3
=NBCAR($B$1)-NBCAR(SUBSTITUE($B$1;1;""))
=NBCAR($B$1)-NBCAR(SUBSTITUE($B$1;2;""))
=NBCAR($B$1)-NBCAR(SUBSTITUE($B$1;3;""))
.
.
.
oui, oui, c'est ce que la function Clef fait, non ?
isabelle
Bonjour Isabelle,
Non non tu es très proche,
:-)
Peut-être moi qui explique mal.
je reprends,
avec les chiffres: 12345
je peut jouer maximalement avec les 5 chiffres: 12345
soit: 1-1-1-1 (les différences entre les chiffres i.e.
différence entre 2et1, 3et2 , 4et3 ,5et4)
puis je peux faire avec 4 chiffres sur 5 : 1234,1245,1345
soit:
1-1-1, 1-2-1, 2-1-1 (les différences entre les chiffres)
me suis-tu mieux?
Starwing-----Message d'origine-----
je ne comprend pas bien la partie1-1-2 ex: 1-2-3-5
///
diff: 1 1 2
1-2-1 ex: 1-2-4-5
///
diff: 1 2 1
2-1-1 ex: 1-3-4-5
///
diff: 2 1 1
avec les 2 chaines 12358 et 12345 voilà ce que j'obtient
chaine valeur 1-2-3 nbr 1 nbr 2 nbr 3
12358 323121 2 2 2 = 2 fois
1-1-112345 123123121 4 3 2 = 2 fois
1-1-1
je crois que je suis à coté de la plaque %-)
isabelle
Bonjour Isabelle,
En fait, pour exemple je vais expliquer avec un chiffre
plus court.
Prenons les chiffres de 1 à 5: 12345
La clé la plus longue est la clé de 4: 1-1-1-1
i.e.
la différence entre le deuxième chiffre et le premier.
la différence entre le troisième chiffre et le deuxième.
la différence entre le quatrième chiffre et le
troisième.la différence entre le cinquième chiffre et le
quatrième.Par la suite, je peut faire plusieurs clés de 3 :
1-1-1 ex: de 1-2-3-4 et de 2-3-4-5 ( 2 Maximum )
1-1-2 ex: 1-2-3-5
///
diff: 1 1 2
1-2-1 ex: 1-2-4-5
///
diff: 1 2 1
2-1-1 ex: 1-3-4-5
///
diff: 2 1 1
Par la suite plusieurs clés de 2...
La difficulté est de savoir si la chaine de chiffre en
A1ex: 12358 contient la clé 1-1-1 par exemple
Starwing-----Message d'origine-----
re... Starwing
là, je n'suis pas sur de suivre
avec l'exemple 123456789
on obtient la chaine 123123123123123123121
donc on a :
nombre de 1 = 8
nombre de 2 = 7
nombre de 3 = 6
il y aurait 4 possibilité de clé (8/2) ?
isabelle
note: pour trouver la chaine il y aurait cette fonction
perso
Function Clef(zz As Range)
For i = Len(zz) To 2 Step -1
For y = i - 1 To 1 Step -1
chiffre = Mid(zz, i, 1) * 1 - Mid(zz, y, 1) * 1
If chiffre > 0 And chiffre < 4 Then Clef = Clef &
chiffreNext y
Next i
End Function
et pour compter le nombre de 1-2-3
=NBCAR($B$1)-NBCAR(SUBSTITUE($B$1;1;""))
=NBCAR($B$1)-NBCAR(SUBSTITUE($B$1;2;""))
=NBCAR($B$1)-NBCAR(SUBSTITUE($B$1;3;""))
.
.
oui, oui, c'est ce que la function Clef fait, non ?
isabelle
Bonjour Isabelle,
Non non tu es très proche,
:-)
Peut-être moi qui explique mal.
je reprends,
avec les chiffres: 12345
je peut jouer maximalement avec les 5 chiffres: 12345
soit: 1-1-1-1 (les différences entre les chiffres i.e.
différence entre 2et1, 3et2 , 4et3 ,5et4)
puis je peux faire avec 4 chiffres sur 5 : 1234,1245,1345
soit:
1-1-1, 1-2-1, 2-1-1 (les différences entre les chiffres)
me suis-tu mieux?
Starwing
-----Message d'origine-----
je ne comprend pas bien la partie
1-1-2 ex: 1-2-3-5
///
diff: 1 1 2
1-2-1 ex: 1-2-4-5
///
diff: 1 2 1
2-1-1 ex: 1-3-4-5
///
diff: 2 1 1
avec les 2 chaines 12358 et 12345 voilà ce que j'obtient
chaine valeur 1-2-3 nbr 1 nbr 2 nbr 3
12358 323121 2 2 2 = 2 fois
1-1-1
12345 123123121 4 3 2 = 2 fois
1-1-1
je crois que je suis à coté de la plaque %-)
isabelle
Bonjour Isabelle,
En fait, pour exemple je vais expliquer avec un chiffre
plus court.
Prenons les chiffres de 1 à 5: 12345
La clé la plus longue est la clé de 4: 1-1-1-1
i.e.
la différence entre le deuxième chiffre et le premier.
la différence entre le troisième chiffre et le deuxième.
la différence entre le quatrième chiffre et le
troisième.
la différence entre le cinquième chiffre et le
quatrième.
Par la suite, je peut faire plusieurs clés de 3 :
1-1-1 ex: de 1-2-3-4 et de 2-3-4-5 ( 2 Maximum )
1-1-2 ex: 1-2-3-5
///
diff: 1 1 2
1-2-1 ex: 1-2-4-5
///
diff: 1 2 1
2-1-1 ex: 1-3-4-5
///
diff: 2 1 1
Par la suite plusieurs clés de 2...
La difficulté est de savoir si la chaine de chiffre en
A1
ex: 12358 contient la clé 1-1-1 par exemple
Starwing
-----Message d'origine-----
re... Starwing
là, je n'suis pas sur de suivre
avec l'exemple 123456789
on obtient la chaine 123123123123123123121
donc on a :
nombre de 1 = 8
nombre de 2 = 7
nombre de 3 = 6
il y aurait 4 possibilité de clé (8/2) ?
isabelle
note: pour trouver la chaine il y aurait cette fonction
perso
Function Clef(zz As Range)
For i = Len(zz) To 2 Step -1
For y = i - 1 To 1 Step -1
chiffre = Mid(zz, i, 1) * 1 - Mid(zz, y, 1) * 1
If chiffre > 0 And chiffre < 4 Then Clef = Clef &
chiffre
Next y
Next i
End Function
et pour compter le nombre de 1-2-3
=NBCAR($B$1)-NBCAR(SUBSTITUE($B$1;1;""))
=NBCAR($B$1)-NBCAR(SUBSTITUE($B$1;2;""))
=NBCAR($B$1)-NBCAR(SUBSTITUE($B$1;3;""))
.
.
oui, oui, c'est ce que la function Clef fait, non ?
isabelle
Bonjour Isabelle,
Non non tu es très proche,
:-)
Peut-être moi qui explique mal.
je reprends,
avec les chiffres: 12345
je peut jouer maximalement avec les 5 chiffres: 12345
soit: 1-1-1-1 (les différences entre les chiffres i.e.
différence entre 2et1, 3et2 , 4et3 ,5et4)
puis je peux faire avec 4 chiffres sur 5 : 1234,1245,1345
soit:
1-1-1, 1-2-1, 2-1-1 (les différences entre les chiffres)
me suis-tu mieux?
Starwing-----Message d'origine-----
je ne comprend pas bien la partie1-1-2 ex: 1-2-3-5
///
diff: 1 1 2
1-2-1 ex: 1-2-4-5
///
diff: 1 2 1
2-1-1 ex: 1-3-4-5
///
diff: 2 1 1
avec les 2 chaines 12358 et 12345 voilà ce que j'obtient
chaine valeur 1-2-3 nbr 1 nbr 2 nbr 3
12358 323121 2 2 2 = 2 fois
1-1-112345 123123121 4 3 2 = 2 fois
1-1-1
je crois que je suis à coté de la plaque %-)
isabelle
Bonjour Isabelle,
En fait, pour exemple je vais expliquer avec un chiffre
plus court.
Prenons les chiffres de 1 à 5: 12345
La clé la plus longue est la clé de 4: 1-1-1-1
i.e.
la différence entre le deuxième chiffre et le premier.
la différence entre le troisième chiffre et le deuxième.
la différence entre le quatrième chiffre et le
troisième.la différence entre le cinquième chiffre et le
quatrième.Par la suite, je peut faire plusieurs clés de 3 :
1-1-1 ex: de 1-2-3-4 et de 2-3-4-5 ( 2 Maximum )
1-1-2 ex: 1-2-3-5
///
diff: 1 1 2
1-2-1 ex: 1-2-4-5
///
diff: 1 2 1
2-1-1 ex: 1-3-4-5
///
diff: 2 1 1
Par la suite plusieurs clés de 2...
La difficulté est de savoir si la chaine de chiffre en
A1ex: 12358 contient la clé 1-1-1 par exemple
Starwing-----Message d'origine-----
re... Starwing
là, je n'suis pas sur de suivre
avec l'exemple 123456789
on obtient la chaine 123123123123123123121
donc on a :
nombre de 1 = 8
nombre de 2 = 7
nombre de 3 = 6
il y aurait 4 possibilité de clé (8/2) ?
isabelle
note: pour trouver la chaine il y aurait cette fonction
perso
Function Clef(zz As Range)
For i = Len(zz) To 2 Step -1
For y = i - 1 To 1 Step -1
chiffre = Mid(zz, i, 1) * 1 - Mid(zz, y, 1) * 1
If chiffre > 0 And chiffre < 4 Then Clef = Clef &
chiffreNext y
Next i
End Function
et pour compter le nombre de 1-2-3
=NBCAR($B$1)-NBCAR(SUBSTITUE($B$1;1;""))
=NBCAR($B$1)-NBCAR(SUBSTITUE($B$1;2;""))
=NBCAR($B$1)-NBCAR(SUBSTITUE($B$1;3;""))
.
.