Help création de formule complexe (enfin je trouve)

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 8 Juin 2020

• #2

Bonjour Arn et bienvenu sur XLD,
Un essai en PJ avec une formule assez complexe, peut être existe il plus simple ( très certainement )

VB:

=SIERREUR(
SI(ESTERREUR(TROUVE(STXT(I5;1;1);"AKQJ"));SI(ESTERREUR(TROUVE(STXT(I5;1;1);"T987"));SI(ESTERREUR(TROUVE(STXT(I5;1;1);"65432"));" - ";"L");"M");"H")
&SI(ESTERREUR(TROUVE(STXT(I5;3;1);"AKQJ"));SI(ESTERREUR(TROUVE(STXT(I5;3;1);"T987"));SI(ESTERREUR(TROUVE(STXT(I5;3;1);"65432"));" - ";"L");"M");"H")
&SI(ESTERREUR(TROUVE(STXT(I5;5;1);"AKQJ"));SI(ESTERREUR(TROUVE(STXT(I5;5;1);"T987"));SI(ESTERREUR(TROUVE(STXT(I5;5;1);"65432"));" - ";"L");"M");"H");"")

En cas de "Non trouvé" je met " - "

 

Pièces jointes

• Arn.xlsx

  10.8 KB · Affichages: 7

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 8 Juin 2020

• #3

Bonjour à tous,
Bonjour @sylvanu

Pas sur que ce soit plus clair

VB:

=SIERREUR(CHOISIR(EQUIV(EQUIV(GAUCHE(I5;1);{"A";"K";"Q";"J";"T";"9";"8";"7";"6";"5";"4";"3";"2"};0);{0;5;9});"H";"M";"L");"-")&
SIERREUR(CHOISIR(EQUIV(EQUIV(STXT(I5;3;1);{"A";"K";"Q";"J";"T";"9";"8";"7";"6";"5";"4";"3";"2"};0);{0;5;9});"H";"M";"L");"-")&
SIERREUR(CHOISIR(EQUIV(EQUIV(STXT(I5;5;1);{"A";"K";"Q";"J";"T";"9";"8";"7";"6";"5";"4";"3";"2"};0);{0;5;9});"H";"M";"L");"-")

JHA

 

Pièces jointes

• Arn.xlsx

  11.6 KB · Affichages: 4

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 8 Juin 2020

• #4

Bonjour Arn00, JHA,
Just for the fun ... avec une petite fonction perso.

VB:

Function ARN(N)
    Application.Volatile
    ARN = ""
    For i = 1 To 5 Step 2
        C = Mid(N, i, 1)
        If InStr(1, "AKQJ", C, 1) Then
            A = "H"
        ElseIf InStr(1, "T987", C, 1) Then
            A = "M"
        ElseIf InStr(1, "23456", C, 1) Then
            A = "L"
        Else: A = " - "
        End If
        ARN = ARN & A
    Next i
End Function

 

Pièces jointes

• Arn(V2).xlsm

  16.7 KB · Affichages: 2

Vote positif 0 Vote négatif

A

arn00

XLDnaute Nouveau

• 8 Juin 2020

• #5

wow merci bcp...on est obligé de passer par ça:.Car moi j'ai une liste comme ci dessous avec 184 lignes du coup je ne sais pas trop comment faire.... Désolé je ne suis vraiment pas bon

AcTd5s

AcQd6s

AcTd3s

AcTd7s

AsKs8d

AsJs3d

AsTs2d

AsKs7d

AsTs6d

As4s2d

Tc2s2d

Qc3d2s

AsKd9s

Jd5s3s

AdQs7s

AsQd7s

 

Dernière édition: 8 Juin 2020

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 8 Juin 2020

• #6

Re,
Il faut toujours testé, d où ma liste de test qui comprends plusieurs configurations.
Ma liste revient à la votre sauf que je teste plusieurs variations de lettres.
En feuil2 de la PJ votre liste.

 

Pièces jointes

• Arn(V3).xlsm

  18.7 KB · Affichages: 3

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 8 Juin 2020

• #7

Bonjour à tous,

A essayer

JHA

 

Pièces jointes

• Arn rev1.xlsx

  13.3 KB · Affichages: 3

Vote positif 0 Vote négatif

A

arn00

XLDnaute Nouveau

• 8 Juin 2020

• #8

Merci beaucoup la première formule marche parfaitement, c'est vraiment top! Du coup j'abuse un peu en demandant un 2ème requête:
- Si on trouve deux lettres ou 2 chiffres identiques en 1, 3 et 5 ème place, on écrit en plus dans la case (double)
Par exemple:

Kc9s9d doit donner HMM(double)

Si ce n'est pas possible ou trop compliqué pas grave. Encore merci en tout cas, super sympa.

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 8 Juin 2020

• #9

En VBA ?
Car en formules trop complexe pour moi.

 

Vote positif 0 Vote négatif

A

arn00

XLDnaute Nouveau

• 8 Juin 2020

• #10

Le top aurait été en formule car je suis vraiment débutant en excel et ne sait pas utiliser les fonctions comme on m'a donné plus haut , ou le VBA. Je ne sais pas si j'arriverai à l'insérer correctement dans ma feuille excel et si je saurai l'utiliser. Merci quand même

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 8 Juin 2020

• #11

Bah, le voilà quand même si vous changez d'avis.

 

Pièces jointes

• Arn(V4).xlsm

  21.6 KB · Affichages: 3

Vote positif 0 Vote négatif

A

arn00

XLDnaute Nouveau

• 8 Juin 2020

• #12

Merci beaucoup

 

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 8 Juin 2020

• #13

Bonjour à tous,

Tu peux essayer cette formule pour les doubles

VB:

=SI(OU(GAUCHE(R5;1)=STXT(R5;2;1);GAUCHE(R5;1)=DROITE(R5;1);STXT(R5;2;1)=DROITE(R5;1));"double";"")

JHA

 

Pièces jointes

• Arn rev2.xlsx

  13.7 KB · Affichages: 2

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 8 Juin 2020

• #14

Joli !
Çà rajoute une colonne mais ça fait le taf.
J'avais pensé l’intégrer dans une même formule ... c'est pour ça que j'ai jeté l'éponge.

 

Vote positif 0 Vote négatif

A

arn00

XLDnaute Nouveau

• 8 Juin 2020

• #15

En fait non ça ne marche pas car il faudrait que ça donne (double) quand il y a la même lettre ou le même chiffre en 1 3 5 mais pas quand c'est HHL par exemple.

exemple:
AsKc6d donne HHL
As6d6c donne HLL(double)

Et cerise sur le gâteau:

7s7d7c donne MMM (triple).

 

Vote positif 0 Vote négatif